modi_subject.asp

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

<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->

<%
subinsert=Request.form("sub_insert")
subdel=Request.form("del_sub")
strsubject=trim(Request.form("subject"))
set rs= Server.CreateObject("ADODB.Recordset")
if subinsert="add" then
sql="select * from subject where subjectname='"&strsubject&"'"
rs.open sql,conn,1,1
if not rs.eof then
Response.Write "<script>alert(""对不起，该科目："&strsubject&"已存在！"");window.location='Javascript:history.back()';</script>"
response.end
rs.close
set rs=nothing
else
set rs= Server.CreateObject("ADODB.Recordset")
sql= "insert into subject(subjectname)values('"&strsubject&"')"
rs.open sql,conn,1,3
sql="alter table tempcj add "&strsubject&" text(12)"
conn.execute(sql)
on error resume next
sql="alter table studentpmb add "&strsubject&" text(12),"&strsubject&"bm single,"&strsubject&"nm single"
if not err then
conn.execute(sql)
end if
Response.write("<script>alert(""添加科目成功，请返回！"");location.href='subject_setup.asp';</script>")
Response.end
end if
rs.close
set rs=nothing

end if
if subdel="del_sub" then
sql="delete table from subject where subjectname='"&strsubject&"'"
conn.execute(sql)
sql="alter table tempcj drop "&strsubject&""
conn.execute(sql)
on error resume next
sql="alter table studentpmb drop "&strsubject&","&strsubject&"bm,"&strsubject&"nm"
if not err then
conn.execute(sql)
end if
Response.write("<script>alert("""&strsubject&"科目删除成功，请返回！"");location.href='subject_setup.asp';</script>")
Response.end
end if
%>