Cls_Config.asp
资源名称:haohj.rar [点击查看]
上传用户:angela
上传日期:2022-05-11
资源大小:853k
文件大小:2k
源码类别:
外挂编程
开发平台:
ASP/ASPX
- <!--#include file="Cls_Public.asp" -->
- <%
- '=====================================================================
- ' 作者声明:转载请保留版权信息,鄙视不要脸的人
- '=====================================================================
- ' 程序名称:蓝宇网络发布系统
- ' 软件版本:Version 3.3.0 Sp1
- ' 程序作者:蓝宇 QQ:18159079 ╲、随心゛ QQ:6821845
- '=====================================================================
- ' 联系方式:Tel:13203117383,QQ:18159079,hi.baidu.com/hezeyu
- ' 程序开发:蓝宇,╲、随心゛
- ' 官方网站:蓝宇网络(http://hi.baidu.com/hezeyu)
- '=====================================================================
- ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
- '=====================================================================
- '###### 数据库连接地址
- Const Database = "database#sfedsffdsggfhhdf.asa"
- '------------------------------------------------------
- '###### 首页私服显示方式。1为固顶显示,0为非固顶显示
- Const SFstatus = 1
- '------------------------------------------------------
- '###### 显示输出错误信息
- Const IsDeBug = "0"
- '------------------------------------------------------
- '###### 系统版本号,请不要更改,否则出错
- Const Version = "Ver3.3"
- '------------------------------------------------------
- Dim Action,i,Rs,Sql,FoundErr,Errmsg,start
- Dim ServerObject(4)
- ServerObject(1) = "Scripting.FileSystemObject" '//Fso
- ServerObject(2) = "ADODB.Stream" '//Adodb.Stream
- ServerObject(3) = "Microsoft.XMLDOM" '//XML
- ServerObject(4) = "Microsoft.XMLHTTP" '//XML
- '============================================================
- Dim Tee5
- Set Tee5 = New cls_TeGqMain
- Tee5.ReadConfig(1)
- %>