down_save.asp

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

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<%
dim id,namer,kemu,dx,tjcd,pt,downurl,xgjs
dim rs,sql
id=request.querystring("id")
namer=request.form("name")
kemu=request.form("kemu")
dx=request.form("dx")
tjcd=request.form("tjcd")
pt=request.form("pt")
downurl=request.form("downurl")
xgjs=request.form("xgjs")
set rs=server.createobject("adodb.recordset")
sql="select * from down where id="&id
rs.open sql,conn,2,3
rs("name")=namer
rs("kemu")=kemu
rs("dx")=dx
rs("tjcd")=tjcd
rs("pt")=tjcd
rs("downurl")=downurl
rs("xgjs")=xgjs
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你修改课件下载操作成功~!")
window.location.href"down_gl.asp"

</script>