login.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 170 行
ASP
170 行
<!--#include file="../inc/conn.asp"-->
<!--#include file="../top.Asp" -->
<%
Sub ShowErrMsg(ErrMsg)
Response.Write("<script language='javascript'>")
Response.Write("alert('"&ErrMsg&"');window.location='login.asp';")
Response.Write("</script>")
Response.End
End Sub
OpenDataConn
Dim action
action=Trim(Request("action"))
If action="login" Then
Dim ErrMsg,Rs,userid,pwd,usertype
userid=Trim(Request("reg_user"))
pwd=Trim(Request("reg_pwd"))
usertype=Trim(Request("reg_type"))
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open"select * from company where userid='"&userid&"'",conn,1,1
If Rs.Eof Then
ErrMsg="此用户不存在！"
Call ShowErrMsg(ErrMsg)
ElseIf Trim(Rs("pwd"))<>pwd or Trim(Rs("reg_type"))<>usertype Then
ErrMsg="您输入的密码错误或用户类型不对！"
Call ShowErrMsg(ErrMsg)
ElseIf Trim(Rs("ismember"))<>1 Then
ErrMsg="您还没有正式成为我们的会员，正在审批中！"
Call ShowErrMsg(ErrMsg)
Else
Session("loginid")=userid
Session("reg_type")=Trim(Rs("reg_type"))
Response.Redirect("house_fabu.asp")
End If
Rs.Close
Set Rs=Nothing
ElseIf action="logout" Then
Session.Abandon()
Response.Write("<script language='javascript'>alert('您已安全退出！');window.location='../index.asp';</script>")
Response.End
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML><HEAD><TITLE><%=homepage_title%></TITLE>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="../inc/index.js"></script>
<link rel="stylesheet" href="../inc/style.css" type="text/css">
</head>
<body background="login/bg.gif" leftmargin="0" topmargin="0">
<div align="center">
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg4.gif border=0>
<TBODY>
<TR>
<TD align=right width=35>
<IMG height=13 src="../img/headarrow.gif"
width=17></TD>
<TD align=middle width=10></TD>
<TD class=TD_Place width=935>您现在的位置：<a href="../index.asp"><FONT color=#ffffff><%=homepage_title%></FONT></a><FONT color=#ffffff> >> 会员中心</FONT></TD></TR></TBODY></TABLE>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR><td>
</td>
</TR>
</TBODY>
</TABLE>
<table width=960 border=0 cellpadding=0 cellspacing=0 background=login/img_top011.gif>
<tr>
<td width="379"><img src=login/t01.gif width=350 height=51></td>
<td colspan="2" align=right valign=bottom> </td>
</tr>
<tr>
<td rowspan="2"><img src=login/t03.gif width=379 height=89></td>
<td height="46" colspan="2" align=right valign=top> </td>
</tr>
<tr>
<td width="585" height="43" bgcolor="FFBF00"> </td>
<td width="15"> </td>
</tr>
<tr>
<td colspan=3 align=center>
<table width=930 border=0 cellpadding=0 cellspacing=0 bgcolor=#FFBF00>
<form action="checkpass.asp" method="POST" name="reg" id="reg" onsubmit="return DoVerify();"><tr>
<td align=center><table border=0 cellpadding=0 cellspacing=0>
<tr>
<td width=336><img src=login/c01.gif width=336 height=35></td>
<td width=15><img src=login/c02.gif width=15 height=35></td>
<td background=login/cdd01.gif width=354><br></td>
</tr>
<tr>
<td valign=top background=login/cdd03.gif align=center>
<table width=336 background=login/cdd04.gif>
<tr>
<td align=center > <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<tr>
<td height="25"> <div align="center">用 户:
<input name="reg_user" type="text" id="reg_user">
</div></td>
</tr>
<tr>
<td height="25"> <div align="center">密 码:
<input name="reg_pwd" type="password" id="pass2">
</div></td>
</tr>
<tr>
<td height="25"> <div align="center">
<input type="radio" name="reg_type" value="0" class="box" checked>
个人
<input type="radio" name="reg_type" value="1" class="box">
中介公司 </div></td>
</tr>
<tr>
<td height="23"> <div align="center">
<input name="imageField" type="image" src="../images/frams_73.gif" width="53" height="27" border="0" class="box">
<%if is_house_ot_user=1 then%><a href="<%=house_ot_regurl%>"><img src="../images/frams_75.gif" width="53" height="27" border="0"></a><%else%><a href="reg.asp" onFocus="if(this.blur)this.blur()"><img src="../images/frams_75.gif" width="53" height="27" border="0"></a><%end if%></div></td>
</tr>
<tr>
<td height="30"> <div align="center"> <%if is_house_ot_user=1 then%><a href="<%=house_ot_lostpasswordurl%>">忘记密码</a> <%else%><a href="#" onClick="MM_openBrWindow('pwd_useid.asp?first=1','','width=245,height=135')"><font color="#000000">忘记密码？</font></a><%end if%></div></td>
</tr>
</table></td>
</tr>
<tr>
<td align=center><img src=login/colorbar.gif width=287 height="5" border=0>
</td>
</tr>
</table>
<br><table width=302 border=0 cellpadding=0 cellspacing=0>
<tr>
<td class=a2 align=center > <a href="<%=homepage_link%>"><%=homepage_title%></a></td>
</tr>
</table></td>
<td bgcolor=#B3B1A7><br></td>
<td background=login/cdd05.gif align=center> <table width=290 border=0 cellspacing=0 cellpadding=0>
<tr>
<td class=z1><br> <font color="#FF6600">·</font>注意：<font color="#0000FF">用户名</font>及<font color="#0000FF">密码</font>限定在30位字符以内，可以由英文字母（a-z），阿拉伯数字（0-9），下划线（_），圆点（.）和横线（-）构成，字符之间不允许有空格。<b><br>
<br>
</b> <font color="#FF6600">·</font>如果您填写完毕，请点击"提交"按钮，进入下一步；
点击"取消"按钮，即取消您刚才的输入，回到风云房产网首页，可以重新进行申请。<br> </td>
</tr>
<tr>
<td align=right height=20 valign=bottom> </td>
</tr>
</table></td>
</tr>
<tr>
<td><img src=login/c03.gif width=336 height=26></td>
<td><img src=login/c04.gif width=15 height=26></td>
<td background=login/cdd02.gif width=354><br></td>
</tr>
</table>
<br> </td>
</tr></form>
</table>
<table width=760 border=0 cellpadding=0 cellspacing=0>
<tr>
<td height=35 align=center> <div align="center"> <FONT class=footer>建议使用IE5.0或以上版本浏览
服务信箱：</FONT><FONT
face="Verdana, Arial, Helvetica, sans-serif"><A class=header
href="mailto:<%=your_email%>"><%=your_email%></A></FONT> <BR>
Copyright @ 风云房产网 2006 <%=homepage_link%> All Rights Reserved
<br>
</div></td>
</tr>
</table>
</div>
</body>
</html>
<%CloseDataConn%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?