如何使语句在asp加载时首先执行

来源:百度知道 编辑:UC知道 时间:2024/05/24 08:27:13
就是通过session,cookie判断他有没有权限,要他首先执行
您可以吧他转换成jsASP么 另外在问一下,function userLogin(formLogin)对该页的表单进行验证的时候参数是如何传递的,流程。可以的话再加上如何与数据库对比验证吧
谢谢
这点分让您回答这么多不好意思哈

这个是简单的验证,你可以在头部include,当AdminName字段session为空时就跳转。不为空的时候就继续保持权限让他浏览的
<%
dim Purview,PurviewPassed,ComeUrl,cUrl,UserName,sqlGetAdmin,rsGetAdmin,chk_manage
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
response.write "<br><p align=center><font color='red'>对不起,为了系统安全,不允许直接输入地址访问本系统的后台管理页面。</font></p>"
response.end
else
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
if mid(ComeUrl,len(cUrl)+1,1)=":" then
cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
end if
cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
response.write "<br><p align=center><font color='red'>对不起,为了系统安全,