图片的自动缩小修改方法 for bbsxp 7

By admin at 2007-07-16 • 0人收藏 • 330人看过
1、用记事本打开setup.asp,把到如下代码:

str=ReplaceText(str,"\[IMG\]([^"&CHR(34)&"[]*)(\[\/IMG\])","<img border=0 src=$1 >")

替换为:


'####### 图片自动缩小 v1.1 代码改进:IPSC #########
str=ReplaceText(str,"\[IMG\]([^"&CHR(34)&"[]*)(\[\/IMG\])","<a href=$1 target=_blank title=说明:图片如缩小看不清,点图片可在新窗口浏览!><img border=0 src=$1 onload="&CHR(34)&"javascript:if(this.width>540)this.width=540"&CHR(34)&" onmouseover="&CHR(34)&"javascript:if(this.width>540)this.width=540"&CHR(34)&"></a>")
str=ReplaceText(str,"<IMG([^src=]*)(src=)","<img $1 onload="&CHR(34)&"javascript:if(this.width>540)this.width=540"&CHR(34)&" onmouseover="&CHR(34)&"javascript:if(this.width>540)this.width=540"&CHR(34)&" src=")
'##################################################

 

2、这步可以不改,但建议改,用记事本打开ShowPost.asp,找到以下代码:

<%content=UBBCode(Rs("content"))%>
<div style="OVERFLOW:auto;WIDTH:100%;"><br><%=mtface(qzwawa(content))%></div>

替换成:

<%content=UBBCode(ybbencode(Rs("content")))%>
<div style="OVERFLOW:auto;WIDTH:100%;"><br><%=mtface(qzwawa(content))%></div>

2 个回复 | 最后更新于 2008-12-12
2008-06-12   #1

谢谢,解决了我很久也没解决的问题。

2008-12-12   #2
有没有2008的限制图片大小的啊,我发现有时发个大图,他把页面弄的很难看

登录后方可回帖

登 录
信息栏
购买PHP虚拟主机 / VPS

Carbon Forum是一个基于话题的高性能轻型PHP论坛

下载地址:Carbon Forum v5.0.1
QQ群:12607708(QQ我不常上)

donate

手机支付宝扫描上方二维码可向本项目捐款

Loading...