chklogin.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<!--#include file="Include/Conn.asp" -->
<!--#include file="Include/char.asp"-->
<%
    m_Return=request.ServerVariables("HTTP_Referer")
	dim mSql,rs
	dim mUserName,mPassword
	dim mIntegral
	mIntegral = 0 '登陆一次积分加10
	mUserName = checkStr(Trim(Request.Form("txtUserName")))
	mPassword = checkStr(Trim(Request.Form("txtPassword")))
	'查找用户
	mSql = "Select * from "&WebSqlType&"_member where "&WebSqlType&"_UserName='" & mUserName & "'"
    Set rs = conn.Execute(mSql)

	if (rs.bof) and (rs.eof) then
	   '无此用户
	   rs.Close
	   CloseDatabase()
	   call Msgbox("对不起，不存在该用户名，或该用户名已被锁定.需管理员审核！",1)
       Response.end			
	else
   	   if md5(mPassword)<>rs(""&WebSqlType&"_PassWord") then
          '密码错误
		  'rs.Close
	      
		  Call Msgbox("对不起，您的密码不正确！请输入正确的密码！",1)
		 
	   else
		  
		  '个人主页
          Response.Cookies("username")=rs(""&WebSqlType&"_username")
		  Response.Cookies("realName")=rs(""&WebSqlType&"_realName")
		  Response.Cookies("UserID")=rs(""&WebSqlType&"_ID")
		  if trim(rs(""&WebSqlType&"_sex"))="男" then
		  Response.Cookies("sexl")=rs(""&WebSqlType&"_sex")
		  end if
		  if trim(rs(""&WebSqlType&"_sex"))="女" then
		  Response.Cookies("sexn")=rs(""&WebSqlType&"_sex")
		  end if

conn.execute("update "&WebSqlType&"_member set "&WebSqlType&"_Edate='"&now()&"' Where "&WebSqlType&"_id=" & rs(""&WebSqlType&"_ID")&"")

sql1="select * from "&WebSqlType&"_top where "&cint(rs(""&WebSqlType&"_"&WebSqlType&""))&">="&WebSqlType&"_Ghtc and "&cint(rs(""&WebSqlType&"_"&WebSqlType&""))&"<"&WebSqlType&"_Ehtc"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then 
conn.execute("update "&WebSqlType&"_member set "&WebSqlType&"_top='新手' Where "&WebSqlType&"_id=" & rs(""&WebSqlType&"_ID")&"")                  
else 
conn.execute("update "&WebSqlType&"_member set "&WebSqlType&"_top='"&rs1(""&WebSqlType&"_title")&"' Where "&WebSqlType&"_id=" & rs(""&WebSqlType&"_ID")&"")
rs1.Close
end if

	      '返回	   
		  'm_Return = Request.QueryString("url")
          IF m_Return = "" then

		    Response.Redirect "index.asp"
			
		  Else
		    Response.Redirect m_Return
		  End if
		    Response.end
	   End if
	End if
    rs.close
	CloseDatabase()
%>