leadervote.asp
来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 150 行
ASP
150 行
<!-- #include file="adoconn.asp" -->
<%
Dim sqls
Dim ri,inscore
Dim temprs
Dim data1
IF request.form("B1")="保存" then
ri=1
data1=0
for each item in request("Selected")
inscore=request.form("R" & cstr(ri))
if isempty(inscore) then inscore=0
data1=data1+inscore
ri=ri+1
next
If data1> session("Degree1") then
response.write "<p>" & "您的投票数=" & data1 & ",正确数应当[" & Session("Degree1") & "]票" & "<p>"
%>
<script language="vbscript">
msgbox "投票数有误，请重新投票！"
history.back
</script>
<% else
ri=1
Adoconnection()
for each item in request("Selected")
inscore=request.form("R" & cstr(ri))
if isempty(inscore) then inscore=0
Tno=request.form("Tno" & cstr(ri))
Tname=request.form("Tname" &ri)
Tsex=request.form("TSex" &ri)
'TDepartment=request.form("TDepartment" &ri)
sqls="Insert into LeaderScore(Tno,Tname,Tsex,Tscore,ClientIP,SessionID) "
sqls=sqls & "Values('" & TNo & "','" & Tname & "','" & Tsex & "'," & 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 LeaderScore 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("Degree1")=ItemArray(0,0)
sql="select * from Teachers where THeadShip<>'教研室主任' and THeadShip<>'教研室副主任' and THeadShip<>'其它' and THeadShip<>'无'"
Set rs=GetRecordset(sql)
%>
<head>
<link rel="stylesheet" href="comCSS.css" >
<!--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">
</head>
<script language="vbscript" for="B2" event="Onclick">
History.back
</script>
<b>
<p align="center"><font face="华文行楷" color="#000080" size="6">中层干部评分表</font></p>
<table border="0" width="41%">
<tr>
<td width="100%">
<p align="center">
<b>
</b>人数：<%=rs.recordcount %></p>
</td>
</tr>
</table>
</b>
<div align="left">
<center>
<table border="1" width="412" >
<tr bgcolor=#ccccc7>
<td width="33" align="center"><font color="#000080"><b>编码</b></font></td>
<td width="64" align="center"><font color="#000080"><b>干部姓名</b></font></td>
<td width="30" align="center"><font color="#000080"><b>性别</b></font></td>
<td width="162" align="center"><font color="#000080"><b><%="是否得奖（选" & itemArray(0,0) & "人）" %></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="33">
<input type="hidden" name="Selected" checked value=<%=rs(0)%>><!--webbot
bot="Validation" s-data-type="Number" s-number-separators="x." -->
<input type="hidden" name=<%="Tno"& recordi %> value=<%=rs(0)%>><% =rs(0) %></td>
<td align="left" width="45"><input type="hidden" name=<%="Tname" & recordi %> value=<%=rs(1)%>><% =rs(1)%></td>
<td align="left" width="35"><input type="hidden" name=<%="TSex" & recordi %> value=<%=rs(2)%>><% =rs(2)%></td>
<td align="left" width="162"> <input type="Radio" name=<%="r" & recordi %> value=1>选择
<input type="Radio" name=<%="r" & recordi %> value=0>不选</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 + -
显示快捷键?