login.asp

来自「功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来」· ASP 代码 · 共 42 行

ASP

42 行

<!--#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>

login.asp - 源码说明

本页面展示了「功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.」中的 login.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与办公自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?