saveedit.asp

来自「综合信息管理系统」· ASP 代码 · 共 33 行

<!--#include file=conn.asp-->
<!--#include file="char.inc"-->
<%
IF Session("KEY")<>"super"  THEN
response.redirect "index_face.asp"
response.end
END IF

dim sql
dim rs
dim id
dim passwd
dim username
dim oskey

username=htmlencode(request.form("username"))
passwd=htmlencode(request.form("passwd"))
oskey=htmlencode(request.form("oskey"))
id=request("id")

set rs=server.createobject("adodb.recordset")
sql="select * from admin where id="&id
rs.open sql,conn,3,3
rs("username")=username
rs("passwd")=passwd
rs("oskey")=oskey
rs.update
rs.close
response.redirect "usermanage.asp"
set rs=noting
conn.close
set conn=nothing
%>