📄 list.asp
字号:
<!--#include file="config.asp"-->
<%
'程序设计by：杨敏:::
'QQ:343872146:::
'email:yangmin@whut.edu.cn:::
IF Request.QueryString("action")="add" Then
'添加
NewTitle=Request.Form("NewTitle")
NewType=cint(Request.Form("NewType"))
NewMin=cint(Request.Form("NewMin"))
NewMax=cint(Request.Form("NewMax"))
NewText=Request.Form("NewText")
NewText=Replace(NewText,"|","-")'不允许出现“|”号，因为这是专用符号:::
NewText=Replace(NewText,vbCrLf,"|")
i=0:j=0'统计NewText中“|”的个数，保存在j中:::
Do
i=instr(i+1,NewText,"|")
If i>0 Then j=j+1
Loop Until i=0
NewNum=j+1'选项的个数为j+1个:::
Call OpenConn
sql="SELECT Top 1 toupiao.* FROM toupiao;"
rs.open sql,conn,3,2
rs.AddNew
rs.Fields("tptitle")=NewTitle
rs.Fields("tptype")=NewType
rs.Fields("optnum")=NewNum
rs.Fields("minsel")=NewMin
rs.Fields("maxsel")=NewMax
rs.Fields("tptext")=NewText
rs.Update
Call CloseConn
'Response.Write j
Response.Redirect "list.asp"
ElseIf Request.QueryString("action")="delete" Then
Call OpenConn
sql="DELETE * FROM toupiao WHERE toupiao.id=" & Request.QueryString("id") & ";"
conn.execute(sql)
Response.Redirect "list.asp"
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票系统后台</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="758" border="1" cellpadding="3" cellspacing="0" bordercolor="#99CCFF">
<tr>
<td align="center" bgcolor="#99CCFF">已有投票</td>
</tr>
<tr>
<td><table width="100%" border="1" cellspacing="0" cellpadding="3" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr>
<td width="81%" align="center" class="33black">投票</td>
<td width="19%" align="center" class="33black">删除</td>
</tr>
<%
Call OpenConn
sql="SELECT toupiao.* FROM toupiao ORDER BY toupiao.id DESC;"
rs.Open sql,conn,3,2
If rs.bof and rs.eof Then
%>
<tr>
<td class="33black">暂无投票</td>
<td align="center" class="33black">无法删除</td>
</tr>
<%
Else
OnePage=10'每页条数
PageAll=int((rs.Recordcount-1)/OnePage)+1'计算页数:::
p=int(Request.QueryString("page"))'获取用户请求的页码:::
If p=0 Then p=1'调整页码:::
If p>PageAll Then p=PageAll'调整页码:::
i=0
IF rs.Recordcount>0 Then rs.Move (p-1)*OnePage'移动到该页第一条，rs中是从0开始计数的:::
While not rs.Eof and i<OnePage
%>
<tr>
<td class="33black">(<%=rs.fields("id")%>)<%=rs.fields("tptitle")%>(<%If rs.Fields("tptype")=1 Then Response.Write("单选") Else Response.Write("多选")%>，选项个数<%=rs.Fields("optnum")%>)</td>
<td align="center" class="33black"><a href="edit.asp?id=<%=rs.fields("id")%>">修改</a> <a href="list.asp?action=delete&id=<%=rs.fields("id")%>">删除</a></td>
</tr>
<%
i=i+1
rs.MoveNext
Wend
End If
%>
<tr>
<td colspan="2" align="right" class="33black">共<%=PageAll%>页 第<%=p%>页
<%If p>2 Then%><a href="uploadfile.asp?action=type&page=1">首页</a> <%Else%>首页 <%End If%>
<%If p>1 Then%><a href="uploadfile.asp?action=type&page=<%=p-1%>">上一页</a> <%Else%>上一页 <%End If%>
<%If p<PageAll Then%><a href="uploadfile.asp?action=type&page=<%=p+1%>">下一页</a> <%Else%>下一页 <%End If%>
<%If p<PageAll-1 Then%><a href="uploadfile.asp?action=type&page=<%=PageAll%>">最后一页</a><%Else%>最后一页<%End If%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="758" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="img/spacer.gif" width="2" height="6"></td>
</tr>
</table>
<table width="758" border="1" cellpadding="3" cellspacing="0" bordercolor="#99CCFF">
<tr>
<td align="center" bgcolor="#99CCFF">添加投票</td>
</tr>
<tr>
<td><form name="form1" method="post" action="list.asp?action=add">
<table width="100%" border="1" cellspacing="0" cellpadding="3" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr>
<td width="50%" class="33black"><b>投票标题：</b><br>
最多200字，汉字、字母、数字都算一个字。</td>
<td width="50%" class="33black"><input name="NewTitle" type="text" id="NewTitle"></td>
</tr>
<tr>
<td class="33black"><b>类别：</b><br>
单选或多选。</td>
<td class="33black"><input name="NewType" type="radio" value="1" checked>
单选
<input type="radio" name="NewType" value="2">
多选</td>
</tr>
<tr>
<td class="33black"><b>最少选择个数：</b><br>
可以限制用户最少要选择的个数，0表示不限制，<br>
对单选类型无效！ </td>
<td class="33black"><input name="NewMin" type="text" id="NewMin" value="0"></td>
</tr>
<tr>
<td class="33black"><b>最多选择个数：</b><br>
可以限制用户最多要选择的个数，0表示不限制，<br>
对单选类型无效！</td>
<td class="33black"><input name="NewMax" type="text" id="NewMax" value="0"></td>
</tr>
<tr>
<td valign="top" class="33black"><b>选项列表：</b><br>
用回车隔开所有可选项，<br>
所有可选项不允许包含竖线“|”，<br>
最后一个项后不用再加回车。</td>
<td class="33black"><textarea name="NewText" cols="40" rows="10" id="NewText"></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><table width="158" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<input name="submit" type="submit" class="button" value="添加"></td>
<td align="center">
<input name="reset" type="reset" class="button" value="重填"></td>
</tr>
</table></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%
set rs=nothing
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -