备案控制台
探索云世界
开发者社区 开发与运维 文章 正文

asp的ubb函数总结

2004-08-22 1287
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： asp的ubb函数 function unHtml(content) unHtml=content if content "" then unHtml=replace(unHtml,"&","&") unHtml=replace(unHt...

asp的ubb函数<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

function unHtml(content)

unHtml=content

if content <> "" then

unHtml=replace(unHtml,"&","&")

unHtml=replace(unHtml,"<","<")

unHtml=replace(unHtml,">",">")

unHtml=replace(unHtml,chr(34),""")

unHtml=replace(unHtml,chr(13),"<br>")

unHtml=replace(unHtml,chr(32)," ")

'unHtml=ubb(unHtml)

end if

end function

 

function ubb(content)

Dim nowtime,i

ubb=content

nowtime=now()

UBB=Convert(ubb,"code")

UBB=Convert(ubb,"html")

UBB=Convert(ubb,"url")

UBB=Convert(ubb,"color")

UBB=Convert(ubb,"font")

UBB=Convert(ubb,"size")

UBB=Convert(ubb,"quote")

UBB=Convert(ubb,"email")

UBB=Convert(ubb,"img")

UBB=Convert(ubb,"swf")

 

UBB=AutoURL(ubb)

ubb=replace(ubb,"[b]","<b>",1,-1,1)

ubb=replace(ubb,"[/b]","</b>",1,-1,1)

ubb=replace(ubb,"[i]","<i>",1,-1,1)

ubb=replace(ubb,"[/i]","</i>",1,-1,1)

ubb=replace(ubb,"[u]","<u>",1,-1,1)

ubb=replace(ubb,"[/u]","</u>",1,-1,1)

ubb=replace(ubb,"[blue]","<font color='#000099'>",1,-1,1)

ubb=replace(ubb,"[/blue]","</font>",1,-1,1)

ubb=replace(ubb,"[red]","<font color='#990000'>",1,-1,1)

ubb=replace(ubb,"[/red]","</font>",1,-1,1)

for i=1 to 28

ubb=replace(ubb,"{:em"&i&"}","<IMG SRC=emot/emotface/em"&i&".gif></img>",1,6,1)

ubb=replace(ubb,"{:em"&i&"}","",1,-1,1)

next

ubb=replace(ubb,"["&chr(176),"[",1,-1,1)

ubb=replace(ubb,chr(176)&"]","]",1,-1,1)

ubb=replace(ubb,"/"&chr(176),"/",1,-1,1)

' ubb=replace(ubb,"{;em","{:em",1,-1,1)

end function

 

function Convert(ubb,CovT)

Dim cText,startubb,endubb,Lcovt,text,codetext

cText=ubb

startubb=1

do while Covt="url" or Covt="color" or Covt="font" or Covt="size"

startubb=instr(startubb,cText,"["&CovT&"=",1)

if startubb=0 then exit do

endubb=instr(startubb,cText,"]",1)

if endubb=0 then exit do

Lcovt=Covt

startubb=startubb+len(lCovT)+2

text=mid(cText,startubb,endubb-startubb)

codetext=replace(text,"[","["&chr(176),1,-1,1)

codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)

'codetext=replace(codetext,"{:em","{;em",1,-1,1)

codetext=replace(codetext,"/","/"&chr(176),1,-1,1)

select case CovT

case "color"

cText=replace(cText,"[color="&text&"]","<font color='"&text&"'>",1,1,1)

cText=replace(cText,"[/color]","</font>",1,1,1)

case "font"

cText=replace(cText,"[font="&text&"]","<font face='"&text&"'>",1,1,1)

cText=replace(cText,"[/font]","</font>",1,1,1)

case "size"

if IsNumeric(text) then

if text>6 then text=6

if text<1 then text=1

cText=replace(cText,"[size="&text&"]","<font size='"&text&"'>",1,1,1)

cText=replace(cText,"[/size]","</font>",1,1,1)

end if

case "url"

cText=replace(cText,"[url="&text&"]","<a href='"&codetext&"' target=_blank>",1,1,1)

cText=replace(cText,"[/url]","</a>",1,1,1)

case "email"

cText=replace(cText,"["&CovT&"="&text&"]","<a href=mailto:"&text&">",1,1,1)

cText=replace(cText,"[/"&CovT&"]","</a>",1,1,1)

end select

loop

startubb=1

do

startubb=instr(startubb,cText,"["&CovT&"]",1)

if startubb=0 then exit do

endubb=instr(startubb,cText,"[/"&CovT&"]",1)

if endubb=0 then exit do

Lcovt=Covt

startubb=startubb+len(lCovT)+2

text=mid(cText,startubb,endubb-startubb)

codetext=replace(text,"[","["&chr(176),1,-1,1)

codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)

'codetext=replace(codetext,"{:em","{;em",1,-1,1)

codetext=replace(codetext,"/","/"&chr(176),1,-1,1)

select case CovT

case "url"

cText=replace(cText,"["&CovT&"]"&text,"<a href='"&codetext&"' target=_blank>"&codetext,1,1,1)

cText=replace(cText,"<a href='"&codetext&"' target=_blank>"&codetext&"[/"&CovT&"]","<a href="&codetext&" target=_blank>"&codetext&"</a>",1,1,1)

case "email"

cText=replace(cText,"["&CovT&"]","<a href=mailto:"&text&">",1,1,1)

cText=replace(cText,"[/"&CovT&"]","</a>",1,1,1)

case "html"

codetext=replace(codetext,"<br>",chr(13),1,-1,1)

codetext=replace(codetext," ",chr(32),1,-1,1)

Randomize

rid="temp"&Int(100000 * Rnd)

cText=replace(cText,"[html]"&text,"代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext,1,1,1)

cText=replace(cText,"代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"[/html]","代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"</TEXTAREA><INPUT onclick=runEx('"&rid&"') type=button value=运行此段代码 name=Button1 class='Tips_bo'> <INPUT onclick=JM_cc('"&rid&"') type=button value=复制到我的剪贴板 name=Button2 class='Tips_bo'>",1,1,1)

case "img"

cText=replace(cText,"[img]"&text,"<a href="&chr(34)&"about:<img src="&codetext&" border=0>"&chr(34)&" target=_blank><img src="&codetext,1,1,1)

cText=replace(cText,"[/img]"," vspace=2 hspace=2 border=0 alt=::点击图片在新窗口中打开::></a>",1,1,1)

case "code"

cText=replace(cText,"[code]"&text,"以下内容为程序代码<hr noshade>"&codetext,1,1,1)

cText=replace(cText,"以下内容为程序代码<hr noshade>"&codetext&"[/code]","以下内容为程序代码<hr noshade>"&codetext&"<hr noshade>",1,1,1)

case "quote"

atext=replace(text,"[img]","",1,-1,1)

atext=replace(atext,"[/img]","",1,-1,1)

atext=replace(atext,"[swf]","",1,-1,1)

atext=replace(atext,"[/swf]","",1,-1,1)

atext=replace(atext,"[html]","",1,-1,1)

atext=replace(atext,"[/html]","",1,-1,1)

' atext=replace(atext,"{:em","{;em",1,-1,1)

atext=SplitWords(atext,350)

atext=replace(atext,chr(32)," ",1,-1,1)

cText=replace(cText,"[quote]"&text,"<blockquote><hr noshade>"&atext,1,1,1)

cText=replace(cText,"<blockquote><hr noshade>"&atext&"[/quote]","<blockquote><hr noshade>"&atext&"<hr noshade></blockquote>",1,1,1)

case "swf"

cText=replace(cText,"[swf]"&text,"影片地址:<br>"&text&"<br><object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='500' height='500'><param name=movie value='"&codetext&"'><param name=quality value=high><embed src='"&codetext&"' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='500' height='500'>",1,1,1)

cText=replace(cText,"<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='500' height='500'><param name=movie value='"&codetext&"'><param name=quality value=high><embed src='"&codetext&"' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='500' height='500'>"&"[/swf]","<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='500' height='500'><param name=movie value='"&codetext&"'><param name=quality value=high><embed src='"&codetext&"' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='500' height='500'>"&"</embed></object>",1,1,1)

end select

loop

Convert=cText

end function

文章标签：
Web App开发
.NET
内存技术
关键词：
ASP函数
pollyduan
目录
相关文章
橘子红了呐
|
.NET 开发框架
ASP中的EVAL函数
橘子红了呐
1414 0
科技小能手
|
JavaScript 前端开发 .NET
Asp编程中的一些重要函数（1）
科技小能手
1206 0
科技小能手
|
安全 .NET
Asp编程中的一些重要函数（2）
科技小能手
1304 0
y0umer
|
.NET 开发框架
ASP长文章内容自动分页函数
y0umer
757 0
轻风有道
|
.NET 开发框架
有关ASP的过程及函数的定义方法及调用
'定义过程'定义函数'调用方法从上面可以看出ASP的定义可以说是很不严格的,参数都没有类型的定义,函数的返回类型也没有定义如果这样调用call a1("aowind",6) 则回返回数据类型不适配的错误了....
轻风有道
672 0
轻风有道
|
.NET C# 开发框架
有关Asp里Split函数使用多个分割符的方法
首先，我在知道Split这个函数的作用，是把一个字符串按指定的分割符分割成一个字符串数组。ASP里有这个Split，是这样定义的dim Split(byval source as string ,byval str as string) as string()source是源字符串，str是分隔符我这里用了VB.net的写法，方便说明返回值的类型和参数的类型。
轻风有道
782 0
孤剑
|
SQL 安全 .NET
一个比较使用的asp 函数集合类
最近迷恋上作网站了，使用asp开发，发现asp有好多的漏洞，而且在一个网站中有好多的代码是重复使用的，所以就查询了一些资料发现在asp中可以使用类的思想，所以就写了这个类，写的不好，但是比较实用。
孤剑
660 0
孤剑
|
.NET
几个比较好用的asp检查函数
因为比较简单，我就不说什么了。一看就明白的！ Function ChkStr(InString)If InString"" Then?InString=Replace(LCase(InString)," ","")?InString=Replace(LCase(...
孤剑
508 0
亚丁号
|
4月前
|
开发框架 前端开发 .NET
ASP.NET CORE 3.1 MVC“指定的网络名不再可用\企图在不存在的网络连接上进行操作”的问题解决过程
ASP.NET CORE 3.1 MVC“指定的网络名不再可用\企图在不存在的网络连接上进行操作”的问题解决过程
亚丁号
46 0
源码宝
|
13天前
|
开发框架 前端开发 JavaScript
JavaScript云LIS系统源码ASP.NET CORE 3.1 MVC + SQLserver + Redis医院实验室信息系统源码 医院云LIS系统源码
实验室信息系统（Laboratory Information System，缩写LIS）是一类用来处理实验室过程信息的软件，云LIS系统围绕临床，云LIS系统将与云HIS系统建立起高度的业务整合，以体现“以病人为中心”的设计理念，优化就诊流程，方便患者就医。
源码宝
21 0

热门文章

最新文章

  • 1
    ASP.NET三甲医院手术麻醉信息管理系统源码 对接麻醉机、监护仪、血气分析仪
  • 2
    利用Visual Basic构建高效的ASP.NET Web应用
  • 3
    ASP.NETCore 使用SQLite教程 EF SQLite教程，修改模型更新数据库，适合初学者看懂详细、简单教程
  • 4
    一起谈.NET技术，ASP.NET MVC Routing概述
  • 5
    ASP.NET MVC Model绑定(三)
  • 6
    asp.net MVC2 初探十六
  • 7
    Asp.Net Web API（四）
  • 8
    ASP.NET程序安全性(三) 表单提交、过滤用户输入
  • 9
    搭建你的Spring.Net+Nhibernate+Asp.Net Mvc 框架 （三）实现数据库接口层和业务逻辑层
  • 10
    Asp.net MVC2.0系列文章-显示列表和详细页面操作
  • 1
    ASP.NET体检中心源码，实现检前、检中、检后全流程管理
    36
  • 2
    C# .NET面试系列七：ASP.NET Core
    76
  • 3
    C# .NET面试系列六：ASP.NET MVC
    108
  • 4
    ASP.NET云LIS区域检验云SaaS平台源码
    49
  • 5
    ASP.NET实验室LIS系统源码 Oracle数据库
    41
  • 6
    ASP.NETMVC数据库完整CRUD操作示例
    33
  • 7
    ASP.NET WEB+EntityFramework数据持久化——考核练习库——1、用户管理系统(考点：查询列表、增加、删除)
    72
  • 8
    ASP.NET WEB项目中GridView与Repeater数据绑定控件的用法
    34
  • 9
    ASP.NET WEB——项目中Cookie与Session的用法
    39
  • 10
    ASP.NET WEB——项目创建与文件上传操作
    48

    • 相关电子书

    更多
  • 低代码开发师（初级）实战教程
  • 冬季实战营第三期：MySQL数据库进阶实战
  • 阿里巴巴DevOps 最佳实践手册
    • 下一篇
    部署LAMP环境（Alibaba Cloud Linux 3）