departvote.asp
来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 180 行
ASP
180 行
<!-- #include file="adoconn.asp" -->
<%
Dim sqls
Dim ri,inscore
Dim temprs
Dim data1,data2,data3,data4,data5
Dim ErrorFlag
IF request.form("B1")="保存" then
ErrorFlag=False
ri=1
data1=0
data2=0
data3=0
data4=0
data5=0
for each item in request("Selected")
inscore=request.form("R" & cstr(ri))
if isempty(inscore) then inscore=2
select case inscore
case 10
data1=data1+1
case 8
data2=data2+1
case 6
data3=data3+1
end select
ri=ri+1
next
if data1>Session("Degree2") then
errorflag=true
response.write "<p>" & "您一等奖投票数="& data1 & ",正确数应当[" & Session("Degree2") & "]票" & "<p>"
end if
if data2>Session("Degree3") then
errorflag=true
response.write "您二等奖投票数="& data2 & ",正确数应当[" & Session("Degree3") & "]票" & "<p>"
end if
if data3>Session("Degree4") then
errorflag=true
response.write "您三等奖投票数="& data3 & ",正确数应当[" & Session("Degree4") & "]票" & "<p>"
end if
%>
<% if errorflag=true then %>
<script language="vbscript">
msgbox "请重新投票！"
history.back
</script>
<% else
Adoconnection()
ri=1
for each item in request("Selected")
inscore=request.form("R" & cstr(ri))
if isempty(inscore) then inscore=2
Dno=request.form("Dno" & cstr(ri))
Department=request.form("Department" &ri)
sqls="Insert into DepartScore(Dno,Department,score,ClientIP,SessionID) "
sqls=sqls & "Values('" & DNo & "','" & Department & "'," & Inscore & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & session.sessionID & ")"
Adoconn.Execute sqls
ri=ri+1
next
set Adoconn=nothing
%>
<Script Language="VBScript">
MsgBox "您已完成该项目的评分,谢谢!"
History.go(-2)
</Script>
<% end if %>
<%
ELSE
Dim sql
Dim reccount
Dim fieldi,recordi
Dim t1,t2,t3,r1,r2
Dim ps,mypagesize,ys,mypage
Dim maxcount
sql="select * from DepartScore where ClientIP='" & Request.ServerVariables("REMOTE_ADDR") & "'"
Set rs1=GetRecordset(sql)
If not rs1.eof then
Set Adoconn=nothing
Set rs1=nothing
%>
<script language="vbscript">
MsgBox "您已经打过分，不能重复打分！"
History.back
</script>
<%
End if
listItem("select * from VoteDegree" ) '参数值在ItemArray数组中，长度在ItemCount中
Session("Degree2")=ItemArray(1,0)
Session("Degree3")=ItemArray(2,0)
Session("Degree4")=ItemArray(3,0)
sql="select * from Colleges "
Set rs=GetRecordset(sql)
%>
<head>
<link rel="stylesheet" href="comCSS.css" >
</head>
<script language="vbscript" for="B2" event="Onclick">
History.back
</script>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="post" action="" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<b>
<font face="华文行楷" size="2" color="#000080" ><p align="center"></font><font face="华文行楷" color="#000080" size="6">部门评分表</font></p>
<table border="0" width="100%">
<tr>
<td width="100%"> 部门总数：<%=rs.recordcount %></td>
</tr>
</table>
</b>
<div align="left">
<center>
<table border="1" width="789" >
<tr bgcolor=#ccccc7>
<td width="96" align="center"><font color="#000080"><b>部门编码</b></font></td>
<td width="180" align="center"><font color="#000080"><b>部门名称</b></font></td>
<td width="135" align="center"><font color="#000080"><b>一等奖<br>
<%="（" & ItemArray(1,0) & "个）" %></b></font></td>
<td width="135" align="center"><font color="#000080"><b>二等奖<br>
<%="（" & ItemArray(2,0) & "个）" %></b></font></td>
<td width="135" align="center"><font color="#000080"><b>三等奖<br>
<%="（" & ItemArray(3,0) & "个）" %></b></font></td>
<td width="135" align="center"><font color="#000080"><b>鼓励奖<br>
<%="（其余）" %></b></font></td>
</tr>
<%for recordi=1 to rs.recordcount
if rs.Eof then Exit for
if recordi mod 2=0 then
color="#ddddd7"
else
color="#eeeeef"
end if
response.write ("<tr bgcolor=" + color +">")
%>
<td align="left" width="96">
<input type="hidden" name="Selected" checked value=<%=rs(0)%>><!--webbot
bot="Validation" s-data-type="Number" s-number-separators="x." -->
<input type="hidden" name=<%="Dno"& recordi %> value=<%=rs(0)%>><% =rs(0) %></td>
<td align="left" width="180"><input type="hidden" name=<%="Department" & recordi %> value=<%=rs(1)%>><% =rs(1)%></td>
<td align="left" width="135"><input type="radio" name=<%="r" & recordi %> value=10>选择 <input type="radio" name=<%="r" & recordi %> value=2>不选</td>
<td align="left" width="135"><input type="radio" name=<%="r" & recordi %> value=8>选择 <input type="radio" name=<%="r" & recordi %> value=2>不选</td>
<td align="left" width="135"><input type="radio" name=<%="r" & recordi %> value=6>选择 <input type="radio" name=<%="r" & recordi %> value=2>不选</td>
<td align="left" width="135"> </td>
<%response.write ("</tr>")%>
<% rs.movenext%>
<%next%>
</table>
</div>
<%
Set rs=nothing
Set Adoconn=nothing
%>
<input type="submit" value="保存" name="B1"> <input type="button" value="返回" name="B2"></center>
</form>
<%END IF%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?