fywen_login.asp

好用的贴吧源代码

<!--#include file="conn.asp"-->
<!--#include file="inc/pwwd.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
If Request.QueryString("searchname") <> "" Then
searchname = Request.QueryString("searchname") 
Url=Request.QueryString("Url")&"&searchname="&searchname 
Else
Url=Request.QueryString("Url")
End If
UserName=ReplaceBadWord(request.form("UserName"))
password=ReplaceBadWord(request.form("userpassword"))
Logindate=date() & Chr(32) & time()
   	If Username="" Or password="" Then 
    %>
    <script language="javascript">
       alert("用户名和登陆密码必须填写！")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Response.End()
	Else
	password=md5(password)
	Dim checkrsobj,sql
	Sql="select * from [user] where [username]='"&Username&"' And [userpwd]='"&password&"'"

	Set Rs=Server.CreateObject("adodb.recordset")
	Rs.open Sql,conn,1,1
    If Rs.eof Then 
	%>
    <script language="javascript">
       alert("用户名不存在或密码错误")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Else
	Firstdate = Rs("lastdate")
	useip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
    If useip = "" Then 
    useip = Request.ServerVariables("REMOTE_ADDR") 
    End If
        set rs= server.createobject("adodb.recordset")
        sql1= "update [user] set [firstdate]='"&Firstdate&"',[lastdate]='"&Logindate&"',[userip]='"&useip&"' where [username]='"&Username&"'"
    Rs.Open sql1,conn
	session("uesrname") = username
	session("userpwd") = password
	If Url="" Then
	Response.Redirect("index.asp")
	Else
	Response.Redirect(Url)
	End If
    End If
	End if
	Call fywencl()	
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
%>