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()%>