仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 769|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网站制作之怎样从Html页面中提取一切汉字

[复制链接]
不帅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:14:46 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;汉字|页面<SCRIPTLANGUAGE="vbScript">
dimstr
str="如何从一个Html页面中提取一切汉字呢?不克不及有别的Html代码。"
alertFilterChinese(str)
functionFilterChinese(strInput)
dimresult:result=""
dimtempStr
fori=1tolen(strInput)
tempStr=mid(strInput,i,1)
ifleft(escape(tempStr),2)="%u"then
result=result&tempStr
endif
next
FilterChinese=result
endfunction
</SCRIPT>

ifasc(tempStr)>255then
用正则表达式的办法
<SCRIPTLANGUAGE="vbScript">
dimstr
str="如何从一个Html页面中提取一切汉字呢?不克不及有别的Html代码。"
alertRegExpTest("[u4e00-u9fa5]",str)
FunctionRegExpTest(patrn,strng)
DimregEx,Match,Matches创建变量。
SetregEx=NewRegExp创建正则表达式。
regEx.Pattern=patrn设置形式。
regEx.IgnoreCase=True设置是不是辨别巨细写。
regEx.Global=True设置全局交换。
SetMatches=regEx.Execute(strng)实行搜刮。
ForEachMatchinMatches遍历Matches汇合。
RetStr=RetStr&Match.Value
Next
RegExpTest=RetStr
EndFunction
</SCRIPT>
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-11-1 07:19

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表