⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 list.asp

📁 浪人文章系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
  <td width="572" class="T_TD_BGColor_1_2" align="center" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="98%" height="10">
  <tr>
	<td height="8"></td>
  </tr>
<%
dim rsLi4
set rsLi4=Server.CreateObject("Adodb.RecordSet")

if not isnull(GuKeyword) and GuKeyword<>"" then
	if Trim(Request.QueryString("So"))<>"" then
		GuSQL="select * from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and "&SortID&" and (Ar_Name like '%"&GuKeyword&"%' or Ar_Keyword like '%"&GuKeyword&"%')"
	else
		GuSQL="select * from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and (Ar_Name like '%"&GuKeyword&"%' or Ar_Keyword like '%"&GuKeyword&"%')"
	end if

elseif Trim(Request.QueryString("CT"))<>"" then
	GuSQL="select * from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and "&Trim(Request.QueryString("CT"))&"='1' "

else
	if Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))<>"" then
		GuSQL="select * from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and "&SortID&" "&AsSortID&" "

	elseif Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))="" then
		GuSQL="select * from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and "&SortID&" "

	else
		GuSQL="select * from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' "
	end if

end if

	GuSQL=GuSQL&" order by "&OT&" "&AD&",Ar_ID desc"
	rsLi4.open GuSQL,GuConn,1,1
	
	GuPageCount=rsLi4.RecordCount

	if GuPageCount mod GuPageSize=0 then
		GuPageTotal=GuPageCount\GuPageSize
	else
		GuPageTotal=GuPageCount\GuPageSize+1
	end if

	if GuPage<1 then
		GuPage=1
	end if

	if GuPage>GuPageTotal then
		GuPage=GuPageTotal
	end if

	if rsLi4.eof and rsLi4.bof then
%>
  <tr>
	<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_R.gif"><table border="0" cellpadding="0" cellspacing="0" width="558" height="26">
	<tr>
	 <td width="45" align="center"><img src="Style/<%=WebSiteStyle%>/Td_T_List.gif" border="0" width="26" height="26"></td>
	 <td width="376" valign="bottom"><font class="WSText"><%=ListArticleTitle%></font></td>
	 <td width="68" valign="bottom" align="center"><font class="WSText">阅读次数</font></td>
	 <td width="68" valign="bottom" align="center"><font class="WSText">整理日期</font></td>
	</tr></table></td>
  </tr>
  <tr>
	<td height="6"></td>
  </tr>
  <tr>
	<td height="10" align="center" valign="top"><table border="0" cellpadding="0" cellspacing="1" width="558" height="80" class="T_BGColor_2"><tr><td class="T_TD_BGColor_2_2" align="center"><img src="Style/<%=WebSiteStyle%>/Title_07.gif" width="60" height="60" border="0" align="absmiddle">&nbsp;<font class="MaroonS12">没有找到相关数据，请重新选择分类或输入关键字词搜索</font></td></tr></table></td>
  </tr>
<%
	else
		if Trim(Request.QueryString("AD"))="asc" then
%>
  <tr>
	<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_R.gif"><table border="0" cellpadding="0" cellspacing="0" width="558" height="26">
	<tr>
	 <td width="45" align="center"><img src="Style/<%=WebSiteStyle%>/Td_T_List.gif" border="0" width="26" height="26"></td>
	 <td width="376" valign="bottom"><font class="WSText"><%=ListArticleTitle%></font></td>
	 <td width="68" valign="bottom" align="center"><%Response.write "<a href=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT=AllHits&AD=desc&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""  title=""单击以降序排列"" class=""WSText"">阅读次数</a>"%></td>
	 <td width="68" valign="bottom" align="center"><%Response.write "<a href=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT=DateTime&AD=desc&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""  title=""单击以降序排列"" class=""WSText"">整理日期</a>"%></td>
	</tr></table></td>
  </tr>
<%
		else
%>
  <tr>
	<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_R.gif"><table border="0" cellpadding="0" cellspacing="0" width="558" height="26">
	<tr>
	 <td width="45" align="center"><img src="Style/<%=WebSiteStyle%>/Td_T_List.gif" border="0" width="26" height="26"></td>
	 <td width="376" valign="bottom"><font class="WSText"><%=ListArticleTitle%></font></td>
	 <td width="68" valign="bottom" align="center"><%Response.write "<a href=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT=AllHits&AD=asc&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""  title=""单击以升序排列"" class=""WSText"">阅读次数</a>"%></td>
	 <td width="68" valign="bottom" align="center"><%Response.write "<a href=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT=DateTime&AD=asc&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&Trim(Request.QueryString("GuPage"))&"""  title=""单击以升序排列"" class=""WSText"">整理日期</a>"%></td>
	</tr></table></td>
  </tr>
<%
		end if

		if not isnull(GuKeyword) and GuKeyword<>"" then
%>
  <tr>
	<td height="20"><font class="BlackS12">·</font><font class="BlackS12">搜索结果:<%Response.write "<font class=""RedV12"">"&GuKeyword&"</font> 在 "&ArticleSortName&" 中..."%></font></td>
  </tr>
<%
		end if

	dim GuPagei:GuPagei=1
	GuPageStart=(GuPage-1)*GuPageSize

	dim iList:iList=1

	do while not rsLi4.eof
		if GuPagei>GuPageStart then
%>
  <tr>
	<td height="10" align="center" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="558" height="10">
	<tr>
	 <td width="421" height="26"><img src="Style/<%=WebSiteStyle%>/Title_05.gif" border="0"><a href="Article.asp?ID=<%=rsLi4("Ar_ID")%>" style="color:<%=rsLi4("Ar_NameColor")%>" class="BlackV12" title="<%=rsLi4("Ar_Name")%>"><%=Replace(rsLi4("Ar_Name"),""&GuKeyword&"","<font class=""RedV12"">"&GuKeyword&"</font>")%></a></td>
	 <td width="68" height="26" align="center"><font class="BlackG10"><%=rsLi4("Ar_AllHits")%></font></td>
	 <td width="68" height="26" align="center"><font class="BlackS10"><%if rsLi4("Ar_DateTime")=Date() then Response.write "<font class=""RedS10"">"&rsLi4("Ar_DateTime")&"</font>" else Response.write rsLi4("Ar_DateTime") end if%></font></td>
	</tr>
	<tr>
	 <td width="558" height="1" colspan="3" class="T_BGColor_2"></td>
	</tr></table></td>
  </tr>
<%
		end if
	iList=iList+1
	GuPagei=GuPagei+1

	if GuPagei>GuPageStart+GuPageSize then
		exit do
	end if

	rsLi4.movenext
	loop

	rsLi4.close
	set rsLi4=Nothing
%>
  <tr>
	<td height="26" valign="bottom">&nbsp;<%

	if GuPage>1 then
		Response.write "<a href=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT="&Trim(Request.QueryString("OT"))&"&AD="&Trim(Request.QueryString("AD"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage=1"" class=""BlackS12"">『首页』</a>"
		Response.write "<a href=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT="&Trim(Request.QueryString("OT"))&"&AD="&Trim(Request.QueryString("AD"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&(GuPage-1)&""" class=""BlackS12"">『上页』</a>"
	else
		Response.write "<font class=""SilverS12"">『首页』『上页』</font>"
	end if

	if GuPage<GuPageTotal then
		Response.write "<a href=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT="&Trim(Request.QueryString("OT"))&"&AD="&Trim(Request.QueryString("AD"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&(GuPage+1)&""" class=""BlackS12"">『下页』</a>"
		Response.write "<a href=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT="&Trim(Request.QueryString("OT"))&"&AD="&Trim(Request.QueryString("AD"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&GuPageTotal&""" class=""BlackS12"">『尾页』</a>"
	else
		Response.write "<font class=""SilverS12"">『下页』『尾页』</font>"
	end if
%></td>
  </tr>
  <tr>
	<td height="26" align="right"><%

	Response.write "<font class=""BlackS12"">当前分类:"&ArticleSortName&"</font>"

	Response.write "&nbsp;&nbsp;<font class=""BlackS12"">共有<font class=""LightgrayG12"">"&GuPageCount&"</font>篇文章</font>&nbsp;&nbsp;<font class=""LightgrayG12"">"&GuPageSize&"</font><font class=""BlackS12"">篇文章/页</font>"
	Response.write "&nbsp;&nbsp;<font class=""BlackS12"">页次:</font><font class=""BlueG12"">"&GuPage&"</font><font class=""BlackG12"">/"&GuPageTotal&"</font>"
	Response.write "&nbsp;&nbsp;<font class=""BlackS12"">转到:</font>"
	Response.write "<select name=""GuPage"" size=""1"" style=""height:10;"" class=""CSS_Select"" onChange=""JavaScript:window.open(this.options[this.selectedIndex].value,'_self')"">"
	for GuPagei=1 to GuPageTotal
		if GuPagei=GuPage then
			Response.write "<option value=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT="&Trim(Request.QueryString("OT"))&"&AD="&Trim(Request.QueryString("AD"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&GuPagei&""" selected>第"&GuPagei&"页</option>"
		else
			Response.write "<option value=""List.asp?So="&Trim(Request.QueryString("So"))&"&AS="&Trim(Request.QueryString("AS"))&"&CT="&Trim(Request.QueryString("CT"))&"&OT="&Trim(Request.QueryString("OT"))&"&AD="&Trim(Request.QueryString("AD"))&"&GuKeyword="&Trim(Request.QueryString("GuKeyword"))&"&GuPage="&GuPagei&""">第"&GuPagei&"页</option>"
		end if
	next
	Response.write "</select>"
%></td>
  </tr>
  <%end if%>
 </table></td>
 </tr>
</table>
</center>

<!--#include file="Include/Bottom.asp"-->

</body>
</html>

<%CloseDatabase%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -