📄 default.asp

📁 这是一个ASP平台的制衣管理系统,里面有比较好看FLASH动画,希望大家喜欢.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache"
%>
<!--#include file="Connections/conn.asp" -->
<html>
<head>
	<title>CRM</title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<link rel="stylesheet" href="library/css/common.css" type="text/css">
	<script language="JavaScript" src="library/js/common.js"></script>
	<script language="JavaScript" src="library/js/notice.js"></script>
</head>


<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="img/mother_bg.gif">
<DIV style="position:absolute; visibility:show; left:0px; top:0px; width:234px; height:428px; z-index:1">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
	<td><script language='JavaScript'>mother();</script></td>
</tr>
</table>
</div>

<table border="0" cellpadding="0" cellspacing="0">
<tr>
	<td><IMG SRC="img/mother_top.jpg" ALT="" WIDTH="1000" HEIGHT="203" BORDER="0" align="middle"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
	<td valign="top"><IMG SRC="img/mother_img1.gif" WIDTH="71" HEIGHT="225" BORDER="0" ALT=""></td>
	<td width="163"></td>
	<td valign="middle">
	  <table width="440" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td align="center" valign="bottom">
		  <%
If Session("CRM_account") <> "" And Session("CRM_name") <> "" And Session("CRM_level") > 0 Then Response.Redirect("index.asp?id=listAll.asp")
Dim action
action = Trim(Request("action"))
Select Case action
Case "login"
    Call login()
Case Else
    Call loginForm()
End Select

Sub login()
    Dim account,password
	account = Trim(Request("Name"))
	password = Trim(Request("PassWord"))
	If account = "" Or password = "" Then
	    Response.Redirect("default.asp?errMsg=2")
		Response.End()
	End If
	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_user Where uAccount = '" & account & "'",conn,3,1
	If rs.RecordCount <> 1 Then
	    Response.Redirect("default.asp?errMsg=1")
		Response.End()
	End If
	If password <> rs("uPassword") Then
	    Response.Redirect("default.asp?errMsg=1")
		Response.End()
	End If
	If rs("uBlock") = True Then
	    Response.Redirect("default.asp?errMsg=3")
		Response.End()
	End If
	Session("CRM_account") = account
	Session("CRM_name") = rs("uName")
	Session("CRM_level") = rs("uLevel")
	Session("CRM_group") = rs("uGroup")
	rs.Close
	Set rs = Nothing
	Response.Redirect("index.asp")
End Sub

Sub loginForm()
    Dim errMsg
	errMsg = CInt(ABS(Request("errMsg")))
	Select Case errMsg
	Case 2
	    errMsg = "<font color=""#FF0000"">请输入账号和密码。</font>"
	Case 1
	    errMsg = "<font color=""#FF0000"">账号密码错误。</font>"
	Case 3
	    errMsg = "<font color=""#FF0000"">账号被冻结。</font>"
	Case Else
	    errMsg = ""
	End Select
%>
		  <form name="form1" method="post" action="?action=login">
		  <input name="reaction" type="hidden" value="chklogin" />
            <TABLE cellSpacing=0 cellPadding=0 border=0>
              <TBODY>
                <TR>
                  <TD class="from-info">用户名称：</TD>
                  <TD width="20" rowspan="2">&nbsp;</TD>
                  <TD class="from-info">用户密码：</TD>
                  <TD width="20" rowspan="2">&nbsp;</TD>
                  <TD class="from-info">验证码：</TD>
                  <TD>&nbsp;</TD>
                </TR>
                
                <TR>
                  <TD><INPUT 
            name="Name" class="from-style" id=UserName  onfocus="this.select(); " 
            onmouseover="this.style.background='#ffffff';"  onmouseout="this.style.background='#F7F7F7'" size="12" maxLength=15></TD>
                  <TD><INPUT name="PassWord" type=password class="from-style" id="PassWord" onFocus="this.select(); " onMouseOver="this.style.background='#ffffff';"  onmouseout="this.style.background='#F7F7F7'" size="12" 
            maxLength=15></TD>
                  <TD><INPUT  name="No" class="from-style" id="No"  onfocus="this.select(); " onMouseOver="this.style.background='#ffffff';"  onmouseout="this.style.background='#F7F7F7'" size=8 maxLength=4></TD>
                  <TD>&nbsp;&nbsp;<img src="inc/getcode.asp"  alt="验证码,看不清楚?请点击刷新验证码" height="16" style="cursor : pointer;" onClick="this.src='inc/getcode.asp'" /></TD>
                </TR>
              </TBODY>
            </TABLE>
            <table border="0">
              <tr>
                <td>
                  <input name="Submit" type="submit" class="from-style" value="提交"></td>
                <td><input name="Submit2" type="reset" class="from-style" value="重置"></td>
              </tr>
            </table><% = errMsg %>
		  </form>
          </td>
        </tr>
    </table>		</td>
	<td valign="top">
		<table border="0" cellpadding="0" cellspacing="0" width="233" height="225">
		<tr>
			
          <td align="right" valign="bottom" style="padding:10 30 10 10"><IMG SRC="img/mother_img2.gif" WIDTH="233" HEIGHT="167" BORDER="0" ALT=""></td>
		</tr>
		</table>	</td>
</tr>
<tr>
	<td colspan="4" valign="top"><IMG SRC="img/mother_copyright.gif" WIDTH="499" HEIGHT="28" BORDER="0" ALT=""></td>
</tr>
</table>
<%
End Sub
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -