📄 save.asp
字号:
<%
response.buffer="True"
If request.cookies("member")="" Then
Response.redirect"../"
End If
%>
<!--#include file="conn.asp"-->
<%
dim rs_t,sql_t,uID
uID=request.cookies("uID")
set rs_t=Server.CreateObject("Adodb.Recordset")
sql_t="select uID from vote where uID='"&uID&"'"
rs_t.open sql_t,conn,1,1
dim total
total=rs_t.recordcount
If total>=15 Then
response.write "<script>alert('每个会员只能申请15个调查。');history.back();</Script>"
rs_t.close
set rs_t=nothing
response.end
End If
rs_t.close
set rs_t=nothing
dim rs,sql
dim votename
dim s1,s2,s3,s4,s5,s6,s7,s8,s9,s10
votename=request.form("votename")
s1=request.form("s1")
s2=request.form("s2")
s3=request.form("s3")
s4=request.form("s4")
s5=request.form("s5")
s6=request.form("s6")
s7=request.form("s7")
s8=request.form("s8")
s9=request.form("s9")
s10=request.form("10")
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from vote where (voteID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("uID")=request.cookies("uID")
rs("votename")=votename
rs("s1")=s1
rs("s2")=s2
rs("s3")=s3
rs("s4")=s4
rs("s5")=s5
rs("s6")=s6
rs("s7")=s7
rs("s8")=s8
rs("s9")=s9
rs("s10")=s10
rs("date")=date()
rs("time")=time()
rs.update
response.cookies("voteID")=rs("voteID")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.cookies("mode")=request.form("mode")
response.cookies("ip")=request.form("ip")
response.redirect"success.asp"
%>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -