📄 list_vote_option.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>
<%
session("sqlString") = "select * from vote_option where title_id = " & Request("id")
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">
<tr bgcolor="#dddddd">
<td align="center"> </td>
<td align="center">投票选项 </td>
<td align="center">投票数</td>
<td align="center">其他说明</td>
<td align="center"> </td>
<td align="center"> </td>
<% If true Then %>
<% End If %>
</tr>
<%
for i = 1 to session("rs").pagesize
if not session("rs").eof then
%>
<form action="../admin/admin_vote_option.asp" method="post" name="frm_vote_option<%= i %>">
<tr>
<td align="center"> <input name="vote_radio" type="radio" value="true" disabled></td>
<td><input name="option" type="text" id="option" value="<%=session("rs")("option") %>">
</td>
<td><input name="vote_num" type="text" value="<%= session("rs")("vote_num") %>" style="width:40;"></td>
<td><input type="text" name="memo" style="width:60;"></td>
<td><input name="按钮" type="button" onClick="window.open('../admin/admin_vote_option.asp?id=<%= session("rs")("id") %>','_self')" value="修 改"></td>
<td><input name="按钮2" type="button" onClick="if(window.confirm('确定要删除该投票选项吗？')) window.open('../admin/del_vote_option.asp?id=<%= session("rs")("id") %>','_self');" value="删 除"></td>
<% If true Then %>
<% End If %>
</tr>
</form>
<%
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
session("sqlString") = ""
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -