论坛上贴代码保持格式缩进的方法

XDSoft

在发信息输入的框上面，有一排按钮，点下 # 按钮或者直接手工输入
{code} 你的代码 {/code}


注意：上面的花括号换成中括号，因为我不能输入中括号，输入就当作VB代码解释，大家就看不到了。

tuxiaoyan

这个VB论坛的bbcode代码扩展了没有？版本是多少?
我觉得你可以扩展出来像lisp,dwg,txt等等的代码。
这样一来，大家都可以直接发表出来这些源代码，也不需要发表者上传/观看者下载了。
方法可以参考这个方法：

1. 通常为 vB2 添加新的 vB Code 有两种方法：
   
2. 
   
3. 一种是在管理控制面板里添加。这种方法的好处是直观方便，稍懂 HTML 即可，但是最多只能有一个控制选项，例如[ url=xxx ]yyy[ /url ]，这里的 xxx 就是 url 代码唯一的控制选项。但是有时候一个控制选项并不足够，例如我要贴一个可以自定义长宽的 Flash，通过管理控制面板里添加的 vB Code 就无能为力了。
   
4. 
   
5. 另一种方法就是直接修改程序文件。这种方法灵活多变，可以定义任意多个控制选项，并且还可以对控制选项也进行控制。当然这种修改需要一定的 PHP 编程基础，特别是要了解 PHP 的正则表达式。关于编程这里就不再多说了，把已经做好的修改放上来吧（以下修改均在 vB 2.03 下进行，其他版本的请自己测试，估计大同小异）：
   
6. 
   
7. 查找 admin/functions.php：
   
8. 
   
9. return censortext($bbcode);
   
10. 
    
11. 
    
12. 前面加上：
    
13. 
    
14. // start new vbcodes added by cx
    
15. $searcharray2 = array(
    
16. "/(\[shadow])(.*)(\[\/shadow])/siU",
    
17. "/(\[glow])(.*)(\[\/glow])/siU",
    
18. "/(\[fly])(.*)(\[\/fly])/siU",
    
19. "/(\[move])(.*)(\[\/move])/siU",
    
20. "/(\[)(swf)(])(www\.)([^"]*)(\[\/swf\])/siU",
    
21. "/(\[)(swf)(])([^"]*)(\[\/swf\])/siU",
    
22. "/(\[)(swf=)([1-6]\d\d)(,)([1-9]\d\d)(])(www\.)([^"]*)(\[\/swf\])/siU",
    
23. "/(\[)(swf=)([1-6]\d\d)(,)([1-9]\d\d)(])([^"]*)(\[\/swf\])/siU",
    
24. "/(\[)(iframe)(])(www\.)([^"]*)(\[\/iframe\])/siU",
    
25. "/(\[)(iframe)(])([^"]*)(\[\/iframe\])/siU",
    
26. "/(\[)(iframe=)([1-6]\d\d)(,)([1-9]\d\d)(])(www\.)([^"]*)(\[\/iframe\])/siU",
    
27. "/(\[)(iframe=)([1-6]\d\d)(,)([1-9]\d\d)(])([^"]*)(\[\/iframe\])/siU",
    
28. );
    
29. 
    
30. $replacearray2 = array(
    
31. "<table style="filter: shadow(color=ff5555, direction=135)">\\2</table>",
    
32. "<table style="filter: glow(color=5555ff, strength=4)">\\2</table>",
    
33. "<marquee behavior=alternate scrollAmount=5 width=100%>\\2</marquee>",
    
34. "<marquee scrollamount=5 width=100%>\\2</marquee>",
    
35. "<embed src="[URL]http://www.\\5"[/URL]; width=400 height=300></embed><br>",
    
36. "<embed src="\\4" width=400 height=300></embed><br>",
    
37. "<embed src="[URL]http://www.\\8"[/URL]; width="\\3" height="\\5"></embed><br>",
    
38. "<embed src="\\7" width="\\3" height="\\5"></embed><br>",
    
39. "<iframe src="[URL]http://www.\\5"[/URL]; width=400 height=300 wiscrolling=no></iframe><br>",
    
40. "<iframe src="\\4" width=400 height=300 wiscrolling=no></iframe><br>",
    
41. "<iframe src="[URL]http://www.\\8"[/URL]; width="\\3" height="\\5" wiscrolling=no></iframe><br>",
    
42. "<iframe src="\\7" width="\\3" height="\\5" wiscrolling=no></iframe><br>",
    
43. );
    
44. 
    
45. $bbcode = preg_replace($searcharray2, $replacearray2, $bbcode);
    
46. // end new vbcodes added by cx
    
47. 
    
48. 
    
49. 这一段代码加入了几个新的 vB Code：[ shadow ]（阴影）、[ glow ]（光晕）、[ fly ]（飞行）、[ move ]（移动）、[ swf ]（Flash）、[iframe]（iFrame）。其中后两个都可以有两个控制选项，并且都加上了一定的限制。
    
50. 
    
51. 例如，贴一个 Flash：[ swf=xxx,yyy]zzzzzzzzzzzzzzz[ /swf]，其中的 xxx 代表 Flash 的宽度，yyy 代表高度；xxx 的范围是 100～699，yyy 是 100～999，超过这个范围 vB Code 将不会解析。当然省略 =xxx,yyy 就是缺省的设置 400x300。[ iframe=xxx,yyy]zzzzzzzzzzzzzzz[ /iframe] 也是一样的道理。
    
52. 
    
53. 如果你熟悉 PHP 正则表达式，按照这个方法可以添加更多的 vB Code。当然也不能太多了以免影响速度。
    
54. 
    
55. 好了，现在已经成功为 vB2 论坛添加了几个新的 vB Code，手动输入就可以工作了。如果我们还想更方便，就像那些原来的 vB Code 的快捷按钮一样，应该怎么办呢？
    
56. 
    
57. 当然要修改你的 vB2 模板 vbcode_buttons，其实也不难，具体怎么改就不多说了，按照原来的结构添加新的内容即可。我现在用的 vbcode_buttons 模板如下，因为加了好几个，所以按钮的布局也变了：
    
58. 
    
59. <script language="Javascript" src="vbcode.js"></script>
    
60. <script language="Javascript" src="vbcode_language.js"></script>
    
61. <style>
    
62. #codebuttons input { font-family: verdana, arial, helvetica; font-size: 11px; }
    
63. #codebuttons select { font-family: verdana, arial, helvetica; font-size: 11px; }
    
64. .smilieTable { border-width: 2px; border-style: outset; }
    
65. </style>
    
66. 
    
67. <tr id="codebuttons">
    
68. <td bgcolor="#DFDFDF" valign="top">vB 代码
    
69. <smallfont>
    
70. [<a href="misc.php?action=bbcode#buttons" target="_blank">帮助</a>]<br>
    
71. <input type="radio" name="mode" value="0" title="普通模式：（alt+n）" accesskey="n"
    
72. onclick="setmode(this.value)" onmouseover="stat('norm')" $modechecked[0]> 普通模式
    
73. <br>
    
74. <input type="radio" name="mode" value="1" title="增强模式：（alt+e）" accesskey="e"
    
75. onclick="setmode(this.value)" onmouseover="stat('enha')" $modechecked[1]> 增强模式
    
76. </smallfont></td>
    
77. 
    
78. <td bgcolor="#DFDFDF">
    
79. 
    
80. <table cellpadding="0" cellspacing="0" border="0">
    
81. <tr>
    
82. <td nowrap><smallfont>
    
83. 
    
84. <input type="button" class="bginput" value=" B " onclick="vbcode(this.form,'B','')" onmouseover="stat('b')" title="粗体（alt+b）" accesskey="b"
    
85. ><input type="button" class="bginput" value=" I " onclick="vbcode(this.form,'I','')" onmouseover="stat('i')" title="斜体（alt+i）" accesskey="i"
    
86. ><input type="button" class="bginput" value=" U " onclick="vbcode(this.form,'U','')" onmouseover="stat('u')" title="下划线（alt+u）" accesskey="u"
    
87. >
    
88.   
    
89. 
    
90. <input type="button" class="bginput" value="网址" title="插入 URL 网址超链接" onclick="namedlink(this.form,'URL')" onmouseover="stat('url')"
    
91. ><input type="button" class="bginput" value="电邮" title="插入 Email 地址" onclick="namedlink(this.form,'EMAIL')" onmouseover="stat('email')"
    
92. ><input type="button" class="bginput" value="图片" title="插入图片" onclick="vbcode(this.form,'IMG','[URL]http://&acute;[/URL];)" onmouseover="stat('img')">
    
93.   
    
94. 
    
95. <input type="button" class="bginput" value="Flash" onclick="vbcode(this.form,'swf','')" onmouseover="stat('flash')" title="插入 Flash" accesskey="swf"
    
96. ><input type="button" class="bginput" value="iFrame" onclick="vbcode(this.form,'iFrame','')" onmouseover="stat('iframe')" title="插入 iFrame 网页调用" accesskey="iframe"
    
97. >
    
98. <br>
    
99. 
    
100. <input type="button" class="bginput" value="移动" onclick="vbcode(this.form,'Move','')" onmouseover="stat('move')" title="移动...." accesskey="move"
     
101. ><input type="button" class="bginput" value="飞行" onclick="vbcode(this.form,'Fly','')" onmouseover="stat('fly')" title="飞行..." accesskey="fly"
     
102. ><input type="button" class="bginput" value="阴影" onclick="vbcode(this.form,'Shadow','')" onmouseover="stat('shadow')" title="阴影...." accesskey="shadow"
     
103. ><input type="button" class="bginput" value="光晕" onclick="vbcode(this.form,'Glow','')" onmouseover="stat('glow')" title="光晕...." accesskey="glow" >
     
104.   
     
105. 
     
106. <input type="button" class="bginput" value="代码" title="原始代码" onclick="vbcode(this.form,'CODE','')" onmouseover="stat('code')"
     
107. ><input type="button" class="bginput" value="PHP" title="PHP 程序" onclick="vbcode(this.form,'PHP','')" onmouseover="stat('php')"
     
108. ><input type="button" class="bginput" value="列表" title="顺序列表" accesskey="l" onclick="dolist(this.form)" onmouseover="stat('list')"
     
109. ><input type="button" class="bginput" value="引用" title="插入引用" onclick="vbcode(this.form,'QUOTE','')" onmouseover="stat('quote')"><input type="button" class="bginput" value="隐藏" title="隐藏内容" onclick="vbcode(this.form,'HIDE','')" onmouseover="stat('hide')">
     
110. 
     
111. </smallfont></td>
     
112. <td nowrap align=right><smallfont>
     
113. 
     
114. <input type="button" class="bginput" value=" x " accesskey="c" title="关闭当前标签（alt+c）" onclick="closetag(this.form)" style="color:red; font-weight:bold" onmouseover="stat('closecurrent')"> 关闭当前标签
     
115. <br>
     
116. 
     
117. <input type="button" class="bginput" value=" x " accesskey="x" title="关闭所有标签（alt+x）" onclick="closeall(this.form)" style="color:red; font-weight:bold" onmouseover="stat('closeall')"> 关闭所有标签
     
118. 
     
119. <smallfont></td>
     
120. </tr>
     
121. <tr>
     
122. <td colspan=2><smallfont>
     
123. 
     
124. <input type="text" class="bginput" name="status" style="font-size:11px" size="35" value="使用这些控制按钮可以快速插入 vB 代码">
     
125.   
     
126. <select id="sizeselect" onchange="fontformat(this.form,this.options[this.selectedIndex].value,'SIZE')" onmouseover="stat('size')">
     
127. <option value="0">字号</option>
     
128. <option value="0">----</option>
     
129. $vbcode_sizebits
     
130. </select
     
131. ><select id="fontselect"
     
132. onchange="fontformat(this.form,this.options[this.selectedIndex].value,'FONT')" onmouseover="stat('font')">
     
133. <option value="0">字体</option>$vbcode_fontbits</select>
     
134.   
     
135. <select id="colorselect"
     
136. onchange="fontformat(this.form,this.options[this.selectedIndex].value,'COLOR')" onmouseover="stat('color')">
     
137. <option value="0">颜色</option>$vbcode_colorbits</select>
     
138. 
     
139. </smallfont></td>
     
140. </tr>
     
141. </table>
     
142. 
     
143. </td>
     
144. </tr>
     
145. 
     
146. 
     
147. 至此新加的 vB Code 及其快捷按钮都已经可以工作了，大功告成了吗？且慢！还差一点点－－还要在那个小小帮助窗口里为新的代码加上解释。。。打开你的 vB 目录下的 vbcode_language.js 文件，查找：
     
148. 
     
149. // ERROR MESSAGES
     
150. 
     
151. 
     
152. 在前面加上：
     
153. 
     
154. flash_text = "插入 Flash 文档";
     
155. iframe_text = "插入 iFrame 网页调用";
     
156. hide_text = "插入隐藏内容，别人需要回复才能看到";
     
157. move_text = "使输入的内容产生移动效果";
     
158. fly_text = "使输入的内容产生飞行效果";
     
159. shadow_text = "使输入的文字产生阴影效果";
     
160. glow_text = "使输入的文字产生光晕效果";
     

复制代码

zhynt

请问如何将网页显示出来？

XDSoft

最初由 zhynt 发布
[B]请问如何将网页显示出来？ [/B]

去看看“个人控制中心”里面的“论坛使用帮助教学”，详细了解下论坛强大功能的用法。

显示网页，你可以用发贴界面的“转贴网站”，把URL地址输入就可以了。