login.asp

类似于baidu的百度知道

<!--#include file=conn.asp-->
<!--#include file="Function_QT.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="md5.asp"-->
<%
if request("login")="登录" then
jiance=request("name")
if InStr(jiance,"or")<>0 or InStr(jiance,"'")<>0 or InStr(jiance,"`")<>0 or InStr(jiance,"=")<>0 or InStr(jiance,"-")<>0 or InStr(jiance,",")<>0 or InStr(jiance,"and")<>0 then 
Response.Write "<script language=JavaScript>{alert('用户名非法！');history.back();}</script>"
Response.End 
end if
if request("url")="" then
url1="Index.asp"
else
url1=request("url")
end if
		if not IsNumeric(request("verifycode")) then
		Response.Write ("<script>alert('友情提示!\n\n验证编码必须是数字!');history.back();</script>")
		Response.end
	end if
	if (int(session("SafeCode"))<>int(request("verifycode"))) then
		Response.Write ("<script>alert('友情提示!\n\n验证编码输入错误!');history.back();</script>")
		Response.end
	end if
	  if request("name")="" then
	  response.write"<script>alert('用户名不能为空!');history.back();</script>"
	  elseif request("pwd")="" then
	  response.write"<script>alert('密码不能为空!');history.back();</script>"
	  else
	  name=request("name")
	  pwd=request("pwd")
	  rs.open"select * from person where name='"&name&"' and pwd='"&md5(pwd)&"'",conn,1,1
	  if rs.eof then
	  response.write"<script>alert('用户名或密码错误!');history.back();</script>"
	  else
	  rs.close
	  rs3.open"select * from person where name='"&name&"'",conn,1,3
	  rs3("logintime")=now
	  rs3.update
	  rs3.close
	  session("person")=name
	  response.redirect(url1)
	  end if
	  end if
	  else
	  %>
<title><%=webname%>_信息提示</title>
<!--#include file=top.asp-->
<script>
function check_loginform(f){
if(f.name.value==""||f.name.value.length<=0){f.name.focus();alert("请输入用户名");return false;}
if(f.pwd.value==""||f.pwd.value.length<=0){f.pwd.focus();alert("请输入密码");return false;}
}
</script>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="24"><a href="<%=weburl%>"><%=webname%></a> &gt; <span id="n1">信息提示</span></td>         
  </tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><img src="img/login.gif" alt="用户登陆" width="100" height="50" /></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<table width=60% border=0 align=center cellpadding=0 cellspacing=0><form action='Login.asp' method='post' onSubmit='return check_loginform(this);'><tr> <td height=70><div align=center><span>请您先登录再进行操作。如果您还没有注册，<a href="Reg.asp" target="_blank"><font color="#FF0000">请点此注册</font></a>；<br><img src=img/tips.gif>如果您是贴吧的用户，您可以直接用贴吧的帐号进行登陆</span></div></td></tr><tr> <td class=bgcnt><span class=f14> </span> <table width=200 border=0 align=center cellpadding=0 cellspacing=0><tr> 
		<td width=31% height=23>用户名:</td><td width=69%><input type=text size=15 name=name id=name class="ip22"></td></tr><tr> 
			<td height=21>密　码:</td><td><input class="ip22" type=password size=15 name=pwd id=pwd></td></tr>
        <tr>
 <td height=10>验证码:</td><td><input type="text" size=3 maxlength=4 name=verifycode class="ip22"> <%Call GetSafeCode%><br><FONT color=#666666>(请输入图中数字)</FONT></td>
        </tr>
        <tr><td height=30>　</td><td><input type='hidden' name=url value='<%=request.ServerVariables("HTTP_REFERER")%>'><input type=submit name=login id=login value=登录  class="ip2"></td></tr></form></table></td></tr></table>
        
        </td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>
<!--#include file=end.asp-->
<%end if%>