login.asp

整站源码jsp 有兴趣的可以看看

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->

<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：[e-mail]
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************


    IF int(Web_Const(44))=0 THEN
        error_title=Web_Const(46)
        Call Page_check(3,0)
    End IF
    Dim Username,Userpass,Logincount
    IF Action="Login_Userlogin_addnowgoto" THEN
        Username=checkfSQLStr(trim(request.form("R_User")))
        Userpass=checkfSQLStr(trim(request.form("R_Pass")))
        IF Username="" THEN
            error_title="对不起，请输入用户名！"
            founderr=True
        ElseIF Userpass="" THEN
            error_title="对不起，请输入登陆密码！"
            founderr=True
        ElseIF int(Web_Const(45))=1 THEN
        End IF
        IF founderr=True THEN
            Call Page_check(3,0)
        Else
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User where User_Name='" & Username & "'"
            Rs.open Sql,Conn,1,3
                IF Rs.Recordcount=0 THEN
                    error_title="对不起，登陆失败（可能无此用户或被管理锁定）！"
                    founderr=True
                ElseIF Rs("User_Passwd")<>Md5(Userpass) THEN
                    error_title="对不起，登陆失败（密码不正确）！"
                    founderr=True
                ElseIF Rs("User_Flag")=0 THEN
                    error_title="对不起，登陆失败（可能未通过审核或被管理员锁定）！"
                    founderr=True
                End IF
                IF founderr=True THEN
                    Call Page_check(3,0)
                Else
                    Rs("User_OldLoginDate")=Rs("User_LoginDate")
                    Rs("User_OldLoginIp")=Rs("User_LoginIp")
                    Rs("User_LoginDate")=Now()
                    Rs("User_LoginIp")=VisitorsIp
                    Rs("User_LoginCount")=Rs("User_LoginCount")+1
                    Rs.UpDate
                    Logincount=Rs("User_LoginCount")
                    session("Loginuser")=Username
                    session("Logincount")=Logincount
                    session.Timeout=20
                    Rs.close
                    set Rs=Nothing
                    IF request.form("Tourl")<>"" THEN
                        ToHistory=request.form("Tourl")
                    Else
                        ToHistory=VisitorsForm
                    End IF
                    Response.redirect ToHistory
                End IF
            Rs.close
            set Rs=Nothing
            End IF
        End IF
    Class_Name="用户登陆"
    Page_Name=Class_Name & " -- " & Web_Const(0)
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
%>
	<table width="990" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="321" valign="bottom" bgcolor="#082421"><span>
          <%Call Page_Login()%>
        </span><img src="Skins/blak/leftad.jpg" width="321" /></td>
        <td valign="top"><table width="100%"  border="0" align="center" cellpadding="2" cellspacing="0">
          <tr>
            <td valign="top" class="TABLE-Main"><div class="page-head">用户登陆</div>
                <div class="TABLE-Mainall">
                  <form action="Login.asp?Action=Login_Userlogin_addnowgoto" method="post" name="Login" id="Login" >
                    用 户 名：
                    <input name="R_User" type="text" class="INPUTimage1" id="R_User" size="23" maxlength="25" />
                    　如果没有请先<a href="Reg.asp" title="注册成为本站会员"><span class="TYPE-color2">注册</span></a>。<br />
                    登陆密码：
                    <input name="R_Pass" type="password" class="INPUTimage1" id="R_Pass" size="25" maxlength="25" />
　忘记密码了？请          <a href="Getpwd.asp" title="注册成为本站会员"><span class="TYPE-color2">点击这里</span></a>找回密码。<br />
                    <%IF Web_Const(45)=1 THEN%>
                    验 证 码：
                    <input name="VerifyCode" size="7" maxlength="4" type="text" class="INPUTimage1" value="<%If GetCode=9999 THEN%>9999<%End IF%>" />
                    <img src="Getcode.asp" align="absmiddle" />
                    <%End IF%>
                    <div class="TABLE-tstd">
                      <div align="center">
                        <input type="image" src="Skins/Blue/go.gif" name="Ok" align="absmiddle" />
                        <a href="javascript:history.go(-1);"><img src="Skins/Blue/back.gif" align="absmiddle" border="0" /></a>
                        <input name="Tourl" type="hidden" value="<%=VisitorsForm%>" />
                        </div>
                    </div>
                  </form>
                </div></td>
            <td width="0"></td>
            <td width="195" align="center" valign="top" class="TABLE-Side"><div class='TABLE-side1'><span class="type-color1">产品搜索</span></div>
                <div class='TABLE-side3'>
                  <%Call page_Search("Products")%>
                </div>
              <div class='TABLE-side1'><span class="type-color1">订单搜索</span></div>
              <div class='TABLE-side3'>
                <%Call page_Search("ShopCode")%>
              </div></td>
          </tr>
        </table></td>
      </tr>
    </table>
	<%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>