利用asp给主页加密
我们的目的是:
*验证用户是否经过授权并根据结果设置相应的验证状态
*如果用户是经过授权的,验证状态置1
*如果用户是没有授权的,验证状态置0
下面显示的是verify.asp页的代码,你可以根据实际情况作一些相应的修改。
< %
’ create a command object. this object serves to run our queries
set cm = server.createobject(“adodb.command”)
’ specify the system dsn path
cm.activeconnection =“logindsn”
’ now it’s time for the query. we need to check the user information
’ against the table tusers
cm.commandtext=“select * from tusers where ”& _
“username=’”& request.form(“username”) &“’ and ”& _
“userpassword=’” & request.form(“userpassword”) & “’”
’ set the query type. 1 means it is a sql statement
cm.commandtype = 1
’ retrieve the results in a recordset object
set rs = cm.execute
’ we now check if the user is valid. if user is valid, the recordset must
’ haverecord. otherwise it is empty. if user exists, we set authentication
’ status to 1 and send the user to appropriate page, say welcome.asp.
’ else send the user back to login.asp
if rs.eof then
session(“authenticated”) = 0
response.redirect (“login.asp”)
else
session(“authenticated”) = 1
response.redirect (“welcome.asp”)
end if
% >
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器