www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\vip\checklogin.asp

    <!--#include file="conn.asp" -->
<!--#include file="md5.asp" -->
<%
dim name,pass,code
name = request("name")
pass = request("pass")
sql = "select name from [user] where name ='"&name&"' and pass = '"&md5(pass,16)&"'"
set rs = conn.execute(sql)
if rs.eof then
	response.Write "<script>alert('用户名或密码错误！'); location.href='login.asp';</script>"
	response.end
else
	session("user")=name
	response.Redirect "index.asp"
end if			
%>