[转贴]文字防复制乱码 函数[2007-10-16]
[code]<%
'作用:文字防复制乱码 函数
'Date:2006-3-6
'作者:blue2004
'参数str 为原文,str1作者也是你自己,reslut产生乱码的种子
Function ReadToCode(str,Str1,result)
dim name
dim i,j,k
If isnull(str) then
ReadToCode=""
Exit Function
End If
Randomize
k=instr(str,"</P>")
Do while k>0
result=""
for i=0 to 19
j=Int(128 * Rnd)+1
if j=60 or j=62 then
j=j+1
end if
result =result&chr(j) ' 产生随机数。
next
result="<span style='DISPLAY: none'>"&result&"</span>"
str=replace(str,"</p>",result&"<'/p>",1,1)
k=instr(str,"</p>")
loop
str=replace(str,"<'/p>","</p>")
k=instr(str,"<br>")
Do while k>0
result=""
for i=0 to 19
j=Int(128 * Rnd)+1
if j=60 or j=62 then
j=j+1
end if
result =result&chr(j) ' 产生随机数。
next
result="<span style='DISPLAY: none'>"&result&"</span>"
str=replace(str,"<br>",result&"<'br>",1,1)
k=instr(str,"<br>")
loop
str=replace(str,"<'br>","<br>")
ReadToCode=str&"<div align=right style='color=gray'>[版权归原作者及"&Str1&"共同拥有，转载请注明出处]</div>"
End Function
Dim a
a="嘎嘎，一篇<br>不错的好<p>文章哦</P><br><P>我艹，，让你偷。。木 JJ的家伙,嬲。。</p>"
'Only For Test
response.write (a)
Dim b
'为配合转换,字符串ａ的大小都替换成小写
b=ReadToCode(LCase(a),"blue2004","www.xxx.com")
'Output
response.write b
%>
[/code] 不错的东西！ 【加油！金顺】在奥斯卡上一连拿了11个奖项的好帖 哈哈 支持啊 可以换头像咯哦，不过现在也蛮不错的。 呵呵 论坛经常设置的 很好的东东啊~！ 在看完这帖子以后，我没有立即回复，因为我生怕我庸俗不堪的回复会玷污了这网上少有的帖子
瑞典SKF轴承
您写的抬好了 我很喜欢！！兄弟们 顶了！！！！[url=http://www.nskcn.com/product/dqfl/rdskf/200711/product_221.html]瑞典SKF轴承[/url] [url=http://www.nskcn.com/product/dqfl/rdskf/200711/product_221.html]瑞典SKF轴承[/url] [url=http://www.nskcn.com/product/dqfl/rdskf/200711/product_221.html]瑞典SKF轴承[/url] [url=http://www.nskcn.com/product/dqfl/rdskf/200711/product_221.html]瑞典SKF轴承[/url]
彩瓦机 水泥彩瓦 破碎机
**** 作者被禁止或删除 内容自动屏蔽 ****顶一下
恩！不错.顶你一下！[img]http://pb.images22.51img1.com/6000/huyonhen/be1bd84aacd2f363e9b027076bdda48f.gif[/img]
-----------------------------------------------------------------------------------------------------------------------------------
[url=http://www.huiyunzh.cn/index.asp]普陀装修[/url] [url=http://www.sh-jiawang.com]二手房装修[/url] [url=http://200100.net]IC卡[/url] [url=http://www.j-jie.com]别墅装修[/url] [url=http://www.e-cheng.com]灭菌器[/url]
好贴
[size=2]先回贴在看贴，抢位置最重要，嘿嘿！[/size][url=http://www.bjgreatwall.cn/][size=1][color=silver]graphite[/color][/size][/url][size=1][color=silver] or [/color][url=http://www.bjgreatwall.cn/][size=1][color=silver]crucible[/color][/size][/url][/size][size=1][color=silver][color=silver] China Manufacturer[/color] [/color][/size]
花生
花生有个人去带著朋友去探望他的外婆。当他和外婆说话时，他的朋友开始吃著咖啡桌
上放的花生，把花生都吃完了。当他们离开时，
他的朋友对外婆说：“谢谢您的花生！”
外婆回应说：“喔！嗯！唉！自从我牙齿掉光后，我就只能吸掉它们外层的巧克力
而已。老了，咳。。。”
[url=http://www.zx6688.cn]www.zx6688.cn[/url]
我爱论坛
**** 作者被禁止或删除 内容自动屏蔽 ****北京到多伦多特价机票
[size=2]国际机票┇特价机票┇打折机票┇学生机票┇团队机票┇飞机票价格查询详细航程：北京到[url=http://www.598gj.com/html/200852616481990.htm]多伦多[/url]特价机票
机票价格：单程:3500元 往返5100元
航空公司：中国国际航空等
航班信息：北京到多伦多的航班每天都有
停留期限：1个月,2个月,3个月,6个月,1年
备 注：为您提供最低廉的票价,让您享受最良好的服务
团队价格：可申请到比散客价格低300--800元左右的优惠，详情请来电咨询！
学生行李：需提供学生签证复印件,可以享受留学生行李优惠和票价优惠
确认方式：打承运航空公司服务电话或网上确认。
送票方式：免费送票，票到付款或通过银行汇款。
乘机方式：直接凭护照直接登机(电子客票)
说明信息：以上票价不包含各种税费,实际出票价格以客服人员确认为准！欢迎拨打热线电话。
北京支持在线订票，票到付款，上门取票，送票单位：北京华夏航空服务有限公司，联系电话：010-65920760 51263548（多线）
[url=http://www.598gj.com][color=red]请点击进入×北京华夏航空服务有限公司定票网×请点击进入[/color][/url]
[/size]
看帖就要顶哦
[size=6]看帖就要顶哦[/size][url=http://www.777gps.cn][color=yellow]路先行导航仪[/color][/url]
感受，阳光的你
[color=black]带着你的心声，带着你的绵绵柔情，我在山坡上远行，感受雨露的轻柔，感受花间的诗情，感受你路过的心情。清晨嫩嫩的小草清请，露珠在嫩嫩的小草的尖上晶莹，微微的清风路过，散落一片叮咛，蟋蟀背着露珠的芳香爬进洞中，将爱情的故事重新播种，那种微醉而甜美的叫声，在草丛中成了最陶醉的旋律，最浪漫的歌声。微妙的世界，微妙的风情，微妙的阳光洗刷着昨日的林间路过人的梦影，片片的花朵吸引着蜜蜂与蝴蝶的伴侣，蜻蜓也有着世间[/color][url=http://shyxdz.itb2b.com.cn/][color=black]科技[/color][/url][color=black]少有的痴情，蜜来蜜去的寻觅，蜜来蜜去的嗡嗡，更像初恋的我们在绿荫下和溪水旁的呼声，它们依依恋恋的飞翔，让我想起了一起和你在海上航行的日子，让我想起了你说过的在梦里我们是一对陆地上鸳鸯，太多的回忆，太多的快乐，都在着遥遥远远的山坡上遇见，都是因为你太多情，引诱我来这里寻找你离去的背影。
花花绿绿的草坪，涓涓东流的溪水，白点斑斑的绵羊，轮廓模糊的山脉，广阔无边的阳光，飘着长发的你，穿着红色的纱裙，跑跳着轻盈的舞步，放飞着用我们油画制作的风筝，那上面有我们的依依真情，有我们怪异的头像，长长的胡子是我，恬静[/color][url=http://cnshfly.itb2b.com.cn/][color=black]娱乐[/color][/url][color=black]的笑脸是你，我们辽阔的草地上面的天空中陪伴着白云飞翔，跟随着流行的风，跟随着浪漫的爱情，跟随着阳光的你，荡漾着甜美的爱情。
我穿过草原，穿过沟壑，我穿过森林，就像穿过你的人生，更像穿越时空感受过去飘来飘去的你的心情，我的穿越让迎着太阳的温度，感受你热情的吻，那吻的柔情更像太阳安慰我脚上的伤，让我知道自己要快一点前行，好让你在前面的等待[/color][url=http://www.okykq.com/][color=black]老虎/机上分器[/color][/url][color=black]早一点完成，好让我们的虔诚像梦一样成功。看着天空飞翔的老鹰，我就知道它的眼睛和你一样的痴情，又有着另外的不同，它注视草原上的每一个生灵的生命，那种渴望的激情，那种寻觅的热浪，那种飘忽不定的身影，都是在猎取食物的初衷。而你的眼睛里是真正的渴望，渴望而为爱情的奔放，充满的执着的柔情，那种想早日实现的期盼，犹如猎鹰的行动。
阳光浅浅地拉伸了我的身影，也拉伸了世界的暗红，暗红将每一个角落变得成熟与老成，而我的依恋却是那样年青，依然回放着行踪里属于[/color][url=http://www.okykq.com/][color=black]老虎/机破/解[/color][/url][color=black]你的足迹，嗅着你的芳香，嗅着你的甜蜜，多么渴望快一点见到你，见到那长发飘飘的阳光心情。晚霞铺满了山坡，铺满了我的心情，一片金色的温暖，一片褐色的笼罩，一片群鸟归林的喧闹，一片草丛中的清唱，一片溪水的柔声，一片草原上的梦影，所有的一片在晚霞的消失中，而渐渐的宁静可爱，可爱宁静的柔情。[/color]
推广服务
google排名中心为您提供专业的[url=http://www.googleplayer.net]google排名[/url]，[url=http://www.rankgoogle.cn]google排名[/url]（左侧），Google左侧排名和[url=http://www.googlevip.org]google排名[/url]优化等google网站推广排名服务。专业的英文[url=http://www.googlevip.net.cn]google排名[/url]推广服务商,提供英文[url=http://www.tg123.org.cn]google排名[/url],google左侧排名等全球推广业务，全球英文Google排名推广。 一要钱注册、明显没人了。。页:
[1]