📄 login.asp

📁 北京商务网
💻 ASP
字号:
<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/config.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 
%>
<SCRIPT>
function view(url){ 
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460'); 
}
</SCRIPT>
<HTML><HEAD><TITLE><%=WebName%>[会员登录]</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<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>
<LINK href="images/css01.css" rel=stylesheet>
</HEAD>
<FORM action=Login_Check.asp method=POST name=loginForm onsubmit="return docheck()">
<BODY text=#000000 leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE border=0 cellPadding=0 cellSpacing=0 height="100%" width="100%">
<TBODY>
<TR>
<TD>
<DIV align=center>
<TABLE bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 width=778>
<TBODY>
<TR>
<TD>
<DIV align=center>
<img border="0" src="../images/zyoklogo.gif"></DIV></TD>
<TD width=600>
<DIV align=right>
<IMG src="images/zzdrjm01.gif"></DIV></TD></TR></TBODY></TABLE>
<TABLE bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 width=778 height="195">
<TBODY>
<TR>
<TD vAlign=top width=200 height="195">
<img border="0" src="images/zzdrjm02.gif"></TD>
<TD background=images/zzdrjm03.gif 
style="BACKGROUND-REPEAT: no-repeat" vAlign=top width=600 height="195">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="88%">
<TBODY>
<TR>
<TD class=Subject3>&nbsp;&nbsp;&nbsp;&nbsp;<FONT 
color=#333333>如果您已经是本站的注册会员，请在登陆窗口输入您的密码、帐号。如果您尚未注册请按这里<B><a href="register.asp"><FONT 
color=#006600>注册</FONT></a></B>，如果您忘</FONT></TD>
<TD class=Subject3 vAlign=top>
<DIV id=Layer1 
style="HEIGHT: 172px; POSITION: absolute; WIDTH: 175px; Z-INDEX: 1">
<IMG 
height=227 name=as12 src="images/zzdrjm21.gif" 
width=202></DIV></TD></TR>
<TR>
<TD height=20>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=120><FONT color=#333333>了密码，</FONT><B><a href="javascript:show_sader(&quot;getAnswer.asp&quot;)"><FONT 
color=#336600>请到这里</FONT></a></B>。</TD>
<TD>
<DIV align=right><FONT color=#333333>&nbsp;</FONT></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>　</TD></TR>
<TR>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="96%" height="129">
<TBODY>
<TR>
<TD height="129">
<DIV align=right>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=209>
<TBODY>
<TR>
<TD>
<IMG src="images/zzdrjm11.gif"></TD></TR>
<TR>
<TD background=images/zzdrjm12.gif>
<DIV align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 
width=196 height="137">
<TBODY>
<TR>
<TD height=18 width=48></TD>
<TD height="18" width="144"></TD></TR>
<TR>
<TD height=28 width="48">
<DIV align=center><FONT 
color=#333333><B>用户名称：</B></FONT></DIV></TD>
<TD height="28" width="144">
<INPUT class=textboxline id=u_ID maxLength=15 name=UsernameGet style="WIDTH: 95px" title=请在此文本框中输入您的登录帐号信息。 size="20"> 
</TD></TR>
<TR>
<TD height=28 width="48">
<DIV align=center><B><FONT color=#333333>用户口令：</FONT></B></DIV></TD>
<TD height="28" width="144">
<INPUT class=textboxline id=u_Pwd maxLength=15 name=PasswordGet style="WIDTH: 95px" 
title=请在此文本框中输入您的登录密码信息。 type=password size="20"> 
</TD></TR>
<TR><TD align=middle colSpan=2 height="25" width="172">验证码：<INPUT type=text size=6 name=verifycode>
                            输入 <b><font color=#ff0000><%=session("verifycode")%>
                            <input type="hidden" name="verifycode2" value="<%=session("verifycode")%>">
                            </font></b></TD>
                        </TR>
<TR>
<TD align=right colSpan=2 height=20 width="172">
<INPUT align=left border=0 name=I4 src="../index_pic/dl.gif" type=image><img border="0" src="../index_pic/login2.gif" align="right"></TD></TR>
<TR>
<TD height=18 width="192" colspan="2">
  <p align="center"><a href="register.asp"><img border="0" src="../index_pic/loginbt03.gif"></a></TD>
</TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD>
<IMG src="images/zzdrjm13.gif"></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=196 height="195">
<IMG 
src="images/zzdrjm04.gif"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=778 height="71">
<TBODY>
<TR>
<TD background=images/zzdrjm05.gif height=42>
<DIV align=center>
<TABLE border=0 cellPadding=3 cellSpacing=1 width="88%" height="126" 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></span></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></DIV></TD></TR>
<TR>
<TD height="29">　</TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>
</FORM></HTML>
⌨️ 快捷键说明

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