login.asp

asp+flash宾客留言系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
foundErr=""
g_pass=Request.form("g_pass")
g_name=Request.form("g_name")

if len(g_name)=0 then
 	foundErr=foundErr& "请填写用户名！！<br>"
end if
if len(g_pass)=0 then
 	foundErr=foundErr& "请填写用户密码！！<br>"
end if

if foundErr="" then 	'如果没有错误
set rs=server.CreateObject("adodb.recordset")
sql="select * from users where u_name='"&g_name&"'"
rs.open sql,conn,1,1
	if not rs.eof then
		if rs("u_pass") = g_Pass then
		Response.Write "&datatxt=登陆成功&gbname="&g_name&"&gbpass="&g_Pass&"&gblevel="&rs("u_level")&"&gbface="&rs("u_face")
		else
		Response.Write "&datatxt=密码错误，请核对清楚"
		Response.Write "&gbname="&g_name&"&gbpass="&g_Pass&"&gbface="&g_face'这一行是为了记录用户名和密码、头像用的，
		end if
	else
	Response.Write "&datatxt=该用户不存在"
	Response.Write "&gbname="&g_name&"&gbpass="&g_Pass&"&gbface="&g_face'这一行是为了记录用户名和密码、头像用的，
	end if
rs.close
set rs=nothing
else
Response.Write "&datatxt="&foundErr
Response.Write "&gbname="&g_name&"&gbpass="&g_Pass&"&gbface="&g_face  '这一行是为了记录用户名和密码、头像用的，
end if
%>