<%if instr(SearchFormParameter,"LeftShow")>=1 then%>
 <%=SearchLeftTitle%> |
<%call SearchLeft()%>
<%end if%>
<%
if GuSortA>=1 and GuSortType="SortAText" then
call ListSortBText()
else
if GuSortB>=1 and GuSortType="SortABook" then
call ListSortBBook()
else
Response.Write ""
end if
end if
sub ListSortBText()
%>
 <%=ListSortBTextTitle%> |
<%
set ARSB=Server.CreateObject("ADODB.RecordSet")
SQL="select * from "&GuDatabaseTablePrefix&"_Article_Sort where (AS_Type='SortBText' or AS_Type='SortBLink') and AS_SortA="&GuSortA&" and AS_Status='Show' order by AS_Order asc"
ARSB.Open SQL,ACMA,1,1
if ARSB.Bof and ARSB.Eof then
Response.Write "
没有找到相关数据
"
else
Response.Write ""
BB=1
do while not ARSB.Eof
Response.Write " ![]() "
if ARSB("AS_Type")="SortBText" then
if ARSB("AS_ID")=GuSortB then
if trim(Request.QueryString("GuComm"))="" and GuExplorerFileExists("Index.html")=true and GuExplorerFileExists(""&WebsiteFolderList&"/"&ARSB("AS_ID")&".html")=true then
Response.Write ""&ARSB("AS_Name")&" ["&ARSB("AS_Number")&"]"
else
Response.Write ""&ARSB("AS_Name")&" ["&ARSB("AS_Number")&"]"
end if
else
if trim(Request.QueryString("GuComm"))="" and GuExplorerFileExists("Index.html")=true and GuExplorerFileExists(""&WebsiteFolderList&"/"&ARSB("AS_ID")&".html")=true then
Response.Write ""&ARSB("AS_Name")&" ["&ARSB("AS_Number")&"]"
else
Response.Write ""&ARSB("AS_Name")&" ["&ARSB("AS_Number")&"]"
end if
end if
else
Response.Write ""&ARSB("AS_Name")&" [0]"
end if
Response.Write " | | "
BB=BB+1
ARSB.MoveNext
loop
Response.Write " "
end if
ARSB.Close
set ARSB=nothing
end sub
sub ListSortBBook()
%>
| <%=ListSortBBookTitle%> |
<%
set ARSB=Server.CreateObject("ADODB.RecordSet")
SQL="select * from "&GuDatabaseTablePrefix&"_Article_Sort where AS_Type='SortBText' and AS_Status='Show' and AS_ID="&GuSortB
ARSB.Open SQL,ACMA,1,1
if ARSB.Bof and ARSB.Eof then
Response.Write "
没有找到相关数据
"
else
Response.Write ""
end if
ARSB.Close
set ARSB=nothing
set ARSB=Server.CreateObject("ADODB.RecordSet")
SQL="select top "&ListSortBBookTop&" * from "&GuDatabaseTablePrefix&"_Article_Sort where (AS_Type='SortBText' or AS_Type='SortBLink') and AS_SortA="&GuSortA&" and AS_Status='Show' and AS_ID<>"&GuSortB&" order by AS_ID desc"
ARSB.Open SQL,ACMA,1,1
if ARSB.Bof and ARSB.Eof then
Response.Write ""
else
Response.Write ""
end if
ARSB.Close
set ARSB=nothing
end sub
%>
<%if instr(ListPageParameter,"ColumnCommendShow")>=1 then%>
|
<%
dim ARCC
set ARCC=Server.CreateObject("ADODB.RecordSet")
SQL="select top "&ListColumnCommendTop&" * from "&GuDatabaseTablePrefix&"_Article_Data where AR_ID>=1 and "&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"),ListColumnCommendLeft)%>
" GuHrefArticle title="<%=GuLeftString(GuResourceContentData,200)%>" class="GrayS12"><%=GuLeftString(GuResourceContentData,ListColumnCommendLeft)%> |
|
<%
CC=CC+1
ARCC.MoveNext
loop
end if
ARCC.Close
set ARCC=nothing
%>
<%end if%>
<%if instr(ListPageParameter,"HitsReadShow")>=1 then%>
 <%=ListHitsReadTitle%> |
|
<%
dim ARHW
set ARHW=Server.CreateObject("ADODB.RecordSet")
SQL="select top "&ListHitsReadTop&" * from "&GuDatabaseTablePrefix&"_Article_Data where AR_ID>=1 and "&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"),ListHitsReadLeft)%>
" GuHrefArticle title="<%=GuLeftString(GuResourceContentData,200)%>" class="GrayS12"><%=GuLeftString(GuResourceContentData,ListHitsReadLeft)%> |
|
<%
HH=HH+1
ARHW.MoveNext
loop
end if
ARHW.Close
set ARHW=nothing
%>
<%end if%>
|
<%
if GuSortB>=1 and GuSortType="SortABook" then
call ListSortAText()
else
if GuSortA>=1 and GuSortType="SortABook" and GuKeywordString="" then
call ListSortABook()
else
call ListSortAText()
end if
end if
sub ListSortAText()
set ARLR=Server.CreateObject("ADODB.RecordSet")
SQL="select * from "&GuDatabaseTablePrefix&"_Article_Data where AR_ID>=1 and "&GuSQLSort&" "&GuSQLType&" "&GuSQLLicence&" "&GuSQLColumn&" "&GuSQLKeyword&" AR_StatusSortA='Show' and AR_StatusSortB='Show' and instr(AR_Status,'Approve')>=1 and instr(AR_Status,'Show')>=1 order by "&GuSQLField&" "&GuSQLOrder&" AR_ID desc"
ARLR.Open SQL,ACMA,1,1
if ARLR.Bof and ARLR.Eof then
%>
 <%=ListArticleTitle%> |
文章作者 |
阅读次数 |
整理日期 |
|
 |
没有找到相关数据，请重新选择分类或者输入关键字词搜索！ |
|
|
<%
else
dim GuOrderTitleAuthor,GuOrderTypeAuthor,GuOrderStyleAuthor
if trim(Request.QueryString("Field"))="Author" then
if trim(Request.QueryString("Order"))="Asc" then
GuOrderTitleAuthor="当前以文章作者升序排列，单击以降序排列"
GuOrderTypeAuthor="Desc"
GuOrderStyleAuthor="Style_Table_List_OrderAsc"
else
GuOrderTitleAuthor="当前以文章作者降序排列，单击以升序排列"
GuOrderTypeAuthor="Asc"
GuOrderStyleAuthor="Style_Table_List_OrderDesc"
end if
else
GuOrderTitleAuthor="单击以文章作者升序排列"
GuOrderTypeAuthor="Asc"
GuOrderStyleAuthor=""
end if
dim GuOrderTitleHits,GuOrderTypeHits,GuOrderStyleHits
if trim(Request.QueryString("Field"))="Hits" then
if trim(Request.QueryString("Order"))="Asc" then
GuOrderTitleHits="当前以阅读次数升序排列，单击以降序排列"
GuOrderTypeHits="Desc"
GuOrderStyleHits="Style_Table_List_OrderAsc"
else
GuOrderTitleHits="当前以阅读次数降序排列，单击以升序排列"
GuOrderTypeHits="Asc"
GuOrderStyleHits="Style_Table_List_OrderDesc"
end if
else
GuOrderTitleHits="单击以阅读次数升序排列"
GuOrderTypeHits="Asc"
GuOrderStyleHits=""
end if
dim GuOrderTitleDate,GuOrderTypeDate,GuOrderStyleDate
if trim(Request.QueryString("Field"))="Date" then
if trim(Request.QueryString("Order"))="Asc" then
GuOrderTitleDate="当前以整理日期升序排列，单击以降序排列"
GuOrderTypeDate="Desc"
GuOrderStyleDate="Style_Table_List_OrderAsc"
else
GuOrderTitleDate="当前以整理日期降序排列，单击以升序排列"
GuOrderTypeDate="Asc"
GuOrderStyleDate="Style_Table_List_OrderDesc"
end if
else
GuOrderTitleDate="单击以整理日期升序排列"
GuOrderTypeDate="Asc"
GuOrderStyleDate=""
end if
%>
<%
if not isNull(GuKeywordString)=true and len(GuKeywordString)>=1 then
%>
| ·搜索结果：关键字词[<%=GuKeywordString%>]在[<%=GuSortName%>]中... |
<%
end if
GuPageSize=ListArticleTop
GuPageCount=ARLR.RecordCount
GuPagePresent=trim(Request.QueryString("Page"))
if GuPagePresent="" then
GuPagePresent=1
else
if isNumeric(GuPagePresent)=true then
if GuPagePresent<=1 then
GuPagePresent=1
else
GuPagePresent=fix(GuPagePresent)
end if
else
GuPagePresent=1
end if
end if
if (GuPageCount mod GuPageSize)=0 then
GuPageTotal=GuPageCount\GuPageSize
else
GuPageTotal=GuPageCount\GuPageSize+1
end if
if GuPageTotal<=1 then
GuPageTotal=1
end if
if GuPagePresent>=GuPageTotal then
GuPagePresent=GuPageTotal
end if
GuPageOrder=1
GuPageStart=(GuPagePresent-1)*GuPageSize+1
LL=1
do while not ARLR.Eof
if GuPageOrder>=GuPageStart+GuPageSize then
exit do
end if
if GuPageOrder>=GuPageStart then
GuResourceContentData=ARLR("AR_Content")
GuResourceContentData=GuReplaceString(GuResourceContentData,ArticleReadReplaceData)
if instr(ListPageParameter,"ArticleContentFilterBRP")>=1 then
GuResourceContentData=GuFilterLinefeed(GuResourceContentData)
elseif instr(ListPageParameter,"ArticleContentFilterHTML")>=1 then
GuResourceContentData=GuFilterHTML(GuResourceContentData)
else
GuResourceContentData=GuResourceContentData
end if
GuResourceContentData=GuLeftString(GuResourceContentData,ListArticleContentLeft)
if LL>ListArticleTop then
LL=1
end if
%>
<%
end if
GuPageOrder=GuPageOrder+1
LL=LL+1
ARLR.MoveNext
loop
ARLR.Close
set ARLR=nothing
%>
<%
Response.Write ""
Response.Write " "
Response.Write " "
if GuPagePresent<=1 then
Response.Write " 第一页 上一页 "
else
Response.Write " 第一页 "
Response.Write " 上一页 "
end if
if GuPagePresent>=GuPageTotal then
Response.Write " 下一页 最末页 "
else
Response.Write " 下一页 "
Response.Write " 最末页"
end if
Response.Write " | "
Response.Write " "
if GuPageTotal<=9 then
GuPageStart=1
GuPageEnd=GuPageTotal
else
if GuPagePresent<=5 then
GuPageStart=1
GuPageEnd=GuPagePresent+(9-GuPagePresent)
if GuPageEnd>=GuPageTotal then
GuPageEnd=GuPageTotal
end if
else
if GuPageTotal-GuPagePresent<=3 then
GuPageStart=GuPagePresent-(9-(GuPageTotal-GuPagePresent+1))
else
GuPageStart=GuPagePresent-4
end if
if GuPagePresent+4>=GuPageTotal then
GuPageEnd=GuPageTotal
else
GuPageEnd=GuPagePresent+4
end if
end if
end if
for GuPageNumber=GuPageStart to GuPageEnd step 1
if GuPageNumber=GuPagePresent then
Response.Write " "&GuPageNumber&""
else
Response.Write " "&GuPageNumber&""
end if
next
Response.Write " | "
Response.Write " "
Response.Write " "
%> |
| <%
Response.Write ""
%> |
<%
end if
end sub
sub ListSortABook()
set ARLR=Server.CreateObject("ADODB.RecordSet")
SQL="select * from "&GuDatabaseTablePrefix&"_Article_Sort where (AS_Type='SortBText' or AS_Type='SortBLink') and AS_Status='Show' and AS_SortA="&GuSortA&" order by AS_ID desc"
ARLR.Open SQL,ACMA,1,1
if ARLR.Bof and ARLR.Eof then
%>
| <%=ListBookTitle%> |
最新章节 |
书籍作者 |
整理日期 |
|
| |
没有找到相关数据，请重新选择分类或者输入关键字词搜索！ |
|
|
<%
else
%>
| <%=ListBookTitle%> |
最新章节 |
文章作者 |
整理日期 |
|
<%
GuPageSize=ListBookTop
GuPageCount=ARLR.RecordCount
GuPagePresent=trim(Request.QueryString("Page"))
if GuPagePresent="" then
GuPagePresent=1
else
if isNumeric(GuPagePresent)=true then
if GuPagePresent<=1 then
GuPagePresent=1
else
GuPagePresent=fix(GuPagePresent)
end if
else
GuPagePresent=1
end if
end if
if (GuPageCount mod GuPageSize)=0 then
GuPageTotal=GuPageCount\GuPageSize
else
GuPageTotal=GuPageCount\GuPageSize+1
end if
if GuPageTotal<=1 then
GuPageTotal=1
end if
if GuPagePresent>=GuPageTotal then
GuPagePresent=GuPageTotal
end if
GuPageOrder=1
GuPageStart=(GuPagePresent-1)*GuPageSize+1
LL=1
do while not ARLR.Eof
if GuPageOrder>=GuPageStart+GuPageSize then
exit do
end if
if GuPageOrder>=GuPageStart then
if LL>ListBookTop then
LL=1
end if
dim GuResourceAuthor,GuResourceDateTime
set ARAR=Server.CreateObject("ADODB.RecordSet")
SQL="select * 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_SortB="&ARLR("AS_ID")&" order by AR_DateTime desc,AR_ID desc"
ARAR.Open SQL,ACMA,1,1
if ARAR.Bof and ARAR.Eof then
GuResourceID=""
GuResourceIcon=""
GuResourceName=""
GuResourceNameStyle=""
GuResourceAuthor=""
GuResourceContentData="内容暂无"
GuResourceDateTime=ARLR("AS_DateTime")
else
GuResourceID=ARAR("AR_ID")
GuResourceIcon=ARAR("AR_Icon")
GuResourceName=ARAR("AR_Name")
GuResourceNameStyle=ARAR("AR_NameStyle")
GuResourceAuthor=ARAR("AR_Author")
GuResourceContentData=ARAR("AR_Content")
GuResourceDateTime=ARAR("AR_DateTime")
end if
ARAR.Close
set ARAR=nothing
GuResourceContentData=GuReplaceString(GuResourceContentData,ArticleReadReplaceData)
if instr(ListPageParameter,"BookContentFilterBRP")>=1 then
GuResourceContentData=GuFilterLinefeed(GuResourceContentData)
elseif instr(ListPageParameter,"BookContentFilterHTML")>=1 then
GuResourceContentData=GuFilterHTML(GuResourceContentData)
else
GuResourceContentData=GuResourceContentData
end if
GuResourceContentData=GuLeftString(GuResourceContentData,ListBookContentLeft)
%>
<%
end if
GuPageOrder=GuPageOrder+1
LL=LL+1
ARLR.MoveNext
loop
ARLR.Close
set ARLR=nothing
%>
<%
Response.Write ""
Response.Write " "
Response.Write " "
if GuPagePresent<=1 then
Response.Write " 第一页 上一页 "
else
Response.Write " 第一页 "
Response.Write " 上一页 "
end if
if GuPagePresent>=GuPageTotal then
Response.Write " 下一页 最末页 "
else
Response.Write " 下一页 "
Response.Write " 最末页"
end if
Response.Write " | "
Response.Write " "
if GuPageTotal<=9 then
GuPageStart=1
GuPageEnd=GuPageTotal
else
if GuPagePresent<=5 then
GuPageStart=1
GuPageEnd=GuPagePresent+(9-GuPagePresent)
if GuPageEnd>=GuPageTotal then
GuPageEnd=GuPageTotal
end if
else
if GuPageTotal-GuPagePresent<=3 then
GuPageStart=GuPagePresent-(9-(GuPageTotal-GuPagePresent+1))
else
GuPageStart=GuPagePresent-4
end if
if GuPagePresent+4>=GuPageTotal then
GuPageEnd=GuPageTotal
else
GuPageEnd=GuPagePresent+4
end if
end if
end if
for GuPageNumber=GuPageStart to GuPageEnd step 1
if GuPageNumber=GuPagePresent then
Response.Write " "&GuPageNumber&""
else
Response.Write " "&GuPageNumber&""
end if
next
Response.Write " | "
Response.Write " "
Response.Write " "
%> |
| <%
Response.Write ""
%> |
<%
end if
end sub
%>
|
