外挂编程

开发平台：

ASP/ASPX

Cls_Config.asp：源码内容

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

						