网站首页调用代码大全（bbsxp论坛程序）

灰儿发表于 2006-11-5 17:02:47

网站首页调用代码大全（bbsxp论坛程序）你先将下列代码存为一个asp文件，放到你网站根目录下运行一番，看看效果如何？ 再选择其中你需要的代码段，置入你的网站首页。注意无论你调用什么，其中“连接数据库”和“撤除连接”这两段代码是一定要有的，分别放在首尾。 如果调有帖子（新帖│回帖│热帖│精华），则“调帖显示子程序”这段也一定要有。特别注意：BBSDIR="bbsxp"双引号中的子目录名，是你放论坛的目录，要根据你站实际来填！ Db = "../database/bbsxp7.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="bbsxp" Db = "../database/BBSxpAdd.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 Where IsDel=0 Order By ID Desc" TopicList %> ●调用新回帖： <% Sql="Select top 5 * From Where IsDel=0 and Replies>0 Order By LastTime Desc" TopicList %> ●调用热门帖： <% Sql="Select top 5 * From Where IsDel=0 and PostTime>"&SqlNowString&"-7 Order by Replies Desc,ID" TopicList %> ●调用精华帖： <% Sql="Select top 5 * From Where IsDel=0 and IsGood>0 Order by LastTime Desc" TopicList %> <% '调帖显示子程序： Sub TopicList Set Rs=Conn.ExeCute(Sql) Do While Not Rs.Eof Response.Write "<a href="&BBSDIR&"/ShowPost.asp?ThreadID="&Rs("ID")&">★ "&Left(""&Rs("Topic")&"",15)&"</a> " Rs.MoveNext Loop Rs.Close End Sub %> ●调用专题： <% Sql="Select * From 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 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 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 " 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 " 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 %></body> </html>

页: [1]

管理员之家 - 网站管理员、站长技术与运营交流平台！'s Archiver

网站首页调用代码大全（bbsxp论坛程序）