📄 chklogin.asp

📁 中介之家房产中介系统 V4.0企业共享版

💻 ASP

字号:

 <%
 Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("enet.asp")
Set rs = Server.CreateObject("ADODB.Recordset")

dim sql
dim rs
dim seekerrs
dim founduser
dim name
dim companyid
dim password
dim errmsg
dim founderr
founderr=false
FoundUser=false
	name=trim(request("name"))
	password=cstr(Request("password"))

set rs=server.createobject("adodb.recordset")
sql="select * from admin where id=1"
rs.open sql,conn,1,1
 if not(rs.bof and rs.eof) then
 if password=rs("password") and name=rs("admin") then
   response.cookies("name")=true
   session("password")="wpassword"
   response.redirect "admin.asp"
 else
 
      response.write "<link rel='stylesheet' type='text/css' href='css/style.css'>"
      response.write "<body bgcolor='#ffffff'>" 
      	response.write "<script language='javascript'>"
	    response.write "alert('你想搞破坏吗~~~');"
	    response.write "history.go(-1);" 
	    response.write "</script>"
	    response.end
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -