editballot.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 59 行

ASP
59 行
字号 
<!--#include file="conn.asp" -->
<!--#include file="../checkuser.asp" -->
<%
If(Request.ServerVariables("REQUEST_METHOD")="POST") Then
	ballottop=request.form("ballottop")
	mymode=request.form("mymode")
	ballot1=request.form("ballot1")
	ballot2=request.form("ballot2")
	ballot3=request.form("ballot3")
	ballot4=request.form("ballot4")
	ballot5=request.form("ballot5")
	hit1=request.form("hit1")
	hit2=request.form("hit2")
	hit3=request.form("hit3")
	hit4=request.form("hit4")
	hit5=request.form("hit5")
	ballot=Array(ballot1,ballot2,ballot3,ballot4,ballot5)
	hit=Array(hit1,hit2,hit3,hit4,hit5)
	If(ballottop="") Then
		sm=sm &"请填写投票主题\n"
	End if
	If(sm="") Then
		sql="delete from ys_ballot"
			set rs=conn.execute(sql)
		sql="delete from ys_ballottop"
			set rs=conn.execute(sql)
		For i=0 to 4
			If(ballot(i)<>"") Then
				sql="insert into ys_ballot(ballot,hit) values('"& strSql(ballot(i)) &"',"& inthit(hit(i)) &")"
					set rs=conn.execute(sql)			
			End if
		next
			sql="insert into ys_ballottop(ballottop,mymode) values('"& strSql(ballottop) &"',"& mymode &")"
					set rs=conn.execute(sql)
		sm=sm &"投票修改成功\n"
	End if
	If(sm<>"") Then
		Response.Write "<SCRIPT language=JavaScript>"
		Response.Write "alert('"& sm &"');"
		Response.Write "</SCRIPT>"
	End if
End if
	sql="select ballottop,mymode from ys_ballottop"
		set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,3,2
	ballottop=rs("ballottop")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>倚锋智能网站投票管理</title>
<link href="../include/styles.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center"><img src="../images/Snapvote.jpg" width="425" height="261"></div>
</body>
</html>

editballot.asp - 源码说明

本页面展示了「不错的ASP整站源代码。在IIS环境下运行都没有问题」中的 editballot.asp 源码文件，采用 ASP 编程语言编写，共 59 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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