📄 pollsystemok.asp
字号:
<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
nickname=Session("hxf_u_nickname")
if nickname="" then Response.Redirect "manerr.asp?id=100"
If Int(Session("hxf_u_grade")) <> 12 Then Response.Redirect "manerr.asp?id=300"
f1 = Request.Form("f1")
f2 = Trim(Request.Form("f2"))
f3 = Trim(Request.Form("f3"))
f4 = Request.Form("f4")
f5 = Request.Form("f5")
f6 = Request.Form("f6")
f7 = Request.Form("f7")
If f2 = "" Or f3 = "" Or f4 = "" Then Response.Redirect "manerr.asp?id=248"
If Not IsDate(f2) Or Len(f2) <> 19 Then Response.Redirect "manerr.asp?id=280"
If Not IsDate(f3) Or Len(f3) <> 19 Then Response.Redirect "manerr.asp?id=281"
If Not IsNumeric(f4) Then Response.Redirect "manerr.asp?id=283"
If Not IsNumeric(f5) Then Response.Redirect "manerr.asp?id=311"
If Not IsNumeric(f6) Then Response.Redirect "manerr.asp?id=312"
If Not IsNumeric(f7) Then Response.Redirect "manerr.asp?id=313"
poll = Split(Application("wsaxhxf_c_pollending"), "{]")
poll(1) = f2
poll(2) = f3
poll(3) = f4
poll(4) = f5
poll(5) = f6
poll(6) = f7
newpoll = Join(poll, "{]")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "SELECT value FROM system WHERE name = 'pollending'"
rs.Open sql, conn, 1, 3
rs("value") = newpoll
rs.Update
rs.Close
sql = "SELECT value FROM system WHERE name = 'pollaffiche'"
rs.Open sql, conn, 1, 3
rs("value") = f1
rs.Update
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.Lock
Application("wsaxhxf_c_pollending") = newpoll
Application("wsaxhxf_c_pollaffiche") = f1
Application.UnLock
%>
<html>
<head>
<title>投票系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function check(){
f2v = document.send.f2.value;
f3v = document.send.f3.value;
f4v = document.send.f4.value;
if(f2v.length != 19){
alert("投票开始日期格式有误！");
return false;
}
if(f3v.length != 19){
alert("投票结束日期格式有误！");
return false;
}
if(Math.floor(f4v) != f4v){
alert("最低投票分数格式有误！");
return false;
}
}
</script>
</head>
<body bgcolor="FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【投票系统】</font></h1>
<font color="#FF0000">【投票系统设置】</font></div>
<hr noshade size="1" color=009900>
<div align=center class=cp></div>
<b>[操作完成]</b> <br>
参数设置完成。<br>
<hr noshade size="1" color=009900>
<div align=center><a href="javascript:history.go(-1)">【返回】</a></div>
<hr noshade size="1" color=009900>
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -