📄 login.asp
字号:
<!--#INCLUDE FILE="connect.asp" -->
<!--#INCLUDE FILE="checksql.asp" -->
<html>
<head><title>网络办公系统</title></head>
<body>
<%
on error resume next
if request("username")="" then
response.redirect "default.htm"
end if
set oa=server.createobject("oaserver.login")
username=checksql(request("username"))
password=checksql(request("password"))
oa.dlldatabase=aspdatabase
oa.username=username
oa.password=password
result=oa.checklogin
if err.number>0 then
response.redirect "error.asp?reason=没有注册server.dll组件，请在软件安装目录下用regsvr32命令注册server.dll文件"
response.end
end if
if result="1" then
response.redirect "error.asp?reason=用户名或密码错误"
end if
if result="2" then
response.redirect "error.asp?reason=用户资料不全，请与管理员联系"
end if
if result="3" then
response.redirect "error.asp?reason=软件试用期已到，如需继续使用请到http://www.bzwb.net下载最新试用版本"
end if
if result="4" then
response.redirect "error.asp?reason=系统用户超过该版本用户数，请管理员删除多余用户"
end if
if result=null then
response.redirect "error.asp?reason=未知错误"
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -