📄 list.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim iPage,i
if Request.QueryString("page") <> "" then
iPage = CInt(Request.QueryString("page"))
else
iPage = 1
end if
if session("sqlString") <> "" then
'if recordset is open close it, &H00000001 = AdStateOpen
if session("rs").state = &H00000001 then
session("rs").close
end if
session("rs").pagesize = 10
session("rs").cursorlocation = adUseClient
session("rs").open session("sqlString"),session("conn"),adOPenForwardOnly,adLockReadOnly
if not session("rs").eof then
if iPage = 0 or iPage > session("rs").pagecount then
session("rs").absolutepage = session("rs").pagecount
else
session("rs").absolutepage = iPage
end if
%>
<table width="450" border="0" align="center" cellpadding="1" cellspacing="1">
<%
if session("rs").pagecount > 1 then
response.write " <tr align=""center""> " & vbCrLf
response.write " <td> </td>" & vbCrLf
response.write " <td align=""right"">" & vbCrLf
for i= 1 to session("rs").pagecount
if i = iPage then
Response.Write("[<strong>"&i&"</strong>] ")
else
Response.Write("[<a href='"&request.ServerVariables("PATH_INFO")&"?page="&i&"'>"&i&"</a>] ")
end if
next
response.write " </td>" & vbCrLf
response.write " <td> </td>" & vbCrLf
response.write " </tr>" & vbCrLf
end if
%>
<tr align="center">
<td> </td>
<td> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<%
for i = 1 to session("rs").pagesize
if not session("rs").eof then
%>
<tr>
<td width="5%" align="center"> <font color="#0000FF"><strong>*</strong></font></td>
<td width="49%"> <a href="#" onClick="window.open('../vote/show_vote.asp?id=<%= session("rs")("id") %>','','scrollbars=yes,width=600,height=400')"><%=CutString( session("rs")("title"),18) %></a></td>
<td width="26%"><%= CutDate(session("rs")("time")) %></td>
<% If true Then %>
<td width="10%"><input name="°´Å¥" type="button" onClick="window.open('../admin/edit_vote.asp?id=<%= session("rs")("id") %>','_self')" value="修 改"></td>
<td width="10%"><input name="°´Å¥" type="button" onClick="if(window.confirm('确定要删除该投票主题吗？')) window.open('../admin/del_vote_title.asp?id=<%= session("rs")("id") %>','_self');" value="删 除"></td>
<% End If %>
</tr>
<%
session("rs").MoveNext
end if
next
%>
</table></td>
<td> </td>
</tr>
<%
if session("rs").pagecount > 1 then
response.write " <tr align=""center""> " & vbCrLf
response.write " <td> </td>" & vbCrLf
response.write " <td align=""right"">" & vbCrLf
for i= 1 to session("rs").pagecount
if i = iPage then
Response.Write("[<strong>"&i&"</strong>] ")
else
Response.Write("[<a href='"&request.ServerVariables("PATH_INFO")&"?page="&i&"'>"&i&"</a>] ")
end if
next
response.write " </td>" & vbCrLf
response.write " <td> </td>" & vbCrLf
response.write " </tr>" & vbCrLf
end if
%>
</table>
<%
end if
session("rs").close
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -