% Head() CheckString "09" Response.Write"
论坛首页调用
主题帖子调用
|
论坛信息调用
|
会员调用
|
公告调用
|
版块列表导航
|
登陆信息调用
" Select Case Request("Action") Case"info" Info Case"user" User Case"board" Board Case"placard" Placard Case"login" Login Case Else Topic End Select Footer() Sub ShowScript(ast) Response.Write"
打开方式:
用新窗口打开
用本窗口打开
"&_ "
表格边框:
0
1
2
"&_ "
每行高度:
"&_ "
边框颜色:
"&_ "
背影颜色:
"&_ "
↓把下面的代码插入你的网页单元格中即可实现论坛帖子调用
说明:
本功能用于生成用于插入用户自己普通网页的代码,代码能够把论坛主题资源动态显示在普通网页任何地方!
至于文字的大小将跟随主页的CSS样式表设置!
" End Sub Sub Topic Response.Write"
主题帖子调用
"&_ "
参数设置:
"&_ "
调用论坛:
所有论坛
"&MNBoard.BoardIDList(0,-1)&"
"&_ "
主题类型:
全部主题
置顶主题
精华主题
投票主题
"&_ "
显示方式:
按最后更新主题排列
按主题发布时间
按最多回复主题(热帖)
按主题点击数(人气帖)
"&_ "
时间范围:
所有日期
三天内
一周内
一个月内
三个月内
"&_ "
主题数量:
"&_ "
字数限制:
"&_ "
样式设置:
"&_ "
题头标识:
帖子表情
数字序列
符号*
符号★
符号☆
符号◆
符号◇
不要标识
"&_ "
帖子作者:
不显示
显示
"&_ "
发帖时间:
不显示
显示
" CALL ShowScript(1) Response.Write"
" End Sub Sub Info dim s,i Response.Write"
论坛信息调用
" s=Split("0,论坛帖数,主题帖数,今日帖数,昨日帖数,最高日帖,注册人数,最新会员,论坛在线,在线会员,在线游客,最高在线,建站时间",",") Response.Write"
调用论坛信息:(下面各项如果不想显示,请选择)
" for i=1 to uBound(s) Response.Write"
"&s(i)&"
" next Response.Write"
样式设置:
"&_ "
题头标识:
□-
*
★
☆
◆
◇
不要标识
" CALL ShowScript(2) Response.Write"
" End Sub Sub User Response.Write"
论坛用户调用
"&_ "
调用用户参数设置:
"&_ "
用户类型:
按最新注册排序(最新会员)
按最多帖数排序(发帖冠军)
按最多"&MNBoard.Info(120)&"排序(论坛富翁)
按最多"&MNBoard.Info(121)&"排序("&MNBoard.Info(121)&"王)
按最多"&MNBoard.Info(122)&"排序("&MNBoard.Info(122)&"王)
"&_ "
用户数量:
"&_ "
样式设置:
"&_ "
题头标识:
□-
*
★
☆
◆
◇
不要标识
" CALL ShowScript(3) Response.Write"
" End Sub Sub Placard Response.Write"
论坛公告调用
"&_ "
调用公告参数设置:
"&_ "
调用论坛:
调用全部公告
首页
"&MNBoard.BoardIDList(0,-1)&"
"&_ "
最大数量:
"&_ "
显示时间:
不显示
显示
"&_ "
样式设置:
"&_ "
字数限制:
"&_ "
题头标识:
◆
□-
*
★
☆
◇
不要标识
" CALL ShowScript(4) Response.Write"
" End Sub Sub Login Response.Write"
登陆窗口信息调用
"&_ "
参数设置:
"&_ "
Cookies选项:
显示
不显示
"&_ "
登陆方式:
显示
不显示
"&_ "
样式设置:
" CALL ShowScript(6) Response.Write"
" End Sub Sub board Response.Write"
论坛版块导航
样式设置:
" CALL ShowScript(5) Response.Write"
" End Sub %>