loginid.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 56 行

<%dim userid,pwd,url,rs
userid=trim(request.form("reg_user"))
pwd=trim(request.form("reg_pwd"))
reg_type=trim(request("reg_type"))
%>
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="../inc/conn.asp"-->
<%
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from company where userid='"&userid&"'"
rs.open sql,conn,1,1
if rs.eof  then
%>
<script language="JavaScript">
alert("对不起！该用户名不存在!")
history.back()
</script>
<%else 
set rs=server.createobject("adodb.recordset")
sql="select * from company where userid='"&userid&"' and pwd='"&pwd&"' and reg_type='"&reg_type&"' "
rs.open sql,conn,1,1
if rs.eof then
%>
<script language="JavaScript">
alert("对不起！密码错误!")
history.back()
</script>
<%
else
%>
<%
session("loginid")=userid
session("reg_type")=trim(rs("reg_type"))
     response.redirect "house_fabu.asp"
end if
rs.close
set rs=nothing
closedataconn
end if
%>