关于BBSxp 2007 (Build: 7.3.1)在发表帖子时的问题!
被过滤了
因为一些网站经常夹带着着一些代码
而愚蠢的YUZI的程序会以为他有害而过滤掉
给BBSXP加上运行代码的功能,已经做出来了!!!!
<a target="_blank" href="http://www.bbsxp.com/"><img border="0" src="http://www.bbsxp.com/images/bbsxp_88x31.gif" title="BBSXP-ASP论坛提供商" width="88" height="31"></a>
应神话要求,把搜索插件发上来!!!
<!--#include file="setup.asp"-->
<%
MDBpath="database/"
set rs_type=server.CreateObject("ADODB.RecordSet")
set rs=server.CreateObject("ADODB.RecordSet")
if request("k")="" then
MaxPerPage=10 '###每页显示条数
sePAGE="no"
else
MaxPerPage=10
在线列表查看地理位置 for bbsxp 2007
一、将下列文本保存为iptodz.asp,放在Utility目录下!
<%
Function Look_Ip(IP)
Dim Wry, IPType, QQWryVersion, IpCounter
' 设置类对象
Set Wry = New TQQWry
' 开始搜索,并返回搜索结果
' 您可以根据 QQWry(IP) 返回值来判断该IP地址在数据库中是否存在,如果不存在可以执行其他的一些操作
' 比如您自建一个数据
为BBSXP 2007增加我的回帖功能
一、打开showbbs.asp,找到
case ""
ForumTitle="最新主题"
sql="Select top 200 * from [BBSXP_Threads] where IsApproved=1 and IsDel=0 order by ThreadID Desc"
case "HotViews"
ForumTitle="人气主题"
sql="Select top 200 * from [BBSXP_Threads]
答对此题,每人1000社区金币
有3个人去投宿,一晚三十元.三个人每人掏了10元凑够三十元交给了老板. 后来老板说今天优惠只要25元就够了,拿出5元命令服务生退还给他们, 服务生偷偷藏起了2元, 然后,把剩下的3元钱分给了那三个人,每人分到1元.这样,一开始每人掏了10元,现在又退回1元,也就是10-1=9,每人只花了9元钱, 3个人每人9元,3 X 9 = 元 + 服务生藏起的2元=29元,还有一元钱去了哪里???此题在新西兰面试的时候曾引起巨大反响.
你能说出答案吗?
[ybbreview]1元是根本没有出现过的
这个题目最大的特点
图片的自动缩小修改方法 for bbsxp 7
str=ReplaceText(str,"\[IMG\]([^"&CHR(34)&"[]*)(\[\/IMG\])","<img border=0 src=$1 >")
替换为:
'####### 图片自动缩小 v1.1 代码改进:IPSC #########
str=ReplaceText(str,"\[IMG\]([^"&CHR(34)&"[]*)(\[\/IMG&
香港回归晚会上,胡主席和刘德华握手长达9秒,他们说了什么???
香港回归晚会上,胡主席和刘德华握手长达9秒,他们说了什么?
胡:我认识你,(刘听到热泪盈眶)
胡继续:你叫张学友,对吧?(刘听到继续盈眶)
刘用力握了握胡的手说:多谢江主席!!(胡听到,眼泪哗哗的)
[此帖子已被 admin 在 2007-7-16 10:38:13 编辑过]
等咱中国强大了......
[此帖子已被 admin 在 2007-7-16 10:34:37 编辑过]
对方友情连接图片无法显示时的解决方案
转载自 对方友情连接图片无法显示时的解决方案 - 伖月论坛首页 - Powered By 宜兴论坛
http://198c.com/bbs/ShowPost.asp?ThreadID=201
对方友情连接图片无法显示时的解决方案
不知道你是否碰到这种情况,论坛友情连接的logo图片经常会因为对方的服务器等原因而无法显示,看起来是不是觉得很别扭?
default.asp中
do while not Rs.eof
if Rs("Logo")="" or Rs("Logo")="http://" then
Link1=Link1+"<a title='"&Rs("Intro")&"' href="&Rs("url")&" target=_blank>"&Rs
自动缩图插件 BBSXP 2007 应该可以用吧
[此帖子已被 admin 在 2007-7-9 10:52:46 编辑过]
[此帖子已被 admin 在 2007-7-23 11:09:44 编辑过]
自动缩图插件 BBSXP 2007 应该可以用吧
一、打开setup.asp文件
找到:
str=ReplaceText(str,"\[IMG\]([^"&CHR(34)&"[]*)(\[\/IMG\])","<img border=0 src=$1>")
改为:
str=ReplaceText(str,"\[IMG\]([^"&CHR(34)&"[]*)(\[\/IMG\])","<img onload=imgresize(this) border=0 src

粤公网安备 44030602003677号