shiti_save.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 45 行

<!--#include file="checkuser.asp"-->
<!--#include file="conn.asp"-->
<%
dim rs,sql
dim id,mdb,tk,tm,km,lx,a,b,c,d,anw
id=clng(request.QueryString("id"))
mdb=trim(request.querystring("mdb"))
tk=clng(request.querystring("tk"))
tm=request.Form("tm")
km=request.Form("km")
lx=request.Form("lx")
a=request.Form("a")
b=request.Form("b")
c=request.form("c")
d=request.Form("d")
anw=request.Form("anw")
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&mdb&" where id="&id&""
rs.open sql,conn,2,3
rs("kemu")=km
rs("question")=tm
rs("type")=lx
rs("a")=a
rs("b")=b
rs("c")=c
rs("d")=d
rs("answer")=anw
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你修改试题的记录成功~!")
window.history.go(-2)
</script>