二级目录案例 http://admin.asp99.cn/ljv51/Ch/Index.html

需要修改Include/Const.asp 第二行.

Const SysRootDir = "/ljv51/" (正确修改)

Const SysRootDir = "/" (主目录不用修改)

 QQ目录下也要修改

如果QQShow.asp用记事本打开

<%
Dim connQQstr,connQQ,rssetupQQ,qqonline,adm_qq,adm_qq_name,

whereqq,kefuskin,qqskin,qqmsg_on,qqmsg_off,QQ_NAME,QQ,MyQQ,N,sitename
connQQstr = "Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&SERVER.MAPPATH("/QQ/QQ.mdb")
Set connQQ=server.CreateObject("adodb.connection")
connQQ.Open connQQstr
%>

正确修改方法如下

<%
Dim connQQstr,connQQ,rssetupQQ,qqonline,adm_qq,adm_qq_name,

whereqq,kefuskin,qqskin,qqmsg_on,qqmsg_off,QQ_NAME,QQ,MyQQ,N,sitename
connQQstr = "Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&SERVER.MAPPATH("/ljv51/QQ/QQ.mdb")
Set connQQ=server.CreateObject("adodb.connection")
connQQ.Open connQQstr
%>