addnews.asp

来自「另外一套考试系统,用于局域网发布试题,考试」· ASP 代码 · 共 33 行

<%if session("password")<>"" then%>

<%if request("text1")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('请输入用户名！');" & "history.back()" & "</script>" 
	Response.End
end if
question=request("text1")
a=request("text2")
b=request("text3")
c=request("text4")
d=request("text5")
ans=request("text6")

set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("stry_exercise.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

sql="select * from test where question='"&question&"'" 
rs.Open sql,conn,1,1
if rs.EOF or rs.bof then
sql="insert into test(question,a,b,c,d,ans) values('"&question&"','"&a&"','"&b&"','"&c&"','"&d&"','"&ans&"')"
	rs1.Open sql,conn,1,1
	response.write "<script language=JavaScript>" & chr(13) & "alert('信息添加成功！');"&"window.location.href = 'add.asp'"&" </script>" 
	set rs1=nothing
else
	response.write "<script language=JavaScript>" & chr(13) & "alert('此信息已经添加！');" & "history.back()" & "</script>" 
end if
rs.Close
set rs=nothing
%>
<%else
Response.Redirect "20050130_loginagine.asp"
end if%>