login.asp

可以做论坛

<%@ Language=VBScript %>
<%
Response.Buffer = True 
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cache"
%>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="user.asp"-->
<!--#include file="bottom.asp"-->
<table width="775" border="0" align="center" cellspacing="0" class="td4">
  <tr> 
    <td><a href="./" target="_self"><font color="#FFFFFF">·首页</font></a>>>><font color="#FFFFFF">用户登陆</font></td>
  </tr>
</table>
<%Response.Write "<table width=775 align=center border=0 align=center cellspacing=0><tr><td align=center>"%>
<div align="center">
<form name="form1" method="post" action="login.asp">
        登陆ID： 
        <input name="name1" type="text" size="10"><br>
        密&nbsp;&nbsp;码： 
        <input name="pwl" type="password" size="10">
        <input name="id" type="hidden" value="<%=id%>">
        <input name="url" type="hidden" value="<%=url%>"><br>
        <input type="submit" name="Submit" value="登陆">
      </form>
	</div> 
	


<%
'Response.Write ""&id&""
nam=request.form("name1")
if nam<>"" then '用户名这空
url=request.form("url")
id=request.form("id")
pwl=request.form("pwl")
nam=Replace(nam,"'"," ")
ccn="select * from user where ulock=0 and user='"&nam&"'"
set rsn=server.createobject("adodb.recordset")
rsn.open ccn,conn,1,1
if rsn.eof then 
Response.Write "<div align=center>没有此用户或帐号被锁<a href=index.asp> 请返回首页</a></div>"
else 
  if pwl<>rsn("pwl")then
  Response.Write "密码不对<a href=index.asp> 请返回首页</a>"
  else 
  didy=rsn("idy")
  dbm=rsn("bm")

ccon="select * from online where bm='"&dbm&"'"
set rson=server.createobject("adodb.recordset")
rson.open ccon,conn,1,1
if not rson.eof then
conn.execute("delete from online where bm='"&dbm&"'")
end if
conn.Execute("update online set hdtime=now(),bm='"&dbm&"',online=1,idy='"&didy&"' where id="&id)
conn.Execute("update user set dltime=now() where idy="&didy&"")
session("idy")=didy
Response.clear
'response.redirect ""&request.serverVariables("Http_REFERER")&""
response.redirect "javascript:history.back()"
'response.redirect "index.asp"
'response.write"登陆成<a href=javascript:history.back()>返回</a>"
 
  end if

end if
else '用名为空
Response.Write "<div align=center>请输入用户名与密码。新用户请<a href=reg.asp>[注册]</a></div>"
end if'用名为空
Response.Write "</td></tr><tr><td width=1>&nbsp;</td></tr></table>"
Response.Write"<table width=775 border=0 align=center cellspacing=0 class=td3><tr> <td>&nbsp;</td></tr></table>"
Response.Write ""&asptbcopy&""
Response.Flush
%>