转换函数的作用中有点疑问。凭经验就行。解决办法
发布时间:2010-05-20 14:01:29 文章来源:www.iduyao.cn 采编人员:星星草
转换函数的作用中有点疑问。凭经验就行。。。
ubb2html(formatStr(autourl(rs("soft_desc"))), true, true)
为什么要利用这三个函数进行字符转换呢?转换的过程是什么?autourl,ubb2html理论上应该是对什么的转换?
function AutoUrl(str)
on error resume next
Set url=new RegExp
url.IgnoreCase =True
url.Global=True
url.MultiLine = True
url.Pattern = "^(http://[A-Za-z0-9./=?%-&_~`@:+!]+)"
str = url.Replace(str,"$1")
url.Pattern = "(http://[A-Za-z0-9./=?%-&_~`@:+!]+)$"
str = url.Replace(str,"$1")
url.Pattern = "^(www.[A-Za-z0-9./=?%-&_~`@:+!]+)"
str = url.Replace(str,"$1")
url.Pattern = "(www.[A-Za-z0-9./=?%-&_~`@:+!]+)$"
str = url.Replace(str,"$1")
set url=Nothing
AutoUrl=str
end function
Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(32), " ")
String = Replace(String, "", " ")
String = Replace(String, "<", "<")
String = Replace(String, ">", ">")
String = Replace(String, CHR(10) & CHR(10), "<BR><BR>")
String = Replace(String, CHR(10), "<BR>")
FormatStr = String
End Function
------解决方案--------------------
FormatStr用来将字符串中的html标签符号转换成一般文本格式
html中空格chr(32)用 表示,换行chr(10)用<br>表示
标签<>用< l>表示,浏览器就直接显示<>,而不认为是标签.
AutoUrl是只保留www.xxxx.com/xx形式的网址,其他字符都被去掉
------解决方案--------------------
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
页面下载功能的实现
想做一个下载功能的实现,点击页面中的下载按钮,就可以实现将页面的文字保存到word里进行下载。
------解决方...
-
Vbs的SAFRCFileDlg.FileSave对象不能创建,如何解决?
VBScript code
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
S...
-
关于文件夹加密的一段代码,麻烦来看下
我想给文件夹加个密,在网上找到这段代码:
<script language=vbscript>
do
i=inputb...
-
关于sql中的第二排序问题
现在数据库中有两个字段,a和b select * from table1 order by b asc 只能对b进行升序排列,怎么写这个sql...
-
vbscript 中 如何把数组 作为 函数的参数 并在函数里循环使用
vbscript 中 如何把数组 作为 函数的参数 并在函数里循...
-
VBS添加任务计划的问题
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!.rootcimv2")
Set objNewJ...
-
VC 获取char数组左右边个数
请问各位老大在(非MFC工程)如何获取char数组左右边个数并把它贬值个另外个数组
char ls_szH[60];
ch...
-
Vbscript(3) Adding Intelligence
Adding Intelligence
If...Then
Just the Steps
To implement If...Then
1.
On ...
-
VBScript隐藏html按钮
请教各位,如何在vb脚本中隐藏一个html按钮?
因为我要做打印,打印的时候先隐藏按钮,打印完成再显示.这样的....
-
vbscript-页面 打开EXCEL
如何在一个(vbscript) 页面上用一个BUTTON按钮打开一个文件夹里任意一个后续名为.xls的EXCEL表格
------...