高考问答台湾花莲市邮编:我的这个ASP留言板怎么看不到管理员的用户名和密码呢?
来源：百度文库 编辑：高考问答 时间：2024/04/29 00:53:09
这是chklogin.asp 里的代码,用户名信息应该放在这里吧.
<!--#include file="conn.asp"-->
<%
dim rs,sql,uid,pwd
uid=trim(request.form("username"))
pwd=trim(request.form("password"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&uid&"'"
rs.open sql,conn,1,1
if not rs.eof then
if rs("password")=pwd then
rs.close
set rs=nothing
Response.Cookies("mycoolest")("username")=uid
Response.Cookies("mycoolest")("password")=pwd
response.redirect "admin-index.asp"
else
rs.close
set rs=nothing
response.redirect "login.asp"
end if
else
rs.close
set rs=nothing
response.redirect "login.asp"
end if
%>
<!--#include file="conn.asp"-->
<%
dim rs,sql,uid,pwd
uid=trim(request.form("username"))
pwd=trim(request.form("password"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&uid&"'"
rs.open sql,conn,1,1
if not rs.eof then
if rs("password")=pwd then
rs.close
set rs=nothing
Response.Cookies("mycoolest")("username")=uid
Response.Cookies("mycoolest")("password")=pwd
response.redirect "admin-index.asp"
else
rs.close
set rs=nothing
response.redirect "login.asp"
end if
else
rs.close
set rs=nothing
response.redirect "login.asp"
end if
%>
后台管理员信息放在这里所指的数据库!
<!--#include file="conn.asp"-->
打开这个文件看一看, 有个数据库文件的,
文件里会有这样的语句
Set con = Server.CreateObject("ADODB.Connection")
DBPath =Server.MapPath("../BaseData/AdminUser.mdb") //数据库 存放用户信息!
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql ="SELECT * FROM AdminUser where UserName=" & SqlStr(adminname)
认证的放在这里:
Response.Cookies("mycoolest")("username")=uid
Response.Cookies("mycoolest")("password")=pwd
放在客户端的Cookies