"把从页面输入的用户名赋值给username,密码给password
用户名： |
|
密 码： |
size="20"> |
|
|
上面的程序很简单，都是HTM的结构，我就不多说了，下面我来讲讲验证用户名和密码的页面chklogin.asp
"打开并建立数据库连接
<!--#include file=conn.asp-->
<%
dim sql
dim rs
dim founduser
dim username
dim password
dim errmsg
dim founderr
founderr=false
FoundUser=false
"接受从login.asp返回的用户信息username,password
username=trim(request.form("username"))
password=trim(Request.Form("password"))
"假如用户名username和密码password都为空,则返回login.asp页面
if username="" then
response.redirect "login.asp"
end if
if password="" then
response.redirect "login.asp"
end if
"利用username打开记录集admin中指定的记录
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,1,1
if not rs.eof then
"在指定记录中假如返回的密码password和数据库中的密码相等,则将页面导向管理页面manage.asp,这里的response.cookies("adminok")=true是当用户为正确的时候,确认一个cookies,这样可以下次不用登陆直接可以进入管理页面
if password=rs("password") then
response.cookies("adminok")=true
response.redirect "manage.asp"
else
"假如密码不正确,把页面导向登陆页面login.asp
response.redirect "login.asp"
end if
else
response.redirect "login.asp"
end if
"关闭数据库连接
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
通过了密码验证以后就进入了文章管理系统的管理主页面，下一节的内容就是管理页面的主要结构和功能。[@more@]
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/9946349/viewspace-945551/
，如需转载，请注明出处，否则将追究法律责任。