📄 opsave.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<!-- #include virtual="/kjasp/func/CCookies.fun" -->
<%
If Not IsCookiesOpen Then
ErrMsg = "本网页须使用 Cookies 功能，请先打开 Cookies!"
End If
If Request.Cookies("Filled") = "Yes" Then
ErrMsg = "您已经填过问卷，每个人只要填一次就好，辛苦您了!"
End If
If ErrMsg = Empty Then
Set rs = GetMdbRecordset("Opinion.mdb", "Title")
While Not rs.EOF
OpSelect = Request("Seq" & rs("Seq"))
rs( OpSelect ) = rs( OpSelect ) + 1
rs.Update
rs.MoveNext
Wend
Response.Cookies("Filled") = "Yes"
ExpireDate = DateAdd("d", 2, Date)
Response.Cookies("Filled").Expires = FormatDateTime(ExpireDate)
Response.Redirect "OpShow.asp"
End If
%>
<HTML>
<BODY Background="../B01.jpg">
<CENTER>
<%=ErrMsg%><HR>
<FORM><INPUT Type=Button Value="返回上一页" OnClick="history.back();">
</FORM>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -