📄 login.asp
字号:
<%@ codepage ="936" %><%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：service@fyasp.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp"-->
<%
const newspage=1
dim newsql
dim newrs
'-------------定义随机码
dim rndnum,verifycode
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
'-------------定义随机码结束
newsql="select * from news where bz=3 order by newsid desc"
Set newrs= Server.CreateObject("ADODB.Recordset")
newrs.open newsql,conn,1,1
%>
<HTML><HEAD><TITLE><%=WebName%>[会员登录]</TITLE>
<META NAME="Keywords" CONTENT="<%=search%>">
<META content="商务网,物流信息-http://www.fyasp.com/供求信息/ 商业公告板/商业商业机会/进出口商业机会/电子商务/" name=description>
<STYLE type=text/css>BODY {
FONT-SIZE: 12px; COLOR: #000; FONT-FAMILY: 宋体
}
TD {
FONT-SIZE: 12px; COLOR: #000; FONT-FAMILY: 宋体
}
A.top {
FONT-SIZE: 10px; COLOR: #ffffff
}
A:link {
COLOR: #039
}
A:visited {
COLOR: #909
}
A:hover {
COLOR: #f60
}
.M {
FONT-WEIGHT: bold; FONT-SIZE: 14px; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal
}
}
</STYLE>
<script language="javascript">
function show_sader(mylink)
{
window.open(mylink,'','top=140,left=135,width=480,height=280,scrollbars=no')
}
</script>
<SCRIPT language=JavaScript>
<!--
function docheck()
{
if (document.loginForm.UsernameGet.value =="")
{
alert("请填写您的用户名！");
document.loginForm.UsernameGet.focus();
return false;
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.loginForm.UsernameGet.value)) {
alert("用户名填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。");
document.loginForm.UsernameGet.focus();
document.loginForm.UsernameGet.select();
return false;
}
if (document.loginForm.PasswordGet.value =="")
{
alert("请填写您的密码！");
document.loginForm.PasswordGet.focus();
return false;
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.loginForm.PasswordGet.value)) {
alert("密码填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。");
document.loginForm.PasswordGet.focus();
document.loginForm.PasswordGet.select();
return false;
}
if (loginForm.verifycode.value=="")
{
alert("请输入验证码!");
loginForm.verifycode.focus();
return false;
}
if (document.loginForm.verifycode.value!=document.loginForm.verifycode2.value ){
alert("输入的验证码不正确，请看清后填写！");
document.loginForm.verifycode.focus();
return false;
}
loginForm.UsernameGet.value=loginForm.UsernameGet.value.toLowerCase();
//loginForm.submit();
return true;
}
//-->
</SCRIPT>
</HEAD>
<BODY text=#000000 vLink=#800080 aLink=#ff0000 link=#003399 bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<CENTER> <br>
<BR>
<FORM action=Login_Check.asp method=POST name=loginForm onsubmit="return docheck()">
<BR>
<TABLE cellSpacing=0 cellPadding=0 width=750 border=0>
<TBODY>
<TR>
<TD class=M valign="baseline">
<IMG height=16 src="images/icon_attion_16.gif" width=16 align=baseline>
<FONT color=#ff7300>你目前进行的操作，需要“登录”后才能继续……</FONT>
</TD>
</TR>
</TBODY>
</TABLE>
<HR width=750 color=#ff7300 SIZE=3>
<BR><BR>
<TABLE cellSpacing=0 cellPadding=0 width=730 border=0>
<TBODY>
<TR>
<TD><IMG height=23 src="images/joinin_bmember.gif" width=105><BR><BR></TD>
<TD style="PADDING-LEFT: 40px" colSpan=3 class=M >
<IMG height=23 src="images/joinin_nmember.gif" width=105>
<b><a href=register.asp><FONT>立即注册</FONT></a></b>
<BR><BR>
</TD>
</TR>
<TR>
<TD align=middle width="50%">
<TABLE height=142 cellSpacing=0 cellPadding=0 width=352 border=0>
<TBODY>
<TR>
<TD background=images/signin_back.gif>
<TABLE cellSpacing=3 cellPadding=3 width="90%" align=center border=0>
<TBODY>
<TR>
<TD colSpan=3>
<DIV class=S align=center>
<DIV align=left>请输入登录名,密码,验证码，按“登录”即可。</DIV></DIV>
</TD>
</TR>
<TR>
<TD class=M width="35%">会员登录名： </TD>
<TD width="35%">
<INPUT class=textboxline id=u_ID maxLength=15 name=UsernameGet style="WIDTH: 120px" title=请在此文本框中输入您的登录帐号信息。 size="20">
</TD>
<TD class=S>
</TD>
</TR>
<TR>
<TD class=M>密 码： </TD>
<TD>
<INPUT class=textboxline id=u_Pwd maxLength=15 name=PasswordGet style="WIDTH: 120px" title=请在此文本框中输入您的登录密码信息。 type=password size="20">
</TD>
<TD class=S><a href="javascript:show_sader("getAnswer.asp")">
忘了密码？</A></TD></TR>
<TR>
<TD class=M>验 证 码:</TD>
<TD>
<INPUT type=text size=10 name=verifycode>
<b><font color=#ff0000><%=session("verifycode")%>
<input type="hidden" name="verifycode2" value="<%=session("verifycode")%>"></font>
</b>
</TD>
<TD class=S>
<INPUT class=M tabIndex=3 type=submit value="登 录" name=Submit>
</TD></TR>
</TBODY>
</TABLE>
</TD></TR></TBODY></TABLE></TD>
<TD width="4%"></TD>
<TD style="PADDING-LEFT: 10px; BORDER-LEFT: #9a9a9a 1px solid" width="55%" colowspan=2>
<TABLE border=0 cellPadding=0 cellSpacing=0 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD height="92" valign="bottom">
<SPAN class=Subject3>
<FONT
color=#333333>
<%do while not newrs.eof%> <span lang="en-us">
<% if len(newrs("Content"))>310 then%><%=left(newrs("Content"),310)%><% else%><%=newrs("Content")%><%end if%></SPAN></FONT></TD></TR>
<tr>
<TD height="20" valign="middle">
<p align="right"><b>
<SPAN class=Subject3>
<FONT
color=#333333>
<span lang="en-us">
<%=newrs("Name")%></SPAN></FONT></b></TD>
</tr>
<%newrs.movenext
z=z+1
if z>=newspage then Exit Do
loop
newrs.close
set newrs=nothing
%>
</TBODY></TABLE>
<BR><BR></TD>
</TR>
</TBODY>
</TABLE><BR>
<p> </p>
<p><BR>
</p>
</FORM>
<HR style="HEIGHT: 3px" color=#ff7300>
</CENTER>
</BODY>
</HTML>
<!--#include file="../inc/end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -