ASP移除所有HTML代码的函数
代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加！
如：
RemoveHTML = Replace(RemoveHTML," ","")
相关文档：
ASP类
＝＝＝＝＝＝＝＝＝
使用VBS的ASP也能定义类的！本文将介绍定义、使用类的基本方法。
在ASP（特指使用VBS的ASP，下同）里，使用Class语句来声明一个类。语法如下：
Class 类名
End Class
类的定义、变量、属性和方法等都包含在Class...End Class块中。
下面就可以定义类的属性和方法了。正式讲属性、方法� ......
<!--#include file=common.asp-->
<%
'**********************************************
' code by asp导出excel通用
' 修改引用 by 子言(jastudio)
' qq:23638564 email:kpggdf@163.com
' web:www.gdsspt.com
'**********************************************
dim xibua
dim mysql
xibua = request ......
window.open('page.html','','height=100,width=400,top=0,left=0,toolbar=no,menubar=no,scrollbars=no, resizable=no,location=no, status=no')
===================各项参数============
其中yes/no也可使用1/0；pixel value为具体的数值，单位象素。
参数 | 取值范围 | 说明
alwaysLowered | yes/no | 指定窗口隐� ......
1. 超链接的图片去掉边框的方法：
在 语句里加上 border=0
如：<img border=0
src="sadf.jpg">
2.鼠标放上去图片变色的方法：
用到了标签的事件功能，调用方法是 function="this.src='asdf.jpg'"
如� ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if Request("MailtoAddress") <> "" then
msg = SendMail
(Request("SMTPServer"),Request("SMTPServerUserName"),Request("SMTPServerPassword"),
Request("MailDom ......
