adminto.asp

三鸟个人网站源码。

<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<%
dim admin_name,admin_pass
admin_name=request("admin_name")
admin_pass=request("admin_pass")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where admin_name='"&session("admin_name")&"'"
rs.open sql,conn,1,3


rs("admin_name")=admin_name
rs("admin_pass")=admin_pass

rs.Update
rs.Close
set rs=nothing
conn.Close
set conn=nothing

Response.write "修改成功！！"
Response.write"<a href=quit.asp>请退出重新登陆</a>"
%>