asp如何对数据库进行验证账号密码是否正确

我这有很多asp文件，每个asp里面都要写验证账号密码是否正确
可是我不想每个asp文件里面都写验证码密码是否正确的，
我想单独写一个asp文件来验证，其他的asp文件来调用这个asp文件进行验证就可以

这是些的一段代码，就是写个asp文件来验证密码是否正确，其他asp文件来调用这个文件验证码是否正确
求不用每个asp文件都来写代码验证了
怎么弄
rs.open "select * from admin where user_name='" & user_name & "' and user_pass='" & user_pass & "'",con,1,3
if rs.bof and rs.eof then
rs.close
response.write("管理员帐号或管理员密码错误!")
response.end
else
rs.close
rs.open "select * from admin where user_name='" & user_name & "'",con,1,1
user_role1=rs("user_role")'权限
if user_role1 <> "0" then
response.write("抱歉您没有权限添加管理员")
response.End()
rs.close
end if

建立两个 Session(),一个名称为 Adminuser,一个名称为Adminlevel,
Session("Adminuser") '在验证成功后,存入管理账户的用户名
Session("Adminlevel") '在验证成功后,存入管理账户的管理权限级别,如果需要的话
建立一个CkAdmin.asp
if session("Adminuser")="" then
response.Redirect("index.asp") '或者使用login.asp 登录页

end if

只要验证不成功,就返回到首页

Login.asp
<%
Session("Adminuser")=""
Session("Adminlevel")=""
%>

校验登录
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where user_name='" & user_name & "' and user_pass='" & user_pass & "'"
con.open sql,1,3
if not (rs.bof and rs.eof) then '登录成功

Session("Adminuser")=rs("user_name")
Session("Adminlevel")=rs("Adminlevel") '如果有这个字段
response.Redirect("Manage_index.asp") '验证成功后,跳转到需要的页面

else
'这里就是验证失败啦.'

response.Redirect("index.asp") '或者使用login.asp 登录页
end if

rs.close
rs=nothing

最后,,在每个需要验证是否管理员登录的页面前边..
<!--#INCLUDE FILE="./CkAdmin.asp"--> '注意文件路径,使用相对路径.'

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pq2f77sm24vmv2v28q4.html