rulelist.asp
来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 156 行
ASP
156 行
<!-- #include file="adoconn.asp" -->
<%
IF request.form("cmdadd")="添加" then
CA_Supervisor() '调用超级用户验证子程序
Session("EditFlag")="INSERT" '设置修改或插入标志，在同一个录入模块，实现信息的修改，并根据该标志对数据表Insert或Update操作。
response.redirect "RuleEdit.asp" '调用评分规则录入模块
END IF
IF request.form("cmdDel")="删除" then
CA_Supervisor()
Adoconnection() '联接数据库
for each item in request("Selected") '检查评分规则项是否选中
editsql= "Delete from TestRules where Category='" & item & "' AND Yeartoyear='" & Session("Yeartoyear") & "' AND term='" & Session("Term") & "'"
Adoconn.Execute editsql '删除选中的条目
next
set Adoconn=nothing
%>
<script language="vbscript">
history.go(-2) '回退两页
</script>
<%
END IF
IF request.form("cmdMdy")="修改" THEN
Dim RecordsetArray
Dim LocalArray(100)
Dim fi
CA_Supervisor()
Adoconnection()
for each item in request("Selected")
Session("Category")=item '保存评分规则项的类别项
Session("EditFlag")="MODIFY" '设置修改标志
editsql= "Select * from TestRules where Category='" & item & "' AND Yeartoyear='" & Session("Yeartoyear") & "' AND term='" & Session("Term") & "'"
set RS=Adoconn.Execute (editsql)
RecordArray=RS.GetRows() ' 取记录到二维数组
for fi=0 to RS.FIELDS.COUNT-1
LocalArray(fi)=RecordArray(fi,0)
next
session("DataArray")=LocalArray '将记录保存到全程变量数组中，在录入模块中显示对应项，实现修改功能。
Set RS=nothing
set Adoconn=nothing
Response.Redirect "RuleEdit.asp"
next
END IF
%>
<html>
<head>
<link rel="stylesheet" href="comCSS.css">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>教学评价表</title>
<base target="rbottom">
<meta name="Microsoft Border" content="t, default">
</head>
<body ><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>
<p align="left"> </p>
</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<%
Dim sql
Dim reccount
Dim fieldi,recordi
Dim Yeartoyear,Term,tKind
Certificate() '验证是否合法登录者
IF request.form("B1")="查询" THEN
Session("Yeartoyear")=request.form("D1") & "至" & request.form("D2")
Session("Term")=request.form("D3") '从提交表单中取学期条件
tKind=request.form("R1") '从提交表单中取评分者类别（教师或学生）
END IF
SQL="select * from TestRules where Yeartoyear='" & Session("Yeartoyear") & "' AND term='" & Session("term") & "' AND Kind='" & tKind & "' ORDER BY CategoryID,kind"
Set rs=GetRecordset(sql) '调用读记录子程序（在adoconn.asp）
IF not rs.eof then
Reccount=rs.RecordCount
END IF
%>
<form method="post">
<table border=0 cellspacing="0">
<tr>
<td><font face="华文行楷" size="4" color="#FF0000"><b>教学评价表 </b></font> [ 记录总数：<%=Reccount%>]</td>
</table>
<div align="left">
<table border="1" width="821">
<tr bgcolor=#ccccc7>
<td width="139" colspan="2" align="center">
<p align="right"><font color="#000080"><b> 评价项目 </b></font>
</td>
<td width="298" align="center">
<p align="center"><font color="#000080"><b>评分标准</b></font></p>
</td>
<td width="71" align="center"><font color="#000080"><b>分值</b></font></td>
<td width="64" align="center"><font color="#000080"><b>权重</b></font></td>
<td width="71" align="center"><font color="#000080"><b>打分者</b></font></td>
<td width="98" align="center"><font color="#000080"><b>适应学年</b></font></td>
<td width="34" align="center"><font color="#000080"><b>适应学期</b></font></td>
</tr>
<%for recordi=1 to Reccount
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 width="20"><input type="checkbox" name="Selected" value="<%=rs(1) %>"></td>
<td width="113"><% =rs(1) %></td>
<td width="298"><% =rs(2) %></td>
<td width="71"><% =rs(3) %></td>
<td width="64"><% =rs(4) %></td>
<td width="71"><% =rs(5) %></td>
<td width="98"><% =rs(6) %></td>
<td width="34"><% =rs(7) %></td>
<%response.write ("</tr>")%>
<% rs.movenext%>
<%next%>
</table>
</div>
<%
Set rs=nothing
Set Adoconn=nothing
%>
<p>
<input type="submit" value="删除" name="cmddel"> <input type="submit" value="添加" name="cmdadd">
<input type="submit" value="修改" name="cmdmdy"> <a href="javascript:history.back(2)">返回</a>
</p>
</form>
<!--msnavigation--></td></tr><!--msnavigation--></table></body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?