loginserver.asp

网络会议系统,WEB的。喜欢的下吧

<!--#include file="Const.asp"-->

<%
'1.// LoginServer 用户验证，用于登录服务器
'LoginServer?UName=xxxx&pass=xxxx
'UID及pass,
'返回格式：
'ActiveClass|LoginServer|1/0|nType|UID|NickName|Sex|MailAdd
'	其中：
'		1/0: 1：表示登录成功，0：表示失败
%>

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	
	set rs=server.CreateObject("ADODB.recordset")
	'response.write "select * from "&TBL_USER&" where USERNAME='"&request("UName")&"' and PASSWORD='"&request("pass")&"'"
	'response.end
	rs.Open "select * from "&TBL_USER&" where USERNAME='"&request("UName")&"' and PASSWORD='"&request("pass")&"'",cn
	if not rs.eof then
		Response.write "ActiveClass|LoginServer|1|"&rs("TYPE")&"|"&rs("ID")&"|"&rs("NICKNAME")&"|"&rs("SEX")&"|"&rs("MAILADD")&""
	else
		Response.write "ActiveClass|LoginServer|0"
	end if
	
	rs.close
	set rs=nothing
	cn.close
	set cn=nothing
%>