char.asp
资源名称:wap.rar [点击查看]
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:1k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <%
- Function c2u(sGBStr)
- Dim i,c
- if sGBStr<>"" then
- For i = 1 to Len(sGBStr)
- c = Mid(sGBStr,i,1)
- if c=chr(13) then
- c2u = c2u & "<br/>"
- else
- c2u = c2u & "&#x" & Hex(AscW(c)) & ";"
- end if
- Next
- end if
- End Function
- function UBB(strContent)
- on error resume next
- strContent = HTMLEncode(strContent)
- dim objRegExp
- Set objRegExp=new RegExp
- objRegExp.IgnoreCase =true
- objRegExp.Global=True
- objRegExp.Pattern="((URL))(.*)((/URL))"
- strContent= objRegExp.Replace(strContent,"<a href=""$2"" >$2</a>")
- objRegExp.Pattern="((URL=(.*)))(.*)((/URL))"
- strContent= objRegExp.Replace(strContent,"<a href=""$2"" >$3</a>")
- objRegExp.Pattern="((IMG))(.*)((/IMG))"
- strContent= objRegExp.Replace(strContent,"<img src=""$2"" alt='load..'/><br/><a href=""$2"" >点击下载</a>")
- objRegExp.Pattern="(\)"
- strContent= objRegExp.Replace(strContent,"<br/>")
- set objRegExp=Nothing
- UBBCode=strContent
- end function
- %><%
- '====================================================================
- ' 请你保留这段说明,这并不会影响你的速度. 电脑交流:http://www.cnscu.cn
- ' 程序制作:横云 掌上校园收倾心整理收集于互联网,感谢你的支持!
- ' 升级时间: 2008-2-5 主页地址:HTTP://wap.cnscu.cn
- ' E-Mail: cnscu@126.com 客服QQ:554904632 QQ群:30493504 QQ群2:46659883
- '====================================================================
- %>