📄 it801.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
dim rs,sql
dim classid
dim classname
dim totalPut
dim CurrentPage
dim TotalPages
if request("classid")<>"" then
classid=request("classid")
else
classid=1
end if
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs = server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
if trim(request("Nclassid"))<>"" then
Nclassid=trim(request("Nclassid"))
sql="select * from ANclass where NclassID="&cstr(Nclassid)
rs.open sql,conn,1,1
if not rs.eof then
Nclassname=rs("Nclass")
end if
rs.close
else
Nclassid=""
Nclassname="全部短句"
end if
sql="select * from Aclass where classID="&cstr(classid)
rs.open sql,conn,1,1
if not rs.eof then
classname=rs("class")
end if
rs.close
%>
<html>
<head>
<title>短句中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
COLOR: #304618; FONT-SIZE: 12px
}
TD {
COLOR: #304618; FONT-SIZE: 12px
}
TH {
COLOR: #304618; FONT-SIZE: 12px
}
.p1 {
COLOR: #304618; FONT-SIZE: 12px
}
.p2 {
FONT-SIZE: 12px; LINE-HEIGHT: 140%
}
.p3 {
FONT-SIZE: 14px
}
.p4 {
FONT-SIZE: 14px; LINE-HEIGHT: 130%
}
.p5 {
FONT-SIZE: 7px
}
.p6 {
COLOR: #d0571f
}
.p7 {
COLOR: #6c8a14
}
.dm1 {
BACKGROUND-COLOR: #ffcc00
}
.dm2 {
BACKGROUND-COLOR: #ffeda6
}
.dm3 {
BACKGROUND-COLOR: #6c8a14
}
.dm4 {
BACKGROUND-COLOR: #d5ea95
}
.dm5 {
BACKGROUND-COLOR: #e6f1c5
}
.ds1 {
BACKGROUND-COLOR: #6c8a14
}
.ds2 {
BACKGROUND-COLOR: #a3d11a
}
.ds3 {
BACKGROUND-COLOR: #d5ea95
}
.dq1 {
BACKGROUND-COLOR: #e5b700
}
.dq2 {
BACKGROUND-COLOR: #ffcc00
}
.dq3 {
BACKGROUND-COLOR: #ffeda6
}
.dyy {
BACKGROUND-COLOR: #e6f1c5
}
.dw {
BACKGROUND-COLOR: #ffffff
}
.dgy {
BACKGROUND-COLOR: #d9d9d9
}
.dt1 {
BACKGROUND-COLOR: #e6e6e6; COLOR: #6c8a14
}
.dt2 {
BACKGROUND-COLOR: #f9fcef; COLOR: #6c8a14
}
A {
FONT-SIZE: 12px
}
A:link {
COLOR: #304618
}
A:visited {
COLOR: #3e5d1b
}
A:hover {
COLOR: #6c8a14
}
.wt {
COLOR: #ffffff; TEXT-DECORATION: none
}
A.wt:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
A.wt:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
A.wt:hover {
COLOR: #d5ea95
}
.bk {
COLOR: #000000; TEXT-DECORATION: none
}
A.bk:link {
COLOR: #000000; TEXT-DECORATION: none
}
A.bk:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A.bk:hover {
COLOR: #000000; TEXT-DECORATION: underline
}
A.bk1:link {
COLOR: #000000; TEXT-DECORATION: none
}
A.bk1:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A.bk1:hover {
COLOR: #000000
}
A.more:link {
COLOR: #d0571f; FONT-FAMILY: verdana; FONT-SIZE: 10px; FONT-STYLE: italic; FONT-WEIGHT: bold; TEXT-DECORATION: underline
}
A.more:visited {
COLOR: #d0571f; FONT-FAMILY: verdana; FONT-SIZE: 10px; FONT-STYLE: italic; FONT-WEIGHT: bold; TEXT-DECORATION: underline
}
A.more:hover {
COLOR: #ff0000; TEXT-DECORATION: underline
}
.t2 {
BACKGROUND: #c1ce9a; COLOR: #304618; FONT-SIZE: 12px
}
.111 {
BACKGROUND: #fff99d; BORDER-BOTTOM: #304618 1px solid; BORDER-LEFT: #d5ea95 1px solid; BORDER-RIGHT: #8f8f8f 1px solid; BORDER-TOP: #d5ea95 1px solid; COLOR: #304618; FONT-FAMILY: arial; FONT-SIZE: 12px
}
.222 {
BACKGROUND: #fff99d; BORDER-BOTTOM: #d5ea95 1px solid; BORDER-LEFT: #8f8f8f 1px solid; BORDER-RIGHT: #d5ea95 1px solid; BORDER-TOP: #304618 1px solid; COLOR: #304618; FONT-FAMILY: arial; FONT-SIZE: 12px
}
.send {
BACKGROUND-COLOR: #e6f1c5; BORDER-BOTTOM: #e6f1c5 1px solid; BORDER-LEFT: #e6f1c5 1px solid; BORDER-RIGHT: #e6f1c5 1px solid; BORDER-TOP: #e6f1c5 1px solid; FONT-SIZE: 12px
}
</STYLE>
</head>
<SCRIPT language=JavaScript src="window.js"></SCRIPT>
<body bgcolor="#FFFFFF" text="#000000" topMargin=0>
<div align="center">
<table border=0 cellpadding=0 cellspacing=0 class=menu1 width=750 align="center" bgcolor="#eeeeee">
<tbody>
<tr>
<td height=68 width=150><a href="http://www.it801.com" target="_blank"><img src="../images/bazhu.gif" width="150" height="78" border="0"></a></td>
<td height=68 width=491>
<div align="center"><a href="http://www.it801.com" target="_blank"><img src="../images/banner.gif" width="480" height="60" border="0"></a></div>
</td>
<td width="109">
<div align=center><font color=#000000><br>
<a href="801news/2002621125933.htm" target="_blank">成立宗旨</a><br>
<a
class=bz
href="javascript:window.external.addFavorite('http://www.it801.com/','801工作室')">加入书签</a><br>
精品广告<br>
</font></div>
</td>
</tr>
</tbody>
</table>
</div>
<div>
<table border="0" cellpadding="0" cellspacing="0" width="750" align="center">
<center>
<tr>
<td height="2" valign="top" bgcolor="#00006A"> </td>
</tr>
</center>
<tr>
<center>
<td width="750" height="16" bgcolor="#fef8d8" valign="bottom">
<%
sql="select class,classid from Aclass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何栏目"
else
do while not rs.eof
%>
| <a href="more_sms_it801.asp?classid=<%=rs("classid")%>">
<%if cint(rs("classid"))=cint(classid) then%>
<font color=red><%=rs("class")%></font>
<%else%>
<%=rs("class")%>
<%end if%>
</a>
<%
rs.movenext
loop
end if
rs.close
%>
</td>
</center>
</tr>
<center>
<tr>
<td height="2" valign="top" bgcolor="#00006A"> </td>
</tr>
</center>
</table>
<table width="749" border="0" cellspacing="0" cellpadding="0" align="center" height="233">
<tr>
<td width="120" height="51" bgcolor="#fef8d8">
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
</td>
<td width="630" height="51">
<table align=left border=0 cellpadding=0 cellspacing=0 width=100% class="bk">
<tbody>
<tr>
<td width=205></td>
<td width=10></td>
<td width=205></td>
<tr>
<td colspan=3 height="62">
<table border=0 cellpadding=0 cellspacing=0 width="100%" height="8">
<tr>
<form name="searchsoft" method="POST" action=search.asp>
<td colspan=6 align=middle height="22" bgcolor="#fef8d0">
<div align="left">请输入短句关键字：
<input class=smallInput type="text" name="txtitle" size="12">
<input type="submit" value="查询" name="title">
</div>
</td>
</form>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" class="bk">
<tr>
<td bgcolor="#E1E1E1"> <%=classname%>>>
<%if Nclassid="" then%>
全部短句
<%else%>
<%=Nclassname%>
<%end if%>
<br>
 
<%if Nclassid="" then%>
<%=Nclassname%>>>
<%
sql="select * from ANclass where classid="&classid
rs.open sql,conn,1,1
do while not rs.eof
response.write " <a href=it801.asp?classid="&classid&"&Nclassid="&rs("Nclassid")&">"&rs("Nclass")&"</a>"
rs.movenext
loop
rs.close
else
%>
<font color=red><%=Nclassname%></font>
<%
sql="select * from ANclass where Nclassid<>"&Nclassid&" and classid="&classid
rs.open sql,conn,1,1
do while not rs.eof
response.write " <a href=it801.asp?classid="&classid&"&Nclassid="&rs("Nclassid")&">"&rs("Nclass")&"</a>"
rs.movenext
loop
rs.close
%>
</td>
</tr>
</table>
<br>
</td>
</tr>
<%end if%>
<tr>
<td colspan=3 height="29">
<div align="left"></div>
<table width="99%" border="0" cellspacing="1" bordercolor="#CCCCCC" cellpadding="0" bgcolor="#009900" height="51" class="bk">
<tr align="center">
<td width="7%" bgcolor="#E1E1E1">
<div>编号</div>
</td>
<td width="51%" bgcolor="#E1E1E1"> 内容</td>
<td width="15%" bgcolor="#E1E1E1"> 原作者</td>
<td width="16%" bgcolor="#E1E1E1"> 更新时间</td>
<td width="11%" bgcolor="#E1E1E1"> 人气</td>
</tr>
<%
if Nclassid<>"" then
sql="select * from articles where Nclassid="+cstr(Nclassid)+" and classid="+cstr(classid)+" order by articleid desc"
else
sql="select * from articles where classid="+cstr(classid)+" order by articleid desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 没有或没有找到任何短句</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"index.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
showContent
showpage totalput,MaxPerPage,"index.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"index.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
do while not rs.eof
%>
<tr align="center">
<td width="7%" height="36" bgcolor="#FFFFFF"><%=i+1%></td>
<td width="51%" height="36" bgcolor="#FFFFFF">
<div align="left"> <a href="javascript:openwin('sendsms.asp?id=<%=rs("articleid")%>','top=10,left=80,width=380,height=250')">
<%if len(rs("title"))>22 then%>
<%=left(rs("title"),22)%>...
<%else%>
<%=rs("title")%>
<%end if%>
</a></div>
</td>
<td width="15%" height="36" bgcolor="#FFFFFF">
<%if not isnull(rs("writer")) then%>
<%=rs("writer")%>
<%else%>
不详
<%end if%>
</td>
<td width="16%" height="36" bgcolor="#FFFFFF">
<%if rs("dateandtime")=date() then%>
<font color=red><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</font>
<%else%>
<font color='#999999'><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</font>
<%end if%>
</td>
<td width="11%" height="36" bgcolor="#FFFFFF"><font color=green><%=rs("hits")%></font></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
%>
<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&"?classid="&request("classid")&"&Nclassid="&request("Nclassid")&">"
response.write " <font color='red'>"&Nclassname&"</font>"
if CurrentPage<2 then
response.write " 共"&totalnumber&"条 首页 上一页 "
else
response.write ""&totalnumber&"个 <a href="&filename&"?page=1&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条短句/页 "
%>
跳转：
<select name='page' size='1' onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if cint(Page)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<%
end function
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<table align=center border=0 cellpadding=0
cellspacing=0 width=100% class="unnamed2">
<tbody>
<tr>
<td height=65 width="712">
<div align="center">
<hr align="center" size="1">
<p>| <a href="http://www.it801.com/tech/2002624162639.htm" target="_blank">检索帮助</a>
| <a href="http://sms.it801.com">手机短信</a>| <a href="http://www.it801.com/Operation/2002624161957.htm">联系我们</a>
| <a href="http://bbs.it801.com/reg.asp">我要注册</a> |</p>
<p><br>
工作室成员：网际飞鱼、霸猪、冰阳、流浪狗、笨狐狸、小老鼠</p>
</div>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -