如何对bbsxp7.0首页调用？ ← 版主交流 ← 泾川论坛

不少网站不是纯论坛，那么就有双首页：一个网站首页（在空间根目录）、一个论坛首页（在论坛子目录）。

　　那么“首页调用”（一种目录简明列表）也就分两种喽！论坛首页调用好搞，因可借助Conn.asp或Setup.asp中的公共代码而省力不少。网站首页调用就得费点事了。

网站首页调用有两种实现途径：

　　其一、大家熟知的使用论坛自带的现成程序New.asp来调，但此法局限很大，只适宜调用帖子，如果花样多点就无能为力了；

　　其二、专门写调用代码做进网站首页中去，这样想调什么就调什么，灵活多变。缺点当然是会编ASP的人的专利，对普通菜鸟来说就复杂了一点。

　　前提：必须是.asp的页面才可以调用。放入首页前，建议先放在空间测试下效果！

　　注意无论你调用什么，其中“连接数据库”这段和“撤除连接”下面两段代码是一定要有的，分别放在首尾。

　　如果调有帖子（●新帖●回帖●热帖●精华），则“调帖显示子程序”这段也一定要有。
　　特别注意：BBSDIR="chencao"双引号中的子目录名，是你放论坛的目录，要根据你站实际来填！
　　Db = "../database/chencao.mdb" 中的路径，一定要写你站的实际路径！

　　你先看清楚你站论坛的数据库到底放哪了？如果放在网站根目录的父目录（这是利于防黑的正确放法，很多新站长却浑然不知），那就是“Db = "../放库的父目录名/库文件名"这样子。如果放在论坛默认的database子目录下，那就是Db = "论坛目录名/放库子目录名/库文件名"了。搞错则连不上数据库。

<html>
<head>
<title>首页调用测试...</title>
<style type="text/css">
a,td,p {font-size:9pt;}
a {text-decoration:none;}
</style>
</head>
<body vlink="#00AA66">

<%
'连接数据库：
BBSDIR="chencao"
Db = "../database/chencao.mdb"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(Db)
SqlNowString="Now()"
%>

●调用新发帖：
 
<%
Sql="Select top 5 * From [CHC_Threads] Where IsDel=0 Order By ID Desc"
TopicList
%>

●调用新回帖：
 
<%
Sql="Select top 5 * From [CHC_Threads] Where IsDel=0 and Replies>0 Order By LastTime Desc"
TopicList
%>

●调用热门帖：
 
<%
Sql="Select top 5 * From [CHC_Threads] Where IsDel=0 and PostTime>"&SqlNowString&"-7 Order by Replies Desc,ID"
TopicList
%>

●调用精华帖：
 
<%
Sql="Select top 5 * From [CHC_Threads] Where IsDel=0 and IsGood>0 Order by LastTime Desc"
TopicList
%>

●调用某个版块中的某个专题下的新帖：
 
<%
Sql="Select top 5 * From [CHC_Threads] Where IsDel=0 and ForumID=12 and SpecialTopic='代码分析' Order by LastTime Desc"
TopicList

'式中ForumID=某某版块号和SpecialTopic='某某专题名' 根据你实际需要来！
%>

<%
'调帖显示子程序：
Sub TopicList
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
Response.Write "<a href="&BBSDIR&"/ShowPost.asp?ThreadID="&Rs("ID")&">★ "&Left(ReplaceText(Rs("Topic"),"<[^>]*>",""),15)&"</a> "
Rs.MoveNext
Loop
Rs.Close
End Sub
%>

●调用专题：
 
<%
Sql="Select * From [CHC_Forums] Where TolSpecialTopic>''"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
ForumID=Rs("ID")
Response.Write "<a href="&BBSDIR&"/ShowForum.asp?ForumID="&ForumID&">★"&Rs("ForumName")&"</a> "
filtrate=split(Rs("TolSpecialTopic"),"|")
for i = 0 to ubound(filtrate)
Response.Write "[<a href="&BBSDIR&"/ShowForum.asp?ForumID="&ForumID&"&SpecialTopic="&filtrate(i)&">"&filtrate(i)&"</a>] "
next
Rs.MoveNext
Loop
Rs.Close
%>

●调用新日志(博客)：(适用于7.0)
 
<%
Sql="Select top 5 * From [CHC_Blogs] Order By ID Desc"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
Response.Write "<a href="&BBSDIR&"/Blog.asp?BlogUserName="&Rs("UserName")&"&menu=ShowBlog&BlogID="&Rs("ID")&">★ "&Left(Rs("Subject"),15)&"</a> "
Rs.MoveNext
Loop
Rs.Close
%>

●调用论坛公告：
 
<%
Sql="Select top 5 * From [CHC_Affiche] Order By ID Desc"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
Response.write "<a href="&BBSDIR&"/Affiche.asp?ID="&Rs("ID")&">★ "&Left(Rs("title"),15)&"</a> "
Rs.MoveNext
Loop
Rs.Close
%>

●调用论坛统计：(适用于7.0)
 
<%
Sql="Select * From [CHC_SiteSettings]"
Set Rs=Conn.ExeCute(Sql)
Response.write "★会员总数："&Rs("TotalUsers")&" "
Response.write "★主题总数："&Rs("TotalTopics")&" "
Response.write "★帖子总数："&Rs("TotalPosts")&" "
Response.write "★今日帖数："&Rs("DaysPosts")&" "
Response.write "★新进会员："&Rs("NewUsers")&" "
Rs.Close
%>

●调用论坛统计：(适用于6.0)
 
<%
Sql="Select * From [CHC_Statistics_Site]"
Set Rs=Conn.ExeCute(Sql)
Response.write "★会员总数："&Rs("TotalUser")&" "
Response.write "★主题总数："&Rs("TotalThread")&" "
Response.write "★帖子总数："&Rs("TotalPost")&" "
Response.write "★今日帖数："&Rs("TodayPost")&" "
Response.write "★新进会员："&Rs("NewUser")&" "
Rs.Close
%>

<%
'撤除连接：
Set Rs=Nothing
Set Conn=Nothing

'自定义过滤函数
Function ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
ReplaceText = regEx.Replace(""&fString&"",""&replStr&"")
Set reg=nothing
End Function

%>

</body>
</html>

补充说明：

1、截取字符串函数“Left(...,15）”里出现的数字15，就是所截字数。可根据你站首页的调用单元格宽度，自行改动这个数字至合适；
2、CSS样式自己做好；
3、“★”、文字之类的“按需分配”吧！

骑士服务端天上碑SF服务端真封神服务端成吉思汗2服务端征服私服服务端美丽世界服务端科洛斯Season3(第三季)完美升级版服务端石器时代服务端网页游戏服务端亮剑服务端洪荒神话服务端弹弹堂服务端魔域烈焰S服务端街头篮球服务端美丽世界Nage服务端支持狂战雷霆裁决战神新装备S真属性传说45服务端丝路传说倚天2龙驹S服务端精灵复兴服务端大话西游2服务端完美世界服S端九阴真经服务端凡人修真服务端天之炼狱服务端墨香服务端奇迹mu官方多线攻城服务端魔兽世界服务端梦幻西游服端传奇外传S服务端神迹ol最新S服务端仙境传说ro服务端蜀门一键服务端天之炼狱私服一条龙新天骄2916服务端剑侠情缘SF服务端雄霸密传二转S服端十二之天贰服务端墨香外传服务端冒险岛服务端绝对女神服务端跑跑卡丁车S服端龙ol服务端新天上碑4305转盘龙服务端抗战服端A3服务端决战服务端石器时代服务端神迹服务端RF服务端神将三国服务端仙境传说服务端天龙八部私服服务端破天一剑服务端QQ西游私服服务端奇迹mu服务端传奇服务端A3-219服务端永恒之塔杀星时代私服务端洛汗服务端新天骄服务端惊天动地私服S服务端倚天2自由世界帝王私服务端天堂2服务端挑战服务端剑侠情缘怀旧S服务端 linux版WIN版csa完整S服务端天龙八部linux-win服务端剑侠世界私服务端英雄远征S服务端传奇世界服务端飞飞SF服务端密传服务端新魔界私服务端千年九妖服务端神武奇章私服侠众道原版极乐洞挑战S服务端骑士ebsf工具完美世界国际经典服务端神泣S服端英雄王座travia服务端奇侠XIAH服务端丝路传说SilkRoadOnlinev欧亚大陆S服务端魔力宝贝十转变态怀旧S服务端蜀门服务端绿色征途服务端linux-win版圣者注册怀旧世外桃源私服服务端卧龙吟问仙服务端劲舞团SF服务端醉西游服务端刀剑S服务端机战私服务端英雄王座ol服务端飞马翅膀工会战国战韩国大陆版幻灵游侠服务端红月S端征途服务端机战魔兵变服务端RF64位核战风暴台湾服务端魔力宝贝服务端浪漫Q糖服务端劲舞团新服务端红月魔王S版服务端跑跑卡丁车私服服务端冒险岛100%汉化服务端征服65AC私服服务端破天一剑变态虎鼠私服服务端新魔界2.0win版新副本SF服务端天羽微变完美5转决战v10.8副本NEO服务端天堂2最新ctSQL64位服务端梦幻西游2.0盛大服务端魔域中众神归来服务端惊天动地变态极品三剑客服务魔兽世界台国服仿官方芒果服务端wowserver 天之炼狱6.65归来版铁血迷情DK2鬼魅服务端传奇归来刺客强化私服服务端真封神楼兰天尊地魔国际版服务端热血江湖255转武勋装备门派刺客服务端网页传奇游戏S服务端回合传奇世界外传2服务端倚天2帝王烽火龙驹服务端热血传奇神龙合击服务端仿盛大火龙精品玉兔元素皓月必杀炎龙新副本S服魔域最新服务端灭世魔劫吸血鬼S服梦幻国度S服务端骑士linux-win服务端传奇广告代理(详细介绍)***www.e7if.com/index15.htm IDC服务器以及空间租用—(详细介绍)***www.e7if.com/ 传奇开sf一条龙开区服务官方网站***www.e7if.com 天龙八部开私服一条龙服务-www.e7if.com 魔域私服开区一条龙服务-www.e7if.com-客服咨询QQ(企鹅扣扣)49333685 后浪科技www.e7if.com商业版本免费开放下载(只能单线程单个下载) ***www.e7if.com/soft/index.html

丝路传说SilkRoadOnlinev欧亚大陆S服务端魔力宝贝十转变态怀旧S服务端蜀门服务端绿色征途服务端linux-win版圣者注册怀旧世外桃源私服服务端卧龙吟问仙服务端劲舞团SF服务端醉西游服务端刀剑S服务端机战私服务端英雄王座ol服务端飞马翅膀工会战国战韩国大陆版幻灵游侠服务端红月S端征途服务端机战魔兵变服务端RF64位核战风暴台湾服务端魔力宝贝服务端浪漫Q糖服务端劲舞团新服务端红月魔王S版服务端跑跑卡丁车私服服务端冒险岛100%汉化服务端征服65AC私服服务端破天一剑变态虎鼠私服服务端新魔界2.0win版新副本SF服务端天羽微变完美5转决战v10.8副本NEO服务端天堂2最新ctSQL64位服务端梦幻西游2.0盛大服务端魔域中众神归来服务端惊天动地变态极品三剑客服务魔兽世界台国服仿官方芒果服务端wowserver 天之炼狱6.65归来版铁血迷情DK2鬼魅服务端传奇归来刺客强化私服服务端真封神楼兰天尊地魔国际版服务端热血江湖255转武勋装备门派刺客服务端网页传奇游戏S服务端回合传奇世界外传2服务端倚天2帝王烽火龙驹服务端热血传奇神龙合击服务端仿盛大火龙精品玉兔元素皓月必杀炎龙新副本S服魔域最新服务端灭世魔劫吸血鬼S服梦幻国度S服务端骑士linux-win服务端骑士服务端天上碑SF服务端真封神服务端成吉思汗2服务端征服私服服务端美丽世界服务端科洛斯Season3(第三季)完美升级版服务端石器时代服务端网页游戏服务端亮剑服务端洪荒神话服务端弹弹堂服务端魔域烈焰S服务端街头篮球服务端美丽世界Nage服务端支持狂战雷霆裁决战神新装备S真属性传说45服务端丝路传说倚天2龙驹S服务端精灵复兴服务端大话西游2服务端完美世界服S端九阴真经服务端凡人修真服务端天之炼狱服务端墨香服务端奇迹mu官方多线攻城服务端魔兽世界服务端梦幻西游服端传奇外传S服务端神迹ol最新S服务端仙境传说ro服务端蜀门一键服务端天之炼狱私服一条龙新天骄2916服务端剑侠情缘SF服务端雄霸密传二转S服端十二之天贰服务端墨香外传服务端冒险岛服务端绝对女神服务端跑跑卡丁车S服端龙ol服务端新天上碑4305转盘龙服务端抗战服端A3服务端决战服务端石器时代服务端神迹服务端RF服务端神将三国服务端仙境传说服务端天龙八部私服服务端破天一剑服务端QQ西游私服服务端奇迹mu服务端传奇服务端A3-219服务端永恒之塔杀星时代私服务端洛汗服务端新天骄服务端惊天动地私服S服务端倚天2自由世界帝王私服务端天堂2服务端挑战服务端剑侠情缘怀旧S服务端 linux版WIN版csa完整S服务端天龙八部linux-win服务端剑侠世界私服务端英雄远征S服务端传奇世界服务端飞飞SF服务端密传服务端新魔界私服务端千年九妖服务端神武奇章私服侠众道原版极乐洞挑战S服务端骑士ebsf工具完美世界国际经典服务端神泣S服端英雄王座travia服务端奇侠XIAH服务端传奇广告代理(详细介绍)***www.m7sf.com/index15.htm IDC服务器以及空间租用—(详细介绍)***www.m7sf.com/ 传世开私服版本一条龙服务***www.m7sf.com 传世开私服版本一条龙服务-www.m7sf.com 热血江湖开sf一条龙服务-www.m7sf.com-客服咨询QQ(企鹅扣扣)1207542352 www.m7sf.com商业版本免费开放下载(只能单线程单个下载) ***www.m7sf.com/soft/index.html

标题：如何对bbsxp7.0首页调用？