vote.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 118 行

ASP
118 行
字号 
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
<title>投票管理</title>
</head>

<body>
<%
action1=my_request("action",0)
select case action1
case "titlemodi"
call titlemodi()
case "voteadd"
call voteadd()
case "votemodi"
call votemodi()
case "del"
call del()
case else
end select

sql="select id,vote from vote where flag=1"
set rs=conn.execute (sql)
idtitle=rs("id")
votetitle=rs("vote")
rs.close
set rs=nothing%>
<div align="center">
	<table border="1" width="760" id="table1" cellspacing="0" style="border-collapse: collapse" bordercolor="#EFEFEF" cellpadding="0">
		<tr>
			<td>
			<table border="0" width="100%" id="table2" cellspacing="1">
				<tr>
					<td height="18" bgcolor="#DDDDDD">
					<p align="center"><font color="#FF0000">投票管理</font></td>
				</tr>
				<form action="vote.asp" method=post>
				<tr>
					<td height="18">投票主题：<input type="text" name="votetitle" size="33" maxlength="20" value="<%=votetitle%>"><input type="hidden" name="idtitle" value="<%=idtitle%>"><input type="hidden" name="action" value="titlemodi"><input type="submit" value="修改" name="B1"></td>
				</tr>
				</form>
				<form action=vote.asp method=post>
				<tr>
					<td height="18">投票项目：<input type="text" name="vote" size="33" maxlength="20"><input type="hidden" name="action" value="voteadd"><input type="submit" value="增加" name="B2"></td>
				</tr>
				</form>
				<tr>
					<td height="18"><font color="#0000FF">已经产生的投票项目</font></td>
				</tr>
				<%
				sql="select id,vote from vote where flag=0 order by addtime desc"
				set rs=conn.execute (sql)
				if rs.eof then
				response.write "<tr><td><font color=#FF0000>【没有投票项目】</font></td></tr>"
				else
				i=1
				do while not rs.eof
				idvote=rs("id")
				vote=rs("vote")
				%>
				<form action=vote.asp method=post><tr>
					<td height="18">
					<input type="text" name="<%=i%>" size="3" maxlength="20" value="<%=i%>" disabled> <input type="text" name="vote" size="35" maxlength="20" value="<%=vote%>"><input type="hidden" name="idvote" value=<%=idvote%>><input type="hidden" name="action" value="votemodi"><input type="submit" value="修改" name="B3"><input type="button" value="删除" onclick="window.location='vote.asp?idvote=<%=idvote%>&action=del'" name="B4"></td>
				</tr>
				</form>
				<%
				rs.movenext
				i=i+1
				loop
				rs.close
				set rs=nothing
				end if%>
			</table>
			</td>
		</tr>
	</table>
</div>

</body>

</html>
<%
sub titlemodi()
idtitle=my_request("idtitle",1)
votetitle=my_request("votetitle",0)
sql="update vote set vote='"&votetitle&"' where flag=1 and id="&idtitle
conn.execute (sql)
response.redirect "vote.asp"
end sub

sub voteadd()
vote=my_request("vote",0)
sql="insert into vote (vote,addtime) values ('"&vote&"','"&now()&"')"
conn.execute (sql)
response.redirect "vote.asp"
end sub

sub votemodi()
idvote=my_request("idvote",1)
vote=my_request("vote",0)
sql="update vote set vote='"&vote&"' where flag=0 and id="&idvote
conn.execute (sql)
response.redirect "vote.asp"
end sub

sub del()
idvote=my_request("idvote",1)
sql = "delete from vote where id="&idvote
conn.execute(sql)
response.redirect "vote.asp"
end sub
%>

vote.asp - 源码说明

本页面展示了「非常有商业价值的软件」中的 vote.asp 源码文件，采用 ASP 编程语言编写，共 118 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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