changesl.asp

此程序为网上下载

<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<!--#include File="password.asp"-->
<%Response.Expires = 0
nickname=Session("hxf_u_nickname")
If nickname="" Then Response.Redirect "error.asp?id=002"
If nickname <> "聊天室管理员" Then Response.Redirect "error.asp?id=002"
f1 = Request.Form("f12")
f2 = Request.Form("f22")
f3 = Request.Form("f32")
If f1 = "" Or f2 = "" Or f3 = "" Then Response.Redirect "error.asp?id=002"
If f2 <> f3 Then Response.Redirect "error.asp?id=002"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "SELECT value FROM system WHERE name='sladmin'"
rs.open sql, conn, 1, 3
rs("value")=md5(f1&f2)
rs.Update
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.Lock
Application("wsaxhxf_c_sladmin")=md5(f1&f2)
Application.UnLock
Response.Redirect "ok.asp?id=100&new="&f2
%>