?? default.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"> </TD>
<TD class="from-info">用戶密碼：</TD>
<TD width="20" rowspan="2"> </TD>
<TD class="from-info">驗證碼：</TD>
<TD> </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> <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 + -