<%if instr(SearchFormParameter,"LeftShow")>=1 then%>
 <%=SearchLeftTitle%> |
<%call SearchLeft()%>
<%end if%>
<%if instr(ArticlePageParameter,"ColumnCommendShow")>=1 then%>
|
<%
dim ARCC
set ARCC=Server.CreateObject("ADODB.RecordSet")
SQL="select top "&ArticleColumnCommendTop&" * from "&GuDatabaseTablePrefix&"_Article_Data where "&GuSQLSort&" AR_Column like '%Commend%' and AR_StatusSortA='Show' and AR_StatusSortB='Show' and instr(AR_Status,'Approve')>=1 and instr(AR_Status,'Show')>=1 order by AR_ID desc,AR_DateTime desc"
ARCC.Open SQL,ACMA,1,1
if ARCC.Bof and ARCC.Eof then
Response.Write " 没有找到相关数据 | "
else
CC=1
do while not ARCC.Eof
GuResourceContentData=GuFilterHTML(ARCC("AR_Content"))
GuResourceContentData=GuReplaceString(GuResourceContentData,ArticleReadReplaceData)
%>
" GuHrefArticle><%if ARCC("AR_Icon")="" or isNull(ARCC("AR_Icon"))=true then%> " title="<%=ARCC("AR_Name")%> <%=DateValue(ARCC("AR_DateTime"))%>" style="width:32px;height:32px;border:0px;" /><%else%> " alt="<%=ARCC("AR_Name")%>" title="<%=ARCC("AR_Name")%> <%=DateValue(ARCC("AR_DateTime"))%>" style="width:32px;height:32px;border:0px;" /><%end if%> |
" GuHrefArticle title="<%=ARCC("AR_Name")%> <%=DateValue(ARCC("AR_DateTime"))%>" class="BlackS12" style="font-family:<%=split(ARCC("AR_NameStyle")&"|||","|")(1)%>;font-size:<%=split(ARCC("AR_NameStyle")&"|||","|")(2)%>;color:<%=split(ARCC("AR_NameStyle")&"|||","|")(3)%>;"><%=GuLeftString(ARCC("AR_Name"),ArticleColumnCommendLeft)%>
" GuHrefArticle title="<%=GuLeftString(GuResourceContentData,200)%>" class="GrayS12"><%=GuLeftString(GuResourceContentData,ArticleColumnCommendLeft)%> |
|
<%
CC=CC+1
ARCC.MoveNext
loop
end if
ARCC.Close
set ARCC=nothing
%>
<%end if%>
<%if instr(ArticlePageParameter,"HitsReadShow")>=1 then%>
 <%=ArticleHitsReadTitle%> |
|
<%
dim ARHW
set ARHW=Server.CreateObject("ADODB.RecordSet")
SQL="select top "&ArticleHitsReadTop&" * from "&GuDatabaseTablePrefix&"_Article_Data where "&GuSQLSort&" AR_StatusSortA='Show' and AR_StatusSortB='Show' and instr(AR_Status,'Approve')>=1 and instr(AR_Status,'Show')>=1 order by AR_HitsWeek desc,AR_ID desc"
ARHW.Open SQL,ACMA,1,1
if ARHW.Bof and ARHW.Eof then
Response.Write " 没有找到相关数据 | "
else
HH=1
do while not ARHW.Eof
GuResourceContentData=GuFilterHTML(ARHW("AR_Content"))
GuResourceContentData=GuReplaceString(GuResourceContentData,ArticleReadReplaceData)
%>
" GuHrefArticle><%if ARHW("AR_Icon")="" or isNull(ARHW("AR_Icon"))=true then%>" title="<%=ARHW("AR_Name")%> <%=DateValue(ARHW("AR_DateTime"))%>" style="width:32px;height:32px;border:0px;" /><%else%> " alt="<%=ARHW("AR_Name")%>" title="<%=ARHW("AR_Name")%> <%=DateValue(ARHW("AR_DateTime"))%>" style="width:32px;height:32px;border:0px;" /><%end if%> |
" GuHrefArticle title="<%=ARHW("AR_Name")%> <%=DateValue(ARHW("AR_DateTime"))%>" class="BlackS12" style="font-family:<%=split(ARHW("AR_NameStyle")&"|||","|")(1)%>;font-size:<%=split(ARHW("AR_NameStyle")&"|||","|")(2)%>;color:<%=split(ARHW("AR_NameStyle")&"|||","|")(3)%>;"><%=GuLeftString(ARHW("AR_Name"),ArticleHitsReadLeft)%>
" GuHrefArticle title="<%=GuLeftString(GuResourceContentData,200)%>" class="GrayS12"><%=GuLeftString(GuResourceContentData,ArticleHitsReadLeft)%> |
|
<%
HH=HH+1
ARHW.MoveNext
loop
end if
ARHW.Close
set ARHW=nothing
%>
<%end if%>
|
 文 章 信 息 |
<%
if ArticleDataBoolean=true then
call ArticleList()
call ArticleReadNote()
else
GuSystemMessageCode=1810
GuSystemMessageTitle=""
GuSystemMessageContent="读取数据出现错误，没有找到相关数据。"
GuSystemMessageURL=""
call GuSystemMessage()
end if
sub ArticleList()
call ArticleDataLoad()
call ArticlePageCheck()
call MemberLoginCheck()
call MemberReadLoad()
call MemberGradeCheck()
%>
<%if AR_Icon="" or isNull(AR_Icon)=true then%> <%else%> <%end if%> |
;font-size:<%=split(AR_NameStyle&"|||","|")(2)%>;color:<%=split(AR_NameStyle&"|||","|")(3)%>;"><%=AR_Name%> |
| <%if instr(GuestbookPageParameter,"GuestbookEnabled")>=1 then%>[留言]<%end if%><%if instr(CommentPageParameter,"CommentEnabledMember")>=1 or instr(CommentPageParameter,"CommentShowMember")>=1 then%>[评论]<%end if%><%if instr(MemberFavoritePageParameter,"ArticleEnabled")>=1 then%>[收藏]<%end if%> |
|
|
|
<%=GuResourceContentData%><%call ArticlePageList("Article.asp")%>
|
<%if ArticleTagBoolean=true then%>
| 文章标签：<%call ArticleTagLoad()%> |
<%end if%>
| 文章作者：<%if AR_Author="" or isNull(AR_Author)=true then Response.write "未知" else Response.write AR_Author end if%> <%call ArticleHrefLoad()%><%if ArticleFromBoolean=true then%>文章来源：<%call ArticleFromLoad()%><%end if%>整理日期：<%=DateValue(AR_DateTime)%> |
| <%if instr(ArticlePageParameter,"ReadStatShow")>=1 then%>[文章浏览：]<%else%>[页面刷新:<%=now()%>]<%end if%>[打印文章]<%if instr(SendPageParameter,"SendEnabled")>=1 then%>[发送文章]<%end if%> |
|
|
|
<%
dim ArticleBackBoolean,ArticleBackData
if instr(ArticlePageParameter,"BackArticleShow")>=1 then
dim ARAB
set ARAB=Server.CreateObject("ADODB.RecordSet")
SQL="select top "&ArticleBackArticleTop&" * from "&GuDatabaseTablePrefix&"_Article_Data where AR_StatusSortA='Show' and AR_StatusSortB='Show' and instr(AR_Status,'Approve')>=1 and instr(AR_Status,'Show')>=1 and AR_Keyword='"&GuKeywordTwo&"' and AR_ID<"&GuArticlePresent&" order by AR_ID desc"
ARAB.Open SQL,ACMA,1,1
if ARAB.Bof and ARAB.Eof then
Response.Write ""
ArticleBackBoolean=false
ArticleBackData=""
else
ArticleBackBoolean=true
ArticleBackData=""
do while not ARAB.Eof
ArticleBackData=ArticleBackData+"·"&GuLeftString(ARAB("AR_Name"),ArticleBackArticleLeft)&" "&DateValue(ARAB("AR_DateTime"))&"
"
ARAB.MoveNext
loop
end if
ARAB.Close
set ARAB=nothing
else
ArticleBackBoolean=false
ArticleBackData=""
end if
dim ArticleNextBoolean,ArticleNextData
if instr(ArticlePageParameter,"NextArticleShow")>=1 then
dim ARAN
set ARAN=Server.CreateObject("ADODB.RecordSet")
SQL="select top "&ArticleNextArticleTop&" * from "&GuDatabaseTablePrefix&"_Article_Data where AR_StatusSortA='Show' and AR_StatusSortB='Show' and instr(AR_Status,'Approve')>=1 and instr(AR_Status,'Show')>=1 and AR_Keyword='"&GuKeywordTwo&"' and AR_ID>"&GuArticlePresent&" order by AR_ID asc"
ARAN.Open SQL,ACMA,1,1
if ARAN.Bof and ARAN.Eof then
Response.Write ""
ArticleNextBoolean=false
ArticleNextData=""
else
ArticleNextBoolean=true
ArticleNextData=""
do while not ARAN.Eof
ArticleBackData=ArticleBackData+"·"&GuLeftString(ARAN("AR_Name"),ArticleNextArticleLeft)&" "&DateValue(ARAN("AR_DateTime"))&"
"
ARAN.MoveNext
loop
end if
ARAN.Close
set ARAN=nothing
else
ArticleNextBoolean=false
ArticleNextData=""
end if
if ArticleBackBoolean=true or ArticleNextBoolean=true then
%>
|
<%=ArticleBackData%><%=ArticleNextData%> |
<%
end if
if instr(ArticlePageParameter,"LikeArticleShow")>=1 then
dim ARAL
set ARAL=Server.CreateObject("ADODB.RecordSet")
SQL="select top "&ArticleLikeArticleTop&" * from "&GuDatabaseTablePrefix&"_Article_Data where AR_StatusSortA='Show' and AR_StatusSortB='Show' and instr(AR_Status,'Approve')>=1 and instr(AR_Status,'Show')>=1 and (AR_Name like '%"&left((GuKeywordOne),4)&"%' or AR_Keyword like '%"&left((GuKeywordTwo),4)&"%') and AR_ID<>"&GuArticlePresent&""
ARAL.Open SQL,ACMA,1,1
if ARAL.Bof and ARAL.Eof then
Response.Write ""
else
%>
<%
end if
ARAL.Close
set ARAL=nothing
end if
end sub
sub ArticleReadNote()
if instr(ArticlePageParameter,"ReadNoteShow")>=1 then
dim ARARN
set ARARN=Server.CreateObject("ADODB.RecordSet")
SQL="select * from "&GuDatabaseTablePrefix&"_Config where CO_ID=10000001"
ARARN.Open SQL,ACMA,1,1
if ARARN.Bof and ARARN.Eof then
Response.Write ""
else
%>
|
<%=replace(ARARN("CO_ArticleReadNoteText"),"[WebsitePath]",WebsitePath)%> |
<%
end if
ARARN.Close
set ARARN=nothing
end if
end sub
%>
|
