que_save.asp

本人的课程设计。不足之处请大家指教。因为第一次用ASP有很多不足的地方。

<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<%
'取用户名
 id=request.cookies("username")
 set rs=server.createobject("adodb.recordset")
 sql="select * from student where id='"&trim(id)&"'"
 rs.open sql,conn,1,1
 sname=trim(rs("name"))
 rs.close
 set rs=nothing
 
select case request.form("qtype")
 case "1"
  if len(trim(request.form("rightkey")))>1 then
 	sign="no"
%>
<script language=javascript>
window.alert("此为单选题，而您选择了多个答案")
history.go(-1)
</script>
<%
 end if
case "2"
end select

if trim(request.form("rightkey"))="" then
  sign="no"
%>
<script language=javascript>
window.alert("您还未选择答案")
history.go(-1)
</script>
<%
end if 

if sign<>"no" then
'检查通过,增加题目
set rs=server.createobject("adodb.recordset")
sql="select * from question"
rs.open sql,conn,1,3
rs.addnew
rs("qid")=replace(trim(request.form("qid"))," ","")
rs("qname")=trim(request.form("qname"))
rs("qtype")=trim(request.form("qtype"))
rs("key1")=trim(request.form("key1"))
rs("key2")=trim(request.form("key2"))
rs("key3")=trim(request.form("key3"))
rs("key4")=trim(request.form("key4"))
rs("key5")=trim(request.form("key5"))
rs("key6")=trim(request.form("key6"))
rs("rightkey")=trim(request.form("rightkey"))
rs("addtime")=date()
rs("adduser")=trim(sname)
rs("ename")=trim(request.form("ename"))
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
<script language=javascript>
window.alert("成功增加一道题目")
location.href='que_add.asp';
</script>