chiter.zhonglong_ok.asp

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

<!--#include file="../inc/conn.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
opendataconn
uname=trim(request("uname"))
upwd=trim(request("upwd"))
uname=replace(uname,"<","")
uname=replace(uname,">","")
uname=replace(uname,"$","")
uname=replace(uname,"'","")
upwd=replace(upwd,"<","")
upwd=replace(upwd,">","")
upwd=replace(upwd,"$","")
upwd=replace(upwd,"'","")
if uname="" or upwd="" then
   response.redirect"manage.asp"
   response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from manager66 where name='" & uname & "' and pwd='" & upwd & "' "
rs.open sql,conn,1,1

if rs.eof then
  response.redirect "manage.asp"
  response.end
else
  session("manager")="manager"
  session("idkey")=trim(rs("id_key"))
  session("logined")=true
  session("gl_id")=trim(rs("id"))
  session("gl_name")=trim(rs("name"))
  session("gonggao")=trim(rs("gonggao"))
  session("Type")=trim(rs("Type"))
  session("news")=trim(rs("news"))
  session("ads")=trim(rs("ads"))
  session("images")=trim(rs("images"))
  session("hyetype")=trim(rs("hyetype"))
  session("hyedetail")=trim(rs("hyedetail"))
  session("newhouse")=trim(rs("newhouse"))
  session("Sphouse")=trim(rs("Sphouse"))
  session("Tjhouse")=trim(rs("Tjhouse"))
  session("house")=trim(rs("house"))
  session("gl_old")=trim(rs("gl_old"))
  session("Tjrecomco")=trim(rs("Tjrecomco"))
  session("dc")=trim(rs("dc"))
  session("banner")=trim(rs("banner"))
  session("gbook")=trim(rs("gbook"))
  session("member")=trim(rs("member"))
  session("link")=trim(rs("link"))
  session("peigou")=trim(rs("peigou"))
  session("pinguren")=trim(rs("pinguren"))
  session("pingu")=trim(rs("pingu"))
  session("person")=trim(rs("person"))
  session("jc")=trim(rs("jc"))
  session("Zs")=trim(rs("Zs"))
  session("jj")=trim(rs("jj"))
  session("job")=trim(rs("job"))
  session("ADMIN")=trim(rs("ADMIN"))
  response.redirect"news_del.asp"
end if
set rs=nothing
rs.close
closedataconn
%>