?? question_save.asp
字號:
<!--#include file="db.asp"-->
<%
subjectview=request("subjectview")
typeadd=request("typeadd")
if typeadd="單選題" then
sql="select * from question"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("subject")=subjectview
rs("type")=typeadd
rs("question")=request("question")
rs("text1")=request("text1")
rs("text2")=request("text2")
rs("text3")=request("text3")
rs("text4")=request("text4")
rs("text5")=request("text5")
rs("text6")=request("text6")
rs("answer")=request("answer")
rs.update
topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功!請繼續(xù)添加題目!"
response.redirect topage
end if
if typeadd="多選題" then
sql="select * from question"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("subject")=subjectview
rs("type")=typeadd
rs("question")=request("question")
rs("text1")=request("text1")
rs("text2")=request("text2")
rs("text3")=request("text3")
rs("text4")=request("text4")
rs("text5")=request("text5")
rs("text6")=request("text6")
rs("answer")=request("answer")
rs.update
topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功!請繼續(xù)添加題目!"
response.redirect topage
end if
if typeadd="判斷題" then
sql="select * from question"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("subject")=subjectview
rs("type")=typeadd
rs("question")=request("question")
rs("answer")=request("answer")
rs.update
topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功!請繼續(xù)添加題目!"
response.redirect topage
end if
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -