www.gusucode.com > 雨点单用户免雨点单用户免费留言板 2.0 Build 080828 > user_check.asp
<%@ language="vbscript"%> <%response.Expires = 0%> <!--#include file="conn.asp"--> <!--#include file="inc/md5.asp"--> <% Call Remote() dim user ,password user=HtmlEncode(request.form("user")) password=md5(request.form("password")) set rs=conn.execute("select id,password from userlist where user='" & user & "'") if rs.eof and rs.bof then call showerror("用户名或密码错误") if password<>rs(1) then call showerror("密码错误") else session("adminok_guest")="mysinglegb" session.Timeout=20 response.redirect ""&request("from")&".asp" end if Call CloseRs() %> <%call closeconn()%>