新建 文本文档.txt

后台管理员登入系统源代码

<% 
set objconn=Server.Createobject("adodb.connection")
objconn.connectionstring="Driver={Microsoft Access Driver(*.mdb)};" & "DBQ="& Server.MapPath("cangku.mdb")
objconn.connectionstring="dsn=sttable;"
objconn.open
username=user.form("username") 
password=user.form("password") 
if username="" or password="" then 
response.write ("<script language=javascript>alert'用户名和密码不能为空！';history.go(-1);</script>") 
else 
set rs=Createobject("adodb.recordset") 
sql="select * from caigouruku" 
rs.open.sql objconn,1,3 
if username=rs("username") and password=rs("password") then 
response.redirct "caigouruku.html" 
else 
response.write ("<script language=javascript>alert'用户名或密码输入错误，请确认！';history.go(-1);</script>") 
%> 
<%end if%> 
<%end if%> 
<% 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>