addquestion.asp

来自「这是一个在线考试系统,是基于ASP+ACCESS的」· ASP 代码 · 共 65 行

<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="Checkadmin.asp"-->
<% 
dim question,subjectname,A,B,C,D,answer,leixing,page,action,rs,id
'定义函数进行字符转换，以适合于在网页中显示
function invert(str) 
	invert=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;")
end function
'读取表单中的数据
id=trim(request.form("id"))
action=trim(request.form("action"))
question=trim(Request.form("question"))
subjectname=trim(Request.form("subjectname"))
A=trim(Request.form("A"))
B=trim(Request.form("B"))
C=trim(Request.form("C"))
D=trim(Request.form("D"))
answer=trim(Request.form("answer")) 
leixing=trim(Request.form("leixing"))
page=trim(request("page"))
'必填部分不能为空
if question="" or subjectname="" or answer="" or leixing=""  then
	response.write "错误!!带<font color=red>*</font>号的为必填项!  <a href='javascript:history.go(-1)'>返回</a>"
	response.end
end if
'修改试题 
if action="modify" then 
set rs=server.createobject("ADODB.recordset") 
	rs.Open "SELECT * from question Where id=" & id,conn,1,3 
	rs("question")=question
		 rs("subjectname")=subjectname
		 rs("A")=A
		 rs("B")=B
		 rs("C")=C
		 rs("D")=D
		 rs("answer")=answer
		 rs("type")=leixing  
		 rs("haveselect")=0
	rs.update
	rs.close
	set rs=nothing
	response.redirect "mgquestion.asp?id=" & id & "&subjectname=" & subjectname & "&page=" & page
end if 
'添加新试题
if action="add" then 
	set rs=server.createobject("ADODB.recordset") 
	rs.Open "SELECT * from question",conn,1,3 
	rs.addnew     
		rs("question")=question
		rs("subjectname")=subjectname
		rs("A")=A
		rs("B")=B
		rs("C")=C
		rs("D")=D
		rs("answer")=answer
		rs("type")=leixing 
		rs("haveselect")=0
	rs.update
	rs.close
	set rs=nothing
	response.redirect "mgquestion.asp?id=" & id & "&subjectname=" & subjectname & "&page=" & page
end if  
%>