📄 list.asp

📁 浪人文章系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLUser.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockUser.asp"-->
<!--#include file="Include/Style.asp"-->

<%
	dim GuPage,GuPageSize,GuPageTotal,GuPageCount,GuPageStart
	dim OT,AD

	GuPageSize=ListPageSize
	GuPageTotal=1

	GuPage=Trim(Request.QueryString("GuPage"))
	if GuPage<>"" then
		GuPage=Cint(GuPage)
	else
		GuPage=1
	end if


	select case Trim(Request.QueryString("OT"))
	case "Name"
		OT="Ar_Name"
	case "AllHits"
		OT="Ar_AllHits"
	case "DateTime"
		OT="Ar_DateTime"
	case else
		OT="Ar_DateTime"
	end select

	if Trim(Request.QueryString("AD"))="asc" then
		AD="asc"
	else
		AD="desc"
	end if


	GuKeyword=Trim(Request.QueryString("GuKeyword"))

	if not isnull(GuKeyword) and GuKeyword<>"" then
		GuKeyword=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(GuKeyword,"'","’"),"<","＜"),">","＞"),"&","＆"),"?","？"),"delete","删除"),"update","更新"),"insert","插入"),"select","选择")
	else
		GuKeyword=""
	end if

	dim SortID,AsSortID
	dim So_Name,AS_Name,ArticleSortName

	if Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))<>"" then
		SortID=" Ar_SortID="&Trim(Request.QueryString("So"))&" and  "
		AsSortID=" Ar_AsSortID="&Trim(Request.QueryString("AS"))&" "
		dim rsLi1
		set rsLi1=Server.CreateObject("Adodb.RecordSet")
		GuSQL="select * from "&GuTablePrefix&"_AsSort where AS_ID="&Trim(Request.QueryString("AS"))
		rsLi1.open GuSQL,GuConn,1,1
			ArticleSortName=rsLi1("AS_Name")
			AS_Name=rsLi1("AS_Name")
		rsLi1.close
		set rsLi1=Nothing
		end if

	if Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))="" then
		SortID="Ar_SortID="&Trim(Request.QueryString("So"))&" "
		dim rsLi5
		set rsLi5=Server.CreateObject("Adodb.RecordSet")
		GuSQL="select So_Name from "&GuTablePrefix&"_Sort where So_ID="&Trim(Request.QueryString("So"))
		rsLi5.open GuSQL,GuConn,1,1
			ArticleSortName=rsLi5("So_Name")
			So_Name=rsLi5("So_Name")
		rsLi5.close
		set rsLi5=Nothing
	end if

	if Trim(Request.QueryString("So"))="" and Trim(Request.QueryString("AS"))="" then
		SortID=""
		AsSortID=""
		ArticleSortName="所有分类"
	end if
%>

<html>
<head>
<title>文章列表__<%=WebSiteName%></title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="<%=WebSiteMKeywords%>">
<meta name="Description" Content="<%=WebSiteMDescription%>">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<link type="text/css" rel="stylesheet" href="Style/<%=WebSiteStyle%>/Style.css">
<Script Language="JavaScript" src="Include/PopText.js"></Script>
</head>

<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">

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

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

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

<center>
<table border="0" cellpadding="0" cellspacing="1" width="780" height="10" class="T_BGColor_1">
 <tr>
  <td width="205" class="T_TD_BGColor_1_1" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%" height="10">
  <tr>
	<td height="8"></td>
  </tr>
  <%if ListSearchShow="1" then%>
  <tr>
	<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Search.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=ListSearchTitle%></font></td></tr></table></td>
  </tr>
  <tr>
	<td height="10" align="center" valign="top"><!--#include file="Include/Search.asp"--></td>
  </tr>
  <%end if%>
  <tr>
	<td height="1" align="center" valign="top"><!--#include file="Include/Ads7.asp"--></td>
  </tr>
  <%if Trim(Request.QueryString("So"))<>"" then%>
  <tr>
	<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_AsSort.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=ListAsSortTitle%></font></td></tr></table></td>
  </tr>
  <tr>
	<td height="10" valign="top"><%
	dim rsLi2
	set rsLi2=Server.CreateObject("Adodb.RecordSet")

	GuSQL="select * from "&GuTablePrefix&"_AsSort where AS_SortID="&Trim(Request.QueryString("So"))&" order by AS_Order asc"
	rsLi2.open GuSQL,GuConn,1,1
	if rsLi2.bof and rsLi2.eof then
		Response.write "<br>&nbsp;&nbsp;<font class=""SilverS12"">没有找到分类数据</font><br><br>"
	else
		Response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""180"" height=""10"">"
		do while not rsLi2.eof
		if cstr(rsLi2("AS_ID"))=Trim(Request.QueryString("AS")) then
			Response.write "<tr><td width=""40"" height=""22"" align=""right""><img border=""0"" src=""Style/"&WebSiteStyle&"/Td_Sort_Title.gif"" width=""18"" height=""22""></td><td width=""140"" height=""22""><a href=""List.asp?So="&rsLi2("AS_SortID")&"&AS="&rsLi2("AS_ID")&""" class=""BlueS12"">"&rsLi2("AS_Name")&"</a> <font class=""BlueG12"">["&rsLi2("AS_Number")&"]</font></td></tr>"
			Response.write "<tr><td width=""180"" height=""1"" colspan=""2"" background=""Style/"&WebSiteStyle&"/Td_Sort_Line.gif""></td></tr>"
		else
			Response.write "<tr><td width=""40"" height=""22"" align=""right""><img border=""0"" src=""Style/"&WebSiteStyle&"/Td_Sort_Title.gif"" width=""18"" height=""22""></td><td width=""140"" height=""22""><a href=""List.asp?So="&rsLi2("AS_SortID")&"&AS="&rsLi2("AS_ID")&""" class=""BlackS12"">"&rsLi2("AS_Name")&"</a> <font class=""SilverG12"">["&rsLi2("AS_Number")&"]</font></td></tr>"
			Response.write "<tr><td width=""180"" height=""1"" colspan=""2"" background=""Style/"&WebSiteStyle&"/Td_Sort_Line.gif""></td></tr>"
		end if
		rsLi2.movenext
		loop
		Response.write "</table>"
	end if
		rsLi2.close
		set rsLi2=Nothing
%></td>
  </tr>
  <%end if%>
  <%if ListHitsShow="1" then%>
  <tr>
	<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Hits.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=ListHitsTitle%></font></td></tr></table></td>
  </tr>
  <tr>
	<td height="10"><%
	dim rsWeekHits
	set rsWeekHits=Server.CreateObject("Adodb.RecordSet")

	if Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))<>"" then
		GuSQL="select top "&ListHitsNum&" Ar_ID,Ar_Name,Ar_NameColor,Ar_DateTime,Ar_WeekHits from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and "&SortID&" "&AsSortID&" order by Ar_WeekHits desc,Ar_ID desc"
	elseif Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))="" then
		GuSQL="select top "&ListHitsNum&" Ar_ID,Ar_Name,Ar_NameColor,Ar_DateTime,Ar_WeekHits from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and "&SortID&" order by Ar_WeekHits desc,Ar_ID desc"
	else
		GuSQL="select top "&ListHitsNum&" Ar_ID,Ar_Name,Ar_NameColor,Ar_DateTime,Ar_WeekHits from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' order by Ar_WeekHits desc,Ar_ID desc"
	end if

	rsWeekHits.open GuSQL,GuConn,1,1

	if rsWeekHits.eof and rsWeekHits.bof then
		Response.write "<br>&nbsp;&nbsp;<font class=""SilverS12"">没有找到相关数据</font><br><br>"
	else
		do while not rsWeekHits.eof
		Response.write "&nbsp;<img src=""Style/"&WebSiteStyle&"/Title_02.gif"" border=""0""><a href=""Article.asp?ID="&rsWeekHits("Ar_ID")&""" style=""color:"&rsWeekHits("Ar_NameColor")&""" class=""BlackV12"" title="""&rsWeekHits("Ar_Name")&"&nbsp;&nbsp;"&rsWeekHits("Ar_DateTime")&""">"&GuStringCut(rsWeekHits("Ar_Name"),24)&"</a><br>"
		rsWeekHits.movenext
		loop
	end if
	rsWeekHits.close
	set rsWeekHits=Nothing
%></td>
  </tr>
  <%end if%>
 </table></td>
12 下一页
⌨️ 快捷键说明

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