📄 admin_vote.asp
字号:
If isEdit Then
Response.Write "投票数：<input type=text name=ChooseNum_3 size=10 value="""
Response.Write Rs("ChooseNum_3")
Response.Write """>"
End If
Response.Write "</TD>" & vbNewLine
Response.Write "</TR>" & vbNewLine
Response.Write "<TR height=""22"">" & vbNewLine
Response.Write " <TD noWrap align=""right"" class=TableRow2>投票选项4：</TD>" & vbNewLine
Response.Write " <TD class=TableRow1><input type=text name=Choose_4 size=20 value="""
If isEdit Then
Response.Write Rs("Choose_4")
End If
Response.Write """> " & vbNewLine
Response.Write " "
If isEdit Then
Response.Write "投票数：<input type=text name=ChooseNum_4 size=10 value="""
Response.Write Rs("ChooseNum_4")
Response.Write """>"
End If
Response.Write "</TD>" & vbNewLine
Response.Write "</TR>" & vbNewLine
Response.Write "<TR height=""22"">" & vbNewLine
Response.Write " <TD noWrap align=""right"" class=TableRow2>投票选项5：</TD>" & vbNewLine
Response.Write " <TD class=TableRow1><input type=text name=Choose_5 size=20 value="""
If isEdit Then
Response.Write Rs("Choose_5")
End If
Response.Write """> " & vbNewLine
Response.Write " "
If isEdit Then
Response.Write "投票数：<input type=text name=ChooseNum_5 size=10 value="""
Response.Write Rs("ChooseNum_5")
Response.Write """>"
End If
Response.Write "</TD>" & vbNewLine
Response.Write "</TR>" & vbNewLine
Response.Write "<TR height=""22"">" & vbNewLine
Response.Write " <TD noWrap align=""right"" class=TableRow2>背景颜色：</TD>" & vbNewLine
Response.Write " <TD class=TableRow1><input type=text name=bgcolor size=10 value="""
If isEdit Then
Response.Write Rs("bgcolor")
Else
Response.Write "FFFFFF"
End If
Response.Write """> " & vbNewLine
Response.Write " 如：FFFFFF 不用加"<font color=""#FF3300"">#</font>"</TD>" & vbNewLine
Response.Write "</TR>" & vbNewLine
Response.Write "<TR height=""22"">" & vbNewLine
Response.Write " <TD noWrap align=""right"" class=TableRow2>字体颜色：</TD>" & vbNewLine
Response.Write " <TD class=TableRow1><input type=text name=FontColor size=10 value="""
If isEdit Then
Response.Write Rs("FontColor")
Else
Response.Write "000000"
End If
Response.Write """> " & vbNewLine
Response.Write " 如：000000 不用加"<font color=""#FF3300"">#</font>"</TD>" & vbNewLine
Response.Write "</TR>" & vbNewLine
Response.Write "<TR height=""22"">" & vbNewLine
Response.Write " <TD noWrap align=""right"" class=TableRow2>字体大小：</TD>" & vbNewLine
Response.Write " <TD class=TableRow1><input type=text name=FontSize size=10 value="""
If isEdit Then
Response.Write Rs("FontSize")
Else
Response.Write "12"
End If
Response.Write """> " & vbNewLine
Response.Write " 单位px 如：这是12px <span style=""font-size:14px"">这是14px</span>,只输入数字</TD>" & vbNewLine
Response.Write "</TR>" & vbNewLine
Response.Write "<TR height=""22"">" & vbNewLine
Response.Write " <TD noWrap align=""right"" class=TableRow2>总投票数：</TD>" & vbNewLine
Response.Write " <TD class=TableRow1><input type=text name=VoteNum size=10 value="""
If isEdit Then
Response.Write Rs("VoteNum")
Else
Response.Write "0"
End If
Response.Write """></TD>" & vbNewLine
Response.Write "</TR>" & vbNewLine
Response.Write "<TR height=""22"">" & vbNewLine
Response.Write " <TD noWrap align=""right"" class=TableRow2>是否锁定：</TD>" & vbNewLine
Response.Write " <TD width=""85%"" class=TableRow1>" & vbNewLine
Response.Write " <input type=""radio"" name=""isLock"" value=""0"" title=""设置单选投票"" "
If isEdit Then
If CInt(Rs("isLock")) = 0 Then
Response.Write "checked"
End If
Else
Response.Write "checked"
End If
Response.Write ">否 " & vbNewLine
Response.Write " <input type=""radio"" name=""isLock"" value=""1"" title=""设置多选投票"" "
If isEdit Then
If CInt(Rs("isLock")) = 1 Then
Response.Write "checked"
End If
End If
Response.Write ">是</TD>" & vbNewLine
Response.Write "</TR>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td height=""22"" align=""right"" class=""TableRow2""> </td>" & vbNewLine
Response.Write " <td align=""center"" class=""TableRow1"">" & vbNewLine
Response.Write " <input type=""button"" name=""Submit1"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=button> " & vbNewLine
Response.Write " <input type=reset name=Submit2 class=button value=""清 除""> " & vbNewLine
Response.Write " <input type=Submit class=button value=""保存投票"" name=Submit> " & vbNewLine
Response.Write " </td>" & vbNewLine
Response.Write " </tr></form>" & vbNewLine
Response.Write "</table>" & vbNewLine
If isEdit Then
Rs.Close
Set Rs = Nothing
End If
End Sub
Private Sub SaveVote()
'保存新的投票
If Trim(Request.Form("topic")) = "" Then
Founderr = True
ErrMsg = ErrMsg + "<li>投票主题不能为空！</li>"
Exit Sub
End If
If Founderr = False Then
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from NC_Vote where (id is null)"
Rs.Open SQL, Conn, 1, 3
Rs.addnew
Rs("Topic") = Request.Form("Topic")
Rs("Choose_1") = Request.Form("Choose_1")
Rs("Choose_2") = Request.Form("Choose_2")
Rs("Choose_3") = Request.Form("Choose_3")
Rs("Choose_4") = Request.Form("Choose_4")
Rs("Choose_5") = Request.Form("Choose_5")
Rs("ChooseNum_1") = 0
Rs("ChooseNum_2") = 0
Rs("ChooseNum_3") = 0
Rs("ChooseNum_4") = 0
Rs("ChooseNum_5") = 0
Rs("isLock") = Request.Form("isLock")
Rs("bgcolor") = Request.Form("bgcolor")
Rs("FontColor") = Request.Form("FontColor")
Rs("FontSize") = Request.Form("FontSize")
Rs("VoteTime") = Now
Rs("VoteNum") = 0
Rs("VoteType") = Request.Form("VoteType")
Rs("ChannelID") = 0
Rs.Update
Rs.Close
Set Rs = Nothing
Succeed ("<li>添加" & Request.Form("topic") & "成功!</li>")
End If
End Sub
Private Sub ModifyVote()
'修改投票
If Trim(Request.Form("topic")) = "" Then
Founderr = True
ErrMsg = ErrMsg + "<li>投票主题不能为空！</li>"
Exit Sub
End If
If Founderr = False Then
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from NC_Vote where id=" & Request.Form("id")
Rs.Open SQL, Conn, 1, 3
Rs("Topic") = Request.Form("Topic")
Rs("Choose_1") = Request.Form("Choose_1")
Rs("Choose_2") = Request.Form("Choose_2")
Rs("Choose_3") = Request.Form("Choose_3")
Rs("Choose_4") = Request.Form("Choose_4")
Rs("Choose_5") = Request.Form("Choose_5")
Rs("ChooseNum_1") = Request.Form("ChooseNum_1")
Rs("ChooseNum_2") = Request.Form("ChooseNum_2")
Rs("ChooseNum_3") = Request.Form("ChooseNum_3")
Rs("ChooseNum_4") = Request.Form("ChooseNum_4")
Rs("ChooseNum_5") = Request.Form("ChooseNum_5")
Rs("isLock") = Request.Form("isLock")
Rs("bgcolor") = Request.Form("bgcolor")
Rs("FontColor") = Request.Form("FontColor")
Rs("FontSize") = Request.Form("FontSize")
Rs("VoteNum") = Request.Form("VoteNum")
Rs("VoteType") = Request.Form("VoteType")
'Rs("ChannelID") = 0
Rs.Update
Rs.Close
Set Rs = Nothing
Succeed ("<li>修改" & Request.Form("topic") & "成功!</li>")
End If
End Sub
Private Sub DelVote()
'删除投票
Newasp.Execute ("delete from NC_Vote where id in (" & selVoteid & ")")
End Sub
Private Sub isLock()
'锁定投票
Newasp.Execute ("update NC_Vote set isLock=1 where id in (" & selVoteid & ")")
End Sub ' islock
Private Sub noLock()
'解除锁定
Newasp.Execute ("update NC_Vote set isLock=0 where id in (" & selVoteid & ")")
End Sub
Private Sub setRadio()
'设置单选投票
Newasp.Execute ("update NC_Vote set VoteType=0 where id in (" & selVoteid & ")")
End Sub
Private Sub setCheckbox()
'设置多选投票
Newasp.Execute ("update NC_Vote set VoteType=1 where id in (" & selVoteid & ")")
End Sub
Private Sub showpage()
Dim FileName
Dim n
Dim ii
' 分页
FileName = "admin_vote.asp"
If totalnumber Mod maxperpage = 0 Then
n = totalnumber \ maxperpage
Else
n = totalnumber \ maxperpage + 1
End If
Response.Write "<table cellspacing=1 width='100%' border=0><form method=Post action=" & FileName & "><tr><td align=center> " & vbCrLf
If CurrentPage < 2 Then
Response.Write "投票主题 <font COLOR=#FF0000><B>" & totalnumber & "</B></font> 首 页 上一页 "
Else
Response.Write "投票主题 <font COLOR=#FF0000><B>" & totalnumber & "</B></font> <a href=" & FileName & "?page=1>首 页</a> "
Response.Write "<a href=" & FileName & "?page=" & CurrentPage - 1 & ">上一页</a> "
End If
If n - CurrentPage < 1 Then
Response.Write "下一页 尾 页 " & vbCrLf
Else
Response.Write "<a href=" & FileName & "?page=" & (CurrentPage + 1) & ">下一页</a>"
Response.Write " <a href=" & FileName & "?page=" & n & ">尾 页</a>" & vbCrLf
End If
Response.Write " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
Response.Write " 转到："
Response.Write " <select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:submit()'>" & vbCrLf
For ii = 1 To n
Response.Write "<option value='" & ii & "' "
If CurrentPage = Int(ii) Then
Response.Write "selected "
End If
Response.Write ">第" & ii & "页</option>"
Next
Response.Write " </select> " & vbCrLf
Response.Write "</td></tr></FORM></table>" & vbCrLf
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -