pinggu_login.asp

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

<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="../inc/conn.asp"-->
<%
function douhao(kk)
douhao="'" &  replace(kk,"'","''")  & "'"
end function
userid=douhao(trim(request("userid")))
pwd=douhao(trim(request("pwd")))
if userid="" or pwd="" then
response.end
end if
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from pinguren where userid="&userid&" and pwd="&pwd&" and ok=1 "
rs.open sql,conn,1,1
if rs.eof then
response.write "<script language='javascript'>alert('用户名或密码不存在！');history.back();</script>"
response.end
end if
session("pg_userid")=trim(request("userid"))
response.redirect "pgren_index.asp?sort=0"
%>