vbs

极品网络编程技术教程(极品网络编程技术教程.zip)

<tr><Td bgcolor=#BBE2F5 colspan=2><img src='image/yellowfile.gif' width=13 height=13> 跟贴:第<font color=red><b> 2 </b></font>楼 
回复针对<a href='javascript:pos1.filetxt.focus();pos1.filetxt.value="[b]To:第[red]2[/red]楼的[red]lianggui[/red]朋友[/b]\n\n";void(0);'>lianggui</a>,回复引用<a href='javascript:pos1.filetxt.value="[hr][b]以下是引用[red]2[/red]楼[red]lianggui[/red]朋友的论点:[/b]\n\n"+htmdiv3.innerText+"[hr]\n";pos1.filetxt.focus();pos1.filetxt.value=pos1.filetxt.value.replace("蓝丽程序员论坛收录 http://www.lshdic.com","");void(0);'>lianggui</a>

, <a href="javascript:str1=prompt('请输入您要给赠送 lianggui 的经验值点数\n注意:送多少您自身的积分将减多少请小心哦,最多100分最少1分','2');if(str1&&str1>=1&&str1<=100&&str1.indexOf('.')==-1){location.href='ismy.asp?user=lianggui&number='+str1}else if(str1==null){void(0);window.close()}else{alert('送分数必须是范围 0 -- 100 的整数');window.close()}" target='_blank'>楼主结分给 lianggui</a>

</td></tr><Tr bgcolor=eeeeee>
<Td width=120 align=center valign=top>&nbsp;<br>


<img src='image/user10.gif' height=90 width=90 style='filter:gray'>


<br>作者:<a href='ismy.asp?user=lianggui' target=top title='点击查看lianggui的资料'>lianggui</a><br>经验:101点<br><font color=#6772CD>侠3级:职业杀手</font><br>02-12-5 15:43:59<br>
给作者<a href='duanxiaoxi.asp?emailto=lianggui'>发送短消息</a><br>
</td><td valign=top>
<div style='word-Break:break-all;overflow:auto;width:490;line-height:1.5;border:1 solid orange;padding:5;border-top:0;border-right:0' id=htmdiv3>
应该修改正则表达式就可以了：&lt;br&gt;<br>&lt;Textarea style='width:300;height:340' id=text1&gt;<br>本文本框的内容便是要被正则替换的数据<br>问题就是只能被<b></b>在一行内包含的数据<br>如果数据中有回车那还是不能被正则<br>例如这个可以被替换<br><br>[b]fakjkaadak%#$ 437&amp;(0*)(.//';.'+[/b]<br><br>而下面这个第二个例子则不可以<br><br>[b]fdasfdasfd<br><br>fdas<br>fdas<br>fd<br>[/b]<br><br>不只应怎样修改本原程序使第二个（带有回车换行）的数据也被正则查找替换哪?<br>&lt;/textarea&gt;<br>&lt;INPUT type=button value='查看正则替换后的数据' id=ok&gt;<br>&lt;script language=vbs&gt;<br>sub ok_onclick<br>set reg=new RegExp<br>reg.IgnoreCase=true&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'不区分大小写<br>reg.Global=true&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'是全局替换<br>reg.Multiline=true&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '这句本是关系回车是否被正则处理的,但本例不知为何设为 true或false 均不见作用<br>reg.pattern=&quot;\[b\]((?:.|\n)*?)\[/b\]&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'正则语句，注意已经修改！！<br>alert reg.replace(text1.value,&quot;&lt;b&gt;$1&lt;/b&gt;&quot;)&nbsp; '将text1中的符合 \[b\](.*)\[/b\] 的数据替换为 &lt;b&gt;(.*)&lt;/b&gt;<br>end sub<br>&lt;/script&gt;
<p align=right style='color:bbbbbb'>
蓝丽程序员论坛收录 http://www.lshdic.com</div><br>


<input type=button value='运行在浏览器查看' style='background-color:eeeeee;border:1 cccccc solid;width:120' onclick="openw(htmdiv3.innerText)"><input type=button value='快速编辑' style='background-color:eeeeee;border:1 cccccc solid;' onclick="try{htmdiv3.contentEditable=true}catch(e){alert('您的浏览器版本过低无法使用该功能')}">

<p><font color=red>- - - - - - - - - - - - - - - -</font><p><font color=gray>我好想睡觉。</font>
</td></tr><Tr bgcolor=eeeeee><Td align=right colspan=2>
<a href='boos.asp?dex=网页前台脚本编程&areyou=修改&myclass=712&isdex=false&page=1'>修改</a> 
<a href='javascript:if(confirm("确实要删除该贴吗?"))location="boos.asp?dex=网页前台脚本编程&areyou=删除&myclass=712&isdex=false&page=1"'>删除</a>
</td></tr>

</script>
<tr><Td bgcolor=#BBE2F5 colspan=2><img src='image/yellowfile.gif' width=13 height=13> 跟贴:第<font color=red><b> 3 </b></font>楼 
回复针对<a href='javascript:pos1.filetxt.focus();pos1.filetxt.value="[b]To:第[red]3[/red]楼的[red]lshdic[/red]朋友[/b]\n\n";void(0);'>lshdic</a>,回复引用<a href='javascript:pos1.filetxt.value="[hr][b]以下是引用[red]3[/red]楼[red]lshdic[/red]朋友的论点:[/b]\n\n"+htmdiv4.innerText+"[hr]\n";pos1.filetxt.focus();pos1.filetxt.value=pos1.filetxt.value.replace("蓝丽程序员论坛收录 http://www.lshdic.com","");void(0);'>lshdic</a>

, <a href="javascript:str1=prompt('请输入您要给赠送 Lshdic 的经验值点数\n注意:送多少您自身的积分将减多少请小心哦,最多100分最少1分','2');if(str1&&str1>=1&&str1<=100&&str1.indexOf('.')==-1){location.href='ismy.asp?user=Lshdic&number='+str1}else if(str1==null){void(0);window.close()}else{alert('送分数必须是范围 0 -- 100 的整数');window.close()}" target='_blank'>楼主结分给 Lshdic</a>

</td></tr><Tr bgcolor=eeeeee>
<Td width=120 align=center valign=top>&nbsp;<br>


<img src='image/user25.gif' height=90 width=90>


<br>作者:<a href='ismy.asp?user=lshdic' target=top title='点击查看lshdic的资料'>lshdic</a><br>经验:20308点<br><font color=#6772CD>神终级:宿命传说</font><br>02-12-5 16:00:55<br>
给作者<a href='duanxiaoxi.asp?emailto=Lshdic'>发送短消息</a><br><p>作者操作:<a href='userboos.asp?dex=网页前台脚本编程&areyou=编辑&myclass=715&isdex=false&page=1'>编辑</a> <a href=javascript:if(confirm('确实要删除该贴吗?'))location='userboos.asp?dex=网页前台脚本编程&areyou=删除&myclass=715&isdex=false&page=1'>删除</a>
</td><td valign=top>
<div style='word-Break:break-all;overflow:auto;width:490;line-height:1.5;border:1 solid orange;padding:5;border-top:0;border-right:0' id=htmdiv4>
<font color=red><br>OK，我测试过了，完全可以使用：）<br><br>多谢两位会员的帮助，为了表示感谢，每人送50分<br></font>
<p align=right style='color:bbbbbb'>
蓝丽程序员论坛收录 http://www.lshdic.com</div><br>


<input type=button value='运行在浏览器查看' style='background-color:eeeeee;border:1 cccccc solid;width:120' onclick="openw(htmdiv4.innerText)"><input type=button value='快速编辑' style='background-color:eeeeee;border:1 cccccc solid;' onclick="try{htmdiv4.contentEditable=true}catch(e){alert('您的浏览器版本过低无法使用该功能')}">

<p><font color=red>- - - - - - - - - - - - - - - -</font><p><font color=gray>人生尤如风云月,风来月走又一生<br>今宵愿于诸君醉,来日相别痛难绝<br>红颜一别难相见,思念欲泪恨不白<br>今生注是风云舞,何不把盏快一回<br>问何世事去匆匆,到问欲留却不住<br>悲欢聚散醉过后,惊雷醒来空空空<br><br>谁说程序员不会写诗？哈哈^o^</font>
</td></tr><Tr bgcolor=eeeeee><Td align=right colspan=2>
<a href='boos.asp?dex=网页前台脚本编程&areyou=修改&myclass=715&isdex=false&page=1'>修改</a> 
<a href='javascript:if(confirm("确实要删除该贴吗?"))location="boos.asp?dex=网页前台脚本编程&areyou=删除&myclass=715&isdex=false&page=1"'>删除</a>
</td></tr>


<Tr><Td bgcolor=dddddd colspan=2 align=right><!--分页区-->
首页 上页 下页 尾页  [1]
</td></tr>

<Tr>
<td bgcolor=6F81BC colspan=2><font color=eeeeee>lshdic,是否为此贴评论两句？</font></td></tr><Tr bgcolor=#BBE2F5>
<td>内容区发言特技:LDML<p>Url网址自动解析允许<br>Mail超连接自动解析<br>LDML特技代码允许<p>声明:请不要发表邪教以及影响社会,青少年健康的言论及网址<p></td>
<td align=right><form method=post action='callnewfile.asp' name=pos1>
<textarea style='width:100%;height:150;background-color:eeeeee' name=filetxt></textarea><br>
LDML效果: <select onchange='pos1.filetxt.focus();if(this.selectedIndex!=0)document.selection.createRange().text="["+this.options[this.selectedIndex].style.backgroundColor+"]"+document.selection.createRange().text+"[/"+this.options[this.selectedIndex].style.backgroundColor+"]";this.selectedIndex=0' style='background-color:eeeeee'><option>文字颜色
<option style='background-color:red'>
<option style='background-color:yellow'>
<option style='background-color:blue'>
<option style='background-color:purple'>
<option style='background-color:orange'>
<option style='background-color:white'>
<option style='background-color:black'>
<option style='background-color:lime'>
<option style='background-color:gray'>
<option style='background-color:silver'>
<option style='background-color:navy'>
<option style='background-color:menu'>
<option style='background-color:maroon'>
<option style='background-color:window'>
</select><select onchange='pos1.filetxt.focus();if(this.selectedIndex!=0)document.selection.createRange().text="[bgcolor="+this.options[this.selectedIndex].style.backgroundColor+"]"+document.selection.createRange().text+"[/bgcolor]";this.selectedIndex=0' style='background-color:eeeeee'><option>文字背景
<option style='background-color:red'>
<option style='background-color:yellow'>
<option style='background-color:blue'>
<option style='background-color:purple'>
<option style='background-color:orange'>
<option style='background-color:white'>
<option style='background-color:black'>
<option style='background-color:lime'>
<option style='background-color:gray'>
<option style='background-color:silver'>
<option style='background-color:navy'>
<option style='background-color:menu'>
<option style='background-color:maroon'>
<option style='background-color:window'>
</select><select onchange='pos1.filetxt.focus();if(this.selectedIndex!=0)document.selection.createRange().text="["+this.options[this.selectedIndex].value+"]"+document.selection.createRange().text+"[/"+this.options[this.selectedIndex].value+"]";this.selectedIndex=0' style='background-color:eeeeee'><option>文字样式
<option value=b>粗体字
<option value=i>斜体字
<option value=u>下划线
<option value=s>删除线
<option value=sup>文字靠上
<option value=sub>文字靠下
<option value=big>文字偏大
<option value=small>文字偏小
<option value=h1>一号大字
<option value=h2>二号大字
<option value=h3>三号中字
<option value=h4>四号中字
<option value=h5>五号小字
<option value=h6>六号小字
<option value=center>文字居中
<option value=marquee>文字滚动
</select><select onchange='pos1.filetxt.focus();if(this.selectedIndex==1){document.selection.createRange().text="[hr]"}else if(this.selectedIndex==2){popimg=prompt("请输入要插入的图片地址(网址URL),如www.lshdic.com/1.gif\n注意:URL不可包含http://","");if(popimg!=null&&popimg.toLowerCase().indexOf("http://")==-1&&popimg.length>10&&popimg.indexOf(".")!=-1)document.selection.createRange().text="httpgif://"+popimg;else alert("以取消插入图片,原因可能您点击了取消或您的URL中包含 http:// 这个禁止字符\n\n或您的图像网址不完整.")}else if(this.selectedIndex==3){document.selection.createRange().text=".]"}this.selectedIndex=0' style='background-color:eeeeee'><option>插入物件
<option>水平线
<option>插入图片
<option>插入]符号
</select><input type=submit name='startfile' value='提交文章' style='background-color:dddddd;border-width:1' onclick="gook();if(canok==0)return false">
<input type=hidden value='网页前台脚本编程' name='nextdex'> <!--记录是何栏目-->
<input type=hidden value='699' name='nextclass'> <!--记录是何编号-->
</td></tr></table>
<Script language=vbs>
canok=0
sub gook

if len(pos1.filetxt.value)>100000 then msgbox "文章内容太大,字符以超过100000字的限制,请减少字符数量",16,"出错":pos1.filetxt.focus():pos1.filetxt.select():exit sub
if trim(pos1.filetxt.value)="" then msgbox "文章回复内容均必须填写",16,"出错":pos1.filetxt.focus():exit sub
canok=1
end sub
</script>
</BODY>
</HTML>