Cls_Config.asp
上传用户:angela
上传日期:2022-05-11
资源大小:853k
文件大小:2k
源码类别:

外挂编程

开发平台:

ASP/ASPX

  1. <!--#include file="Cls_Public.asp" -->
  2. <%
  3. '=====================================================================
  4. ' 作者声明:转载请保留版权信息,鄙视不要脸的人
  5. '=====================================================================
  6. ' 程序名称:蓝宇网络发布系统
  7. ' 软件版本:Version 3.3.0 Sp1
  8. ' 程序作者:蓝宇 QQ:18159079 ╲、随心゛ QQ:6821845
  9. '=====================================================================
  10. ' 联系方式:Tel:13203117383,QQ:18159079,hi.baidu.com/hezeyu
  11. ' 程序开发:蓝宇,╲、随心゛
  12. ' 官方网站:蓝宇网络(http://hi.baidu.com/hezeyu)
  13. '=====================================================================
  14. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  15. '=====================================================================
  16. '###### 数据库连接地址
  17. Const Database = "database#sfedsffdsggfhhdf.asa"
  18. '------------------------------------------------------
  19. '###### 首页私服显示方式。1为固顶显示,0为非固顶显示
  20. Const SFstatus = 1
  21. '------------------------------------------------------
  22. '###### 显示输出错误信息
  23. Const IsDeBug = "0"
  24. '------------------------------------------------------
  25. '###### 系统版本号,请不要更改,否则出错
  26. Const Version = "Ver3.3"
  27. '------------------------------------------------------
  28. Dim Action,i,Rs,Sql,FoundErr,Errmsg,start
  29. Dim ServerObject(4)
  30. ServerObject(1) = "Scripting.FileSystemObject"     '//Fso
  31. ServerObject(2) = "ADODB.Stream"                   '//Adodb.Stream
  32. ServerObject(3) = "Microsoft.XMLDOM"               '//XML
  33. ServerObject(4) = "Microsoft.XMLHTTP"              '//XML
  34. '============================================================
  35. Dim Tee5
  36. Set Tee5 = New cls_TeGqMain
  37. Tee5.ReadConfig(1)
  38. %>