default.asp

基于ASP的OA办公系统有BBS

<%
'###########################################################################################
'*  程序名称: NET-OA网络办公系统 (版本：3.0 2003.09.01)
'*---------------------------------------------------------------------------------------
'*  版权所有: Net-OA.com
'*  程序设计: 江南行客
'*  联系方式:
'*           EMAIL：[e-mail]
'*				    [e-mail]
'*           OICQ：2503086
'*           MSN：[e-mail]
'*  主页地址: 
'*            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

%>