⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 login.asp

📁 有关遗传算法的例子
💻 ASP
字号:
<!--#include file="conn.asp" -->
<link rel="stylesheet" href="images/css.css" type="text/css">
<body topmargin="0" leftmargin="0" bgcolor="#eeece0" marginwidth="0" marginheight="0">
<script language="JavaScript" src="../images/js.js"></script>
<script language="JavaScript" src="title.js"></script>
<script language="Javascript">
function check(){
if(document.userlogin.username.value==""){alert("请输入用户名");document.userlogin.username.focus();return false;}
if(document.userlogin.password.value==""){alert("请输入密码");return false;}
if(document.userlogin.vercode.value==""){alert("请输入验证码");return false;}
return true;
}

function checkfind(){
if(document.userlogin.username.value==""){
document.userlogin.username.focus();
alert("请输入用户名");
return false;
}
else{
location.href="../member/member.asp?action=getpass&username="+document.userlogin.username.value
}
return true;
}

function regchk(){
if(document.userlogin.username.value==""){
document.userlogin.username.focus();
alert("请在用户栏输入你想要注册的用户名");
return false;
}
if(document.userlogin.password.value==""){
alert("请在密码栏输入你想要注册用户的密码");
return false;
}
if(document.userlogin.vercode.value==""){
alert("请输入验证码");
return false;
}
else{
location.href="../member/member.asp?action=reg&username="+document.userlogin.username.value+"&password="+document.userlogin.password.value+"&vercode="+document.userlogin.vercode.value
}
}
</script>
<%
if trim(session("username"))="" then
call Test_netbaruser
%>
<table border="0" align="right" cellspacing="0" cellpadding="3">
  <form name="userlogin" method="post" action="../member/member.asp?action=login" onsubmit="javascript:return check();" >
    <tr> 
      <td> 
        <div align="left"><img src="images/icon_21x21_user.gif" width="21" height="21" align="absmiddle">用户:</div>
      </td>
      <td> 
        <input type="text" name="username" size=9 tabindex="1" value="<%=Rq("username")%>" class="input">
      </td>
      <td>密码:</td>
      <td> 
        <input type="password" name="password" size=9 tabindex="2" value="<%=Rq("password")%>" class="input">
      </td>
      <td>验证:</td>
      <td> 
        <input type="text" name="vercode" size=4 tabindex="3" class="input">
      </td>
      <td><img src="../number.asp?n=<%=Timer%>" border="0" title="请在验证框中输入此号码" align="absmiddle"></td>
      <td> 
        &nbsp;<input type="hidden" name="submit" value="mysubmit"><input type="image" border="0" name="submit" src="images/login.gif" align="absmiddle" tabindex="4">
        <a href="####"><img src="images/reg.gif" align="absmiddle" onclick="return regchk();" tabindex="5" border="0"></a>
		<a href="####" onclick="openusercenter(5)"><img src="images/buy_faq.gif" width="15" height="16" title="忘了密码" align="absmiddle" border="0"></a>&nbsp; 
    </tr>
  </form>
  <%
else
'///////////////////////////////////////////////////////
'   登陆成功,读取会员信息
'///////////////////////////////////////////////////////
set rs=server.createobject("adodb.recordset")
sql="select * from 会员 where 用户名='"&session("username")&"'"
rs.open sql,conn,1,1
if not rs.EOF then
if rs("在线状态")="否" then
session("userid")=""
session("username")=""
session("grade")=""
Call msgbox_j("用户己离线,请重新登陆","location.href='login.asp'")
Response.end
end if
%>
  <tr> 
    <td colspan=8> 
      <table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
        <tr> 
          <td>
            <div align="right">欢迎你:<font color="#990000"><%=session("username")%></font>&nbsp; 
              <span title="<%=vip_name%>">( 
              <%vip_name=split(vip_name,"|")
response.write vip_name(session("grade"))%>
              ) </span> 上次登陆:<%=rs("上次登陆时间")%> &nbsp;&nbsp;<a href="####" onClick="openusercenter(1);"><img src="images/usercenter.gif" border="0" tabindex="6" align="absmiddle"></a>&nbsp;&nbsp;<a href="../member/member.asp?action=exit"><img src="images/exit.gif" border="0" tabindex="6" align="absmiddle"></a> 
              <%end if  '/////////////结束读取//////////////////////////////////////
end if
set rs=nothing%>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%cleartimeout_user%>

⌨️ 快捷键说明

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