wz_save.asp

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

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<%
dim rs,sql
dim id,title,zuozhe,kemu,neirong
id=clng(request.querystring("id"))
title=trim(request.form("title"))
zuozhe=trim(request.form("zuozhe"))
kemu=trim(request.form("kemu"))
neirong=trim(request.form("neirong"))
set rs=server.createobject("adodb.recordset")
sql="select * from wz where id="&id
rs.open sql,conn,2,3
rs("title")=title
rs("zuozhe")=zuozhe
rs("kemu")=kemu
rs("neirong")=neirong
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你修改文章的操作成功~!")
window.location.href"wz_gl.asp"
</script>