OA系统

开发平台：

ASP/ASPX

Default.asp：源码内容

							<%
'###########################################################################################
'*  程序名称: NET-OA网络办公系统 (版本：3.0 2003.09.01)
'*---------------------------------------------------------------------------------------
'*  版权所有: Net-OA.com
'*  程序设计: 江南行客
'*  联系方式:
'*           EMAIL：net-oa@sohu.com
'*				    webmaster@moondowner.com
'*           OICQ：2503086
'*           MSN：latticeoa@hotmail.com
'*  主页地址: 
'*            http://www.net-develop.com  
'*            http://www.net-oa.com   
'*---------------------------------------------------------------------------------------
'*  Copyright 2003 www.net-develop.com - All Rights Reserved.
'###########################################################################################
AbsoluteWebPath = Request.ServerVariables("PATH_INFO")
AbsoluteWebPath = Trim(Mid(AbsoluteWebPath,1,InStrRev(AbsoluteWebPath,"/")) & "")
if Mid(AbsoluteWebPath,Len(AbsoluteWebPath),1) <> "/" then
     AbsoluteWebPath = AbsoluteWebPath & "/"
end if
Application("WebPath") = AbsoluteWebPath 
Application("AbsoluteWebPath")=Server.mappath(AbsoluteWebPath) & "" 
'------------------------------------------------------------------------------------------
Application("ViewPower") = 1 '0为关闭;1为开启(默认开启查看权限)
'是否开通查看权限，如果开通，则进行管理登录后，管理员可以查看除个人隐私(含Email)外其他所有信息(含与自己无关的)，具有某模块查看权限的用户可以查看该模块内所有信息(含与自己无关的)
Application("dbType") = "ACCESS" '默认数据库为Access数据库，如果采用SQL数据库，则改为"MSSQL" 
Application("dbName") = Application("WebPath") & "database/data.mdb"  'ACCESS数据库路径(如果是SQL数据库，则改值为SQL数据库名。如：Application("dbName")="netoa")
Application("Sql_ServerName") = "" '如果采用SQL数据库，请改值为SQL服务器名
Application("Sql_UserID") = "" '如果采用SQL数据库，请改值为SQL登录ID
Application("Sql_Password") = "" '如果采用SQL数据库，请改值为SQL登录密码
'********************************************************************************
Set objdefault = Server.CreateObject("NetJnxkOA.default")
objdefault.I_init
Set objdefault = Nothing
%>

						