?? mgsubject.asp
字號:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
dim isedit '是否在編輯狀態(tài)
dim id,subjectname'定義變量，科目的id
dim sql,rs,rsc
isedit=false
if request("action")="edit" then
isedit=true
end if
if request("action")="modify" then '修改用戶
if trim(request("subjectname"))="" or trim(request("testtime"))="" or trim(request("multinumber"))=""or trim(request("multiper"))=""or trim(request("singlenumber"))=""or trim(request("singleper"))=""then
response.write "錯誤!請正確填寫各項，且不能為空! <a href=mgsubject.asp>返回</a>"
response.end
end if
sql="update subject set subjectname='" & cstr(trim(request("subjectname"))) & "',testtime=" & cstr(trim(request("testtime")))&","&cstr(trim(request("singlenumber"))) & "," & cstr(trim(request("singleper"))) & "," & cstr(trim(request("multinumber"))) & "," & cstr(trim(request("multiper")))
conn.execute sql
if err.number <> 0 then
response.write "數(shù)據(jù)庫操作出錯:" + err.description
else %>
<script language=vbscript>
msgbox "操作成功!<%=trim(request("subjectname"))%>科目的信息已經(jīng)更新!"
</script>
<%end if
end if
if request("action")="add" then '添加新用戶
if trim(request("subjectname"))="" or trim(request("testtime"))="" or trim(request("multinumber"))=""or trim(request("multiper"))=""or trim(request("singlenumber"))=""or trim(request("singleper"))=""then
response.write "錯誤!科目名或密碼以及其余各項不能為空! <a href=# onclick='javascript:window.history.go(-1)'>返回</a>"
response.end
end if
set rs=server.createobject("adodb.recordset") '檢查科目名是否重名
rs.open "select * from subject where subjectname='" & cstr(trim(request("subjectname"))) & "'",conn,1,1
if err.number <> 0 then
response.write "數(shù)據(jù)庫出錯"
else if not rs.bof and not rs.eof then
response.write "錯誤!該科目已經(jīng)存在! <a href=# onclick='javascript:window.history.go(-1)'>返回</a>"
response.end
end if
end if
rs.close
set rs=nothing
sql="insert into subject(subjectname,testtime,singlenumber,singleper,multinumber,multiper) values('" & cstr(trim(request("subjectname"))) & "'," & cstr(trim(request("testtime"))) & "," & cstr(trim(request("singlenumber"))) & "," & cstr(trim(request("singleper"))) & "," & cstr(trim(request("multinumber"))) & "," & cstr(trim(request("multiper"))) & ")"
conn.execute sql
if err.number <> 0 then
response.write "數(shù)據(jù)庫操作出錯:" + err.description
else %>
<script language=vbscript>
msgbox "操作成功!新科目<%=trim(request("subjectname"))%>的信息添加成功!"
</script>
<%end if
end if
if request("action")="del" then '刪除用戶
sql="delete from subject where id=" &request("id")
conn.execute sql
if err.number <> 0 then
response.write "數(shù)據(jù)庫操作錯誤：" + err.description
err.clear
else %>
<script language=vbscript>
msgbox "操作成功!科目<%=trim(request("subjectname"))%>的信息已刪除!"
</script>
<% end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<title>管理科目----在線考試系統(tǒng)</title>
<script language=javascript>
function SureDel(id)
{
if ( confirm("您確定要刪除該科目嗎？"))
{
window.location.href = "mgsubject.asp?action=del&id=" +id
}
}
</script>
</head>
<body background=../images/backimage.gif >
<center><font color="lime" size=+3>科目管理</font></center>
<table width=500 border="1" cellspacing="0" cellpadding="0" align="center" bordercolor=lightgreen>
<tr>
<td width="20%">
<div align="center">科目名稱</div>
</td>
<td width="20%">
<div align="center">考試時間(分鐘)</div>
</td>
<td width="12%">
<div align="center">單選題量</div>
</td>
<td width="12%">
<div align="center">單選分值</div>
</td>
<td width="12%">
<div align="center">多選題量</div>
</td>
<td width="12%">
<div align="center">多選分值</div>
</td>
<td width="20%">
<div align="center">操作</div>
</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from subject ",conn,1,1
if err.number <> 0 then
response.write "數(shù)據(jù)庫出錯"
else
if rs.bof and rs.eof then
rs.close
response.write "目前沒有科目"
else
do while not rs.eof %>
<tr>
<td width="20%" height="21" >
<div align="center"><%=rs("subjectname")%></div>
</td>
<td width="12%" height="21" >
<div align="center"><%=rs("testtime")%></div>
</td>
<td width="12%" height="21" >
<div align="center"><%=rs("singlenumber")%></div>
</td>
<td width="12%" height="21" >
<div align="center"><%=rs("singleper")%></div>
</td>
<td width="12%" height="21" >
<div align="center"><%=rs("multinumber")%></div>
</td>
<td width="12%" height="21" >
<div align="center"><%=rs("multiper")%></div>
</td>
<td width="20%" height="21" >
<div align="center">
<a href='javascript:SureDel(<%=rs("id") %>)'>刪除</a></div></td>
</div>
</td>
</tr>
<% rs.movenext
loop
end if
end if
'rs.close
'set rs=nothing %>
</table>
<p align="center">
<% response.write "<font size=3>添 加 新 的 科 目</font><br>" %>
<form action="mgsubject.asp" method="post">
<input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'>
<%If isedit then%>
<input type="Hidden" name="subjectname" value='<%=cstr(request("subjectname"))%>'>
<%End If%>
科目名稱:<input type="text" name="subjectname" value='<% if isedit then response.write trim(rs("subjectname")) end if %>'><br>
考試時間:<input type="text" name="testtime" value='<% if isedit then response.write trim(rs("testtime")) end if %>'><br>
單選題量:<input type="text" name="singlenumber" value='<% if isedit then response.write trim(rs("singlenumber")) end if %>'><br>
單選分值:<input type="text" name="singleper" value='<% if isedit then response.write trim(rs("singleper")) end if %>'><br>
多選題量:<input type="text" name="multinumber" value='<% if isedit then response.write trim(rs("multiumber")) end if %>'><br>
多選分值:<input type="text" name="multiper" value='<% if isedit then response.write trim(rs("multiper")) end if %>'><br>
<input type=submit value="確 定">
</form>
<p align=center><a href="primarypage.asp"><font color=red size=+0 face=楷體>返回管理界面</font></a></p>
</p>
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -