post.asp

用VB+JAVASCRIPT开发的一个仿QQ爱墙软件

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%if action="" then%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from admin"
rs.open sql,conn,3,3
rs("username")=Server.Htmlencode(Request("username"))
rs("password")=Server.Htmlencode(md5(Request("password")))
rs.update
rs.close
set rs=nothing
Response.Redirect"admin.asp?post=已经成功更新超级用户密码"
%>
<%else%>
<%Response.Redirect("admin.asp")%>
<%
end if
%>