login.asp

SMS是SP服务中一种流行的服务类型,用户可以通过发送短信来定制电影,视频,交友,下载等在线服务, 联盟程序正是处于用户与SP商之间的一种接口平台,平台下可以发展站长,站长在自己的站上做宣传. 手

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
dim s_Usr,s_Pwd,s_Chk,ErrStr
ErrStr=""

'验证登录用户名密码

	s_Usr = YeSqlStr(Trim(Request.form("Usr_name")),0)
	s_Pwd = YeSqlStr(Trim(Request.form("Usr_pass")),0)
	s_Chk = Trim(Request.form("Usr_check"))
	If s_Chk <> session("CheckNub") or s_Chk="" then 
	ErrStr="验证码错误,请重试..."
	else
		If s_Usr <> "" And s_Pwd <> "" Then
	    	call ConnectionDatabase
			set Rs=GrateRs("select * from member where username like '"&trim(s_Usr)&"'",1)
			If Not Rs.Eof Then
				If Rs("passwd") = s_Pwd Then
					Session("Usr_UserName") = s_Usr
					Session("Usr_PassWord") = md5(s_Pwd)
				Else
					ErrStr="密码不正确!"
				End If
			Else
				ErrStr="用户不存在!"
			End If
			call DBConnEnd
		Else
			ErrStr="用户名和密码不能为空!"
		End If
		
	end if

'转向
	
	if ErrStr="" then 
		response.write "<script language='JavaScript'>{window.alert('欢迎你登入::"&site_name&"::用户面板！');window.location='UserInfo.asp';}</script>"
	else
		response.write "<script language='JavaScript'>{window.alert('"&ErrStr&" 请返回重新登录');window.location='javascript:history.back();';}</script>"
	end if
%>