login.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

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

<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - 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
            IF cstr(session("GetCode"))<>request.form("VerifyCode") THEN
                error_title="对不起，验证码输入不正确！"
                founderr=True
            End IF
        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="770"  BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
        <TR>
            <TD VALIGN="top" CLASS="TABLE-Main"><DIV CLASS="page-head">用户登陆</DIV><DIV CLASS="TABLE-Mainall">
			<FORM NAME=Login method=post action="Login.asp?Action=Login_Userlogin_addnowgoto" >
			用 户 名： <INPUT NAME="R_User" TYPE="text" CLASS="INPUTimage1" ID="R_User" SIZE="25" 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">
	        <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>
			</FORM>
			</DIV>
            </TD>
            <TD WIDTH="5"></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>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>