addtestname.asp

学校成绩查询系统是一个非常好的软件请大家试试

<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<%
strTemp=request("chkbox")
myarry=split(strTemp,",")
term=trim(Request.form("term"))
strtestname=trim(request.form("testname"))
action=request.QueryString("action")
testid=request.QueryString("id")
if action="moditest" then
conn.execute("update testmdb set term='"&term&"',testname='"&strtestname&"' where testid="&testid&"")
conn.execute("delete from subjectks where testname='"&strtestname&"'")
for i=0 to ubound(myarry)
ssubject=trim(myarry(i))
sql="insert into subjectks(testname,subjectname) values('"&strtestname&"','"&ssubject&"')"
conn.execute(sql)
next
Response.write("<script>alert(""修改考试成功，请返回！"");location.href='test_setup.asp';</script>")
response.end
end if
SQL="SELECT * FROM testmdb WHERE term='" & term & "' and testname='" & strtestname & "'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If Not rs.EOF Or Not rs.BOF Then 
    Response.Write "<script>alert(""对不起，考试名称：'" & strtestname & "'已存在,请重新命名！"");window.location='Javascript:history.back()';</script>"
    response.end
	rs.close
set rs=nothing
	
else
sql="insert into testmdb(term,testname) values('"&term&"','"&strtestname&"')"
conn.execute(sql)
for i=0 to ubound(myarry)
ssubject=trim(myarry(i))
sql="insert into subjectks(testname,subjectname) values('"&strtestname&"','"&ssubject&"')"
conn.execute(sql)
next
Response.write("<script>alert(""添加考试成功，请返回！"");location.href='test_setup.asp';</script>")
Response.end
End If
%>