que_saveedit.asp

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

<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<%

select case request.form("qtype")
 case "1"
  if len(trim(request.form("rightkey")))>1 then
  x="no"
%>
<script language=javascript>
window.alert("此为单选题，而你选择了多个答案")
history.go(-1)
</script>
<%
 end if
case "2"
end select

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


if x<>"no" then
'检查通过,修改题目
set rs=server.createobject("adodb.recordset")
sql="select * from question where qid='"&trim(request.form("qid"))&"'"
rs.open sql,conn,1,3

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")=sname

rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language=javascript>
window.alert("成功编辑一道题目")
window.close();
</script>
<%
end if%>