|
#2
baisl1002011-06-15 16:44
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"--> <!--#include file="config.asp"--> <!--#include file="char.inc"--> <% response.cookies(Forcast_SN)("UserName")="" response.cookies(Forcast_SN)("KEY")="" response.cookies(Forcast_SN)("purview")="" response.cookies(Forcast_SN)("fullname")="" response.cookies(Forcast_SN)("reglevel")="" response.cookies(Forcast_SN)("shenhe")="" response.cookies(Forcast_SN)("ViewUrl")="Admin_login.asp"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <LINK href=site.css rel=stylesheet> <title><%=copyright%><%=version%><%=ver%></title> <script language="JavaScript"> <!-- if (self != top) top.location.href = window.location.href //--> </script> <script language=javascript> function CheckFormUserLogin() { if(document.UserLogin.UserName.value=="") { alert("请输入用户名！"); document.UserLogin.UserName.focus(); return false; } if(document.UserLogin.Passwd.value == "") { alert("请输入密码！"); document.UserLogin.Passwd.focus(); return false; } if(document.UserLogin.verifycode.value == "") { alert("请输入验证码！"); document.UserLogin.verifycode.focus(); return false; } } </script> <style type="text/css"> <!-- .style1 { font-size: 10.5pt; font-weight: bold; } --> </style> </head> <body bgcolor="#ffffff" topmargin="0" marginheight="0"> <br> <br> <form method="POST" action="ChkLogin.asp" name="UserLogin" onSubmit="return CheckFormUserLogin();"> <table border="0" width="750" align="center" cellspacing="0" cellpadding="0"> <tr> <td height="78" background="IMAGES/admin_1.gif" align="center"> <br> <%=copyright%> <%=version%> <%=ver%> </td> </tr> <tr> <td height="120" background="IMAGES/admin_2.gif"> <table border="0" width="90%" align="center" cellspacing="0" cellpadding="0"> <tr> <td><span class="style1"><font color=red>用 户 登 录</font></span><br><br></td> </tr> <tr> <td> 用户名：<input name="UserName" size="15" font face="宋体" style="font-size: 9pt; background-color:#EAEAF4"> 密 码：<input type="password" name="Passwd" size="15" font face="宋体" style="font-size: 9pt; background-color:#EAEAF4"> 验证码： <% Function getcode1() Dim test On Error Resume Next Set test=Server.CreateObject("Adodb.Stream") Set test=Nothing If Err Then Dim zNum Randomize timer zNum = cint(8999*Rnd+1000) Session("verifycode") = zNum getcode1= Session("verifycode") Else getcode1= "<img src=""getcode.asp"" onclick='this.src=""getcode.asp#""+new Date().getTime()'title=""看不清？点击刷新"" style=""padding: 4px;""/>" End If End Function %> <input type="text" name="verifycode" size="15" font face="宋体" style="font-size: 9pt; background-color:#EAEAF4"><b><span><font color=#000000><%=getcode1()%></font></span></b> <input type="submit" name="Submit" value="确定" style="font-size: 9pt; background-image:url(./images/btn2.gif); width: 40px; height: 20px; cursor: hand; border-style: none; background-color: transparent; color: Black;" title="确定"> <input type="reset" name="Submit2" value="重输" style="font-size: 9pt; background-image:url(./images/btn2.gif); width: 40px; height: 20px; cursor: hand; border-style: none; background-color: transparent; color: Black;" title="重输"> </td> </tr> </table> </td> </tr> <tr> <td height="82" background="IMAGES/admin_3.gif"> </td> </tr> </table> </form> </body> </html> |
说明一下：
1，就是要求一般的用户，一个账号在同一时间只能有一个人在登陆，不能出现有很多的人，在不同的电脑上同时登陆的这种情况。
2，如果是一个集体的用户，可以让一个账号同时有3到5个人同时登陆，也就是说登陆的人数不能大于上线。
能解决两个更好，只能解决第一个的也可以，有高手的愿意帮我的请联系：519389079
关键是我不会做啊