updateeng.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 82 行

ASP
82 行
字号 
<%

'首先判断用户是否选择了投票选项,如果没有选择,则返回到投票页面
if Request.Form("polli") = "" then
	Response.Redirect ("poll.asp")
end if

cook = request.cookies("poll")

'判断该用户是否已经投票过,如果没有投票,则设置过期日期
If cook = "" Then
	response.cookies("poll").Expires = date + 30
	response.cookies("poll") = "polli"  '保存cookies
End If

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="stili.css" type="text/css">
<title>Poll - update database</title>
</head>

<body>
<%
'如果没有投票过.
if cook = "" then
%>

<%  
	'创建Connection
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=SQLOLEDB;data source=(local);initial catalog=vote;user id=sa;password=;"
	'查询出用户选择答案的详细信息...
	sql = "SELECT * FROM vote where answer = '" & Request.form("polli") & "'"
	set rs = server.CreateObject ("ADODB.Recordset")
	rs.Open sql, conn, 3, 3	
%>

<%  
	'将投票数据增加1
	a = rs.Fields("novote")
	a = int(a) + int(1)
	rs.Fields("novote") = a
	'保存数据.
	rs.Update
%>


<%	'关闭数据库连接..
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
%>

<%
'after update redirect to vote results...
Response.Redirect("vote.asp?sql=" & (Request.QueryString("title")))
%>

<%
else
%>
<table width="200" border="1" cellspacing="0" align="center" style="border-collapse: collapse" cellpadding="10" bordercolor="#000000">
	<tr> 
	<td bgcolor="#ADD8E6" align="center"><span class="nortxtv10">
	<font color="#FF0000"><b>你</b></font><font color="red"><b>已经投票成功!</b>
	</font><p></p>
	谢谢!<p></p><a href="javascript:history.go(-1)">返回</a></span></td>
	</tr>
</table>
<%
end if
%>

</body>
</html>

updateeng.asp - 源码说明

本页面展示了「ASP+SQL Server动态网站开发从基础到实践教程」中的 updateeng.asp 源码文件，采用 ASP 编程语言编写，共 82 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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