📄 editballot.asp
字号:
<!--#include file="conn.asp" -->
<%
'if (ChkPost()=false)then
' Session.Contents.Remove("admin")
' Session.Contents.Remove("password")
' Response.Redirect "login.asp"
' Response.end
'End if
'name=Session("admin")
'pass=Session("password")
name=Trim(Request.QueryString("name"))
pass=Trim(Request.QueryString("pass"))
if name="" or pass="" then
response.Redirect "../error.asp?msg=您这样的操作本系统令人感到耻辱！&logout=true"
end if
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 ballot"
set rs=conn.execute(sql)
sql="delete from ballottop"
set rs=conn.execute(sql)
For i=0 to 4
If(ballot(i)<>"") Then
sql="insert into ballot(ballot,hit) values('"& strSql(ballot(i)) &"',"& inthit(hit(i)) &")"
set rs=conn.execute(sql)
End if
next
sql="insert into 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 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="css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" height="161" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#f2f2f2" class="zw">
<tr>
<td valign="top" bgcolor="#FFFFFF">
<form name="form1" method="post">
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="zw">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF" class="zw">
<tr bgcolor="#FFFFFF">
<td width="16%">投票主题:
<input name="ballottop" type="text" class="kuan1" size="25" value="<%=strtext(ballottop)%>">
是否支持多选:
<%if mymode=0 then%>
是
<input name="mymode" type="radio" value="-1">
否
<input type="radio" name="mymode" value="0" checked>
<%else%>
是
<input name="mymode" type="radio" value="-1" checked>
否
<input type="radio" name="mymode" value="0">
<%end if%>
</td>
</tr>
<%
sql="select * from ballot"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
For i=1 to rs.recordcount
%>
<tr bgcolor="#FFFFFF">
<td>投票项目<%=i%>:
<input name="ballot<%=i%>" type="text" class="kuan1" id="name23" size="25" value="<%=strtext(rs("ballot"))%>">
投票值<%=i%>:
<input name="hit<%=i%>" type="text" class="kuan1" id="name226" size="5" value="<%=rs("hit")%>"></td>
</tr>
<%
rs.movenext
Next
Do While(i<=5)
%>
<tr bgcolor="#FFFFFF">
<td>投票项目<%=i%>:
<input name="ballot<%=i%>" type="text" class="kuan1" id="name32" size="25">
投票值<%=i%>:
<input name="hit<%=i%>" type="text" class="kuan1" id="name2222" size="5"></td>
</tr>
<%
i=i+1
loop
%>
</table></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" class="an1" value=" 修 改 "></td>
</tr>
</table>
</div>
</form></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
set rs=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -