opsave.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 39 行

ASP
39 行
字号 
<!-- #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>

opsave.asp - 源码说明

本页面展示了「Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明」中的 opsave.asp 源码文件，采用 ASP 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Active相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?