推荐下天枫常用ASP函数封装，推荐大家使用

假设提供的文章是有关一项新技术带来的改变。原文可能类似于以下内容：

原文：

随着科技的飞速发展，一项新技术正在改变我们的世界。这项技术的出现，正在重塑我们的生活方式和工作方式，带来了前所未有的变革。从交通到通讯，从娱乐到教育，每个领域都在经历翻天覆地的变化。这项新技术的潜力巨大，将会推动人类社会不断进步。随之而来的挑战也不容忽视。我们必须积极应对新技术带来的机遇和挑战，以确保人类社会能够充分利用这项技术的优势，同时避免其潜在的风险。

天枫ASP类v1.0，是集常用asp函数于一体的综合性工具。我们深知版权的重要性，因此在此声明，所有功能函数的版权归天枫所有。我们也欢迎用户通过QQ:76994859或EMAIL:Chenshaobo@gmail进行联系。

这个类提供了丰富的功能函数，可以满足各种需求。以下是各功能函数的简要介绍：

一、字符串处理类函数

1. StrLength：获取字符串长度（汉字计为2）。

2. CutStr：字符串长度切割，超过部分用省略号表示。

二、验证类函数

1. CheckIsEmpty：检查字符串是否为空。

2. isInteger：整数检验。

3. CheckName：名字字符检验。

4. CheckPassword：密码检验。

5. CheckEmail：格式检测。

三、信息提示类函数

1. Alert：弹出对话框提示。

2. GoBack：错误信息提示，可附带返回功能。

3. Suc：操作成功提示，附带返回地址。

接下来详细介绍部分函数的具体作用和使用方法：

CheckIsEmpty函数：用于检查字符串是否为空。如果字符串为空或者包含特定字符（如HTML标签等），则返回false，否则返回true。该函数在处理用户输入数据时非常有用，可以确保数据的完整性。

isInteger函数：用于检验一个字符串是否表示整数。如果字符串中的字符都是数字，且没有超出整数的范围，则返回true，否则返回false。这个函数可以帮助开发者验证用户输入的数据是否符合整数的格式要求。

CheckName函数：用于检验一个字符串是否符合特定的规则（如字母、数字、下划线、汉字等），以确保其作为名字的有效性。这对于注册用户、创建账户等场景非常有用。

Alert函数：用于弹出一个对话框提示用户相关信息，可以自定义对话框的信息和提示后的跳转地址。这对于引导用户操作、告知重要信息等场景非常有用。

GoBack函数：用于显示错误信息并附带返回功能。当用户在操作过程中发生错误时，可以使用该函数进行提示并允许用户返回重填。这对于提高用户体验和减少操作错误非常有帮助。

```vb

If url = "" Then

url = "javascript:history.go(-1)"

str2 = str2 & "  返回继续管理"

Response.Write "

"

End Function

'－－－－－－－－－－－－－－－－－－安理－－－－－－－－－－－－－－－－－－－－－－－－－－－－

'函数名：ChkPost

'作用：禁止站外提交表单

'返回值：true站内提交，flase站外提交

Public Function ChkPost()

Dim url1, url2

chkpost = True

url1 = Cstr(Request.ServerVariables("HTTP_REFERER"))

url2 = Cstr(Request.ServerVariables("SERVER_NAME"))

If Mid(url1, 8, Len(url2)) <> url2 Then

chkpost = False

Exit Function

End If

End Function

'函数名：PSql

'作用：防止SQL注入

'返回值：空则无注入，非空则注入并返回注入的字符

Public Function PSql()

Psql = ""

badwords = "'防''防;防and防exec防insert防select防update防delete防count防防%防chr防mid防master防truncate防char防declare防|"

badword = Split(badwords, "防")

If Request.Form <> "" Then

For Each TF_Post In Request.Form

For i = 0 To Ubound(badword)

If InStr(LCase(Request.Form(TF_Post)), badword(i)) > 0 Then

Psql = badword(i)

Exit Function

End If

Next

Next

End If

If Request.QueryString <> "" Then

For Each TF_Get In Request.QueryString

For i = 0 To Ubound(badword)

If InStr(LCase(Request.QueryString(TF_Get)), badword(i)) > 0 Then

Psql = badword(i)

Exit Function

End If

Next

Next

End If

End Function

'函数名：FiltrateHtmlCode

'作用：防止生成html代码

Public Function FiltrateHtmlCode(Str)

If Not IsNull(str) And str <> "" Then

Str = Replace(Str, Chr(9), "")

Str = replace(Str, "|", "&124;")

Str = replace(Str, chr(39), "&39;")

Str = replace(Str, "<", "&lt;")

Str = replace(Str, ">", "&gt;")

Str = Replace(str, CHR(13), "")

Str = Replace(str, CHR(10), "")

FiltrateHtmlCode = Str

End If

End Function

'函数名：HtmlCode

'作用：过滤Html标签

'参数：str -字符串

Public function HtmlCode(str)

If Not IsNull(str) And str <> "" Then

str = replace(str, ">", "&gt;")

str = replace(str, "<", "&lt;")

str = Replace(str, CHR(32), " ")

str = Replace(str, CHR(9), " ")

str = Replace(str, CHR(34), """)

str = Replace(str, CHR(39), "&39;")

str = Replace(str, CHR(13), "")

str = Replace(str, CHR(10), "")

str = Replace(str, "script", "&115cript")

HtmlCode = str

End If

End Function

'函数名：Replacehtml

'作用：清理html

'参数：tstr -字符串

Public Function Replacehtml(tstr)

Dim Str, re

Str = Tstr

Set re = New RegExp

re.IgnoreCase = True

re.Global = True

re.Pattern = "<(p|/p|br)>"

Str = re.Replace(Str, vbNewLine)

re.Pattern = ""

str = re.replace(str, "[img]$2[/img]")

re.Pattern = "<(.[^>])>"

Str = re.Replace(Str, "")

Set Re = Nothing

Replacehtml = Str

End Function

'－－－－－－－－－－－－－－－－－－获取客户端和服务端的一些信息－－－－－－－－－－－－－－－－－－－

'函数名：GetIP

'作用：获取客户端IP地址

'返回值：客户端IP地址

Public Function GetIP()

Dim Temp

Temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If Temp = "" or IsNull(Temp) or IsEmpty(Temp) Then Temp = Request.ServerVariables("REMOTE_ADDR")

If InStr(Temp, "'") > 0 Then Temp = "0.0.0.0"

GetIP = Temp

End Function

'函数名：GetBrowser

'作用：获取客户端浏览器信息

'返回值：客户端浏览器信息

Public Function GetBrowser()

info = Request.ServerVariables(HTTP_USER_AGENT)

If InStr(info, "NetCaptor 6.5.0") > 0 Then

browser = "NetCaptor 6.5.0"

ElseIf InStr(info, "MyIe 3.1") > 0 Then

browser = "MyIe 3.1"

ElseIf InStr(info, "NetCaptor 6.5.0RC1") > 0 Then

browser = "NetCaptor 6.5.0RC1"

ElseIf InStr(info, "NetCaptor 6.5.PB1") > 0 Then

browser = "NetCaptor 6.5.PB1"

ElseIf InStr(info, "MSIE 5.5") > 0 Then

browser = "Inter Explorer 5.5"

ElseIf InStr(info, "MSIE 6.0") > 0 Then

browser = "Inter Explorer 6.0"

ElseIf InStr(info, "MSIE 6.0b") > 0 Then

browser = "Inter Explorer 6.0b"

ElseIf InStr(info, "MSIE 5.01") > 0 Then

browser = "Inter Explorer 5.01"

ElseIf InStr(info, "MSIE 5.0") > 0 Then

browser = "Inter Explorer 5.00"

ElseIf InStr(info, "MSIE 4.0") > 0 Then

browser = "Inter Explorer 4.01"

Else

browser = "其它"

End If

End Function

'函数名：GetSystem

'作用：获取客户端操作系统

'返回值：客户端操作系统

Function GetSystem()

info = Request.ServerVariables(HTTP_USER_AGENT)

If InStr(info, "NT 5.1") > 0 Then

system = "Windows XP"

ElseIf InStr(info, "Tel") > 0 Then

system = "Telport"

ElseIf InStr(info, "webzip") > 0 Then

system = "webzip"

ElseIf InStr(info, "flashget") > 0 Then

system = "flashget"

ElseIf InStr(info, "offline") > 0 Then

system = "offline"

ElseIf InStr(info, "NT 5") > 0 Then

system = "Windows 2000"

ElseIf InStr(info, "NT 4") > 0 Then

system = "Windows NT4"

ElseIf InStr(info, "98") > 0 Then

system = "Windows 98"

ElseIf InStr(info, "95") > 0 Then

system = "Windows 95"

ElseIf InStr(info, "unix") or InStr(info, "linux") or InStr(info, "SunOS") or InStr(info, "BSD") Then

system = "类Unix"

ElseIf InStr(thesoft, "Mac") Then

system = "Mac"

Else

system = "其它"

End If

End Function

'函数名：GetUrl

'作用：获取url包括参数

'返回值：获取url包括参数

Public Function GetUrl()

Dim strTemp

strTemp = Request.ServerVariables("Script_Name")

If Trim(Request.QueryString) <> "" Then

strTemp = strTemp & "?"

For Each M_item In Request.QueryString

strTemp = strTemp & M_item & "=" & Server.UrlEncode(Trim(Request.QueryString("" & M_item & "")))

Next

End If

GetUrl = strTemp

End Function

'函数名：CUrl

'作用：获取当前页面URL的函数

'返回值：当前页面URL的函数

Function CUrl()

Domain_Name = LCase(Request.ServerVariables("Server_Name"))

Page_Name = LCase(Request.ServerVariables("Script_Name"))

Quary_Name = LCase(Request.ServerVariables("Quary_String"))

If Quary_Name = "" Then

CUrl = " & Domain_Name & Page_Name

Else

CUrl = " & Domain_Name & Page_Name & "?" & Quary_Name

End If

End Function

'函数名：GetExtend

'作用：取得文件扩展名

'参数：filename -文件名

Public Function GetExtend(filename)

dim tmp

if filename <> "" then

tmp = Mid(filename, InStrRev(filename, ".") + 1, Len(filename) - InStrRev(filename, "."))

tmp = LCase(tmp)

if InStr(1, tmp, "asp") > 0 or InStr(1, tmp, "php") > 0 or InStr(1, tmp, "php3") > 0 or InStr(1, tmp, "aspx") > 0 then

getextend = "txt"

else

getextend = tmp

end if

else

getextend = ""

end if

End Function

'－－－－－－－－－－－－－－－－－－数据库的操作－－－－－－－－－－－－－－－－－－－－－－－

'函数名：CheckExist

'作用：检测某个表中某个字段是否存在某个内容

'参数：table --表名

' fieldname -字段名

' fieldcontent -字段内容

' isblur -是否模糊匹配

'返回值：false不存在，true存在

Function CheckExist(table, fieldname, fieldcontent, isblur)

CheckExist = False

If isblur = 1 Then

set rsCheckExist = conn.execute("select from " & table & " where " & fieldname & " like '%" & fieldcontent & "%'")

Else

set rsCheckExist = conn.execute("select from " & table & " where " & fieldname & " = '" & fieldcontent & "'")

End If

if not (rsCheckExist.eof and rsCheckExist.bof) then CheckExist = True

rsCheckExist.close

set rsCheckExist = nothing

End Function

'函数名：GetNum

'作用：检测某个表某个字段的数量或最大值或最小值

'参数：table 表名

' fieldname --字段名

' resulttype --还回结果(count/max/min)

' args -附加参加(order by ...)

'返回值：数值

Function GetNum(table, fieldname, resulttype, args)

GetFieldContentNum = 0

if fieldname = "" then fieldname = ""

sqlGetFieldContentNum = "select " & resulttype & "(" & fieldname & ") from " & table & args

set rsGetFieldContentNum = conn.execute(sqlGetFieldContentNum)

if not (rsGetFieldContentNum.eof and rsGetFieldContentNum.bof) then GetFieldContentNum = rsGetFieldContentNum(0)

rsGetFieldContentNum.close

set rsGetFieldContentNum = nothing

End Function

'函数名：UpdateValue

'作用：更新表中某字段某内容的值

'参数：table 表名

' fieldname --字段名

' fieldvalue --更新后的值

' id id

' url --更新后转向地址

'返回值：无

Public Function UpdateValue(table, fieldname, fieldvalue, id, url)

conn.Execute("update " & table & " set " & fieldname & "='" & fieldvalue & "' where id='" & CLng(trim(id)) & "'")

if url <> "" then response.redirect url

End Function

'－－－－－－－－－－－－－－－服务端信息和操作－－－－－－－－－－－－－－－－－－－－－－－

'函数名：GetFolderSize

'作用：计算某个文件夹的大小

'参数：FileName -文件夹路径及文件夹名称

'返回值：数值

Public Function GetFolderSize(Folderpath)

dim fso, d, size, showsize

set fso = server.createObject("scripting.filesystemobject")

drvpath = server.mappath(Folderpath)

if fso.FolderExists(drvpath) Then

set d = fso.getfolder(drvpath)

size = d.size

GetFolderSize = FormatSize(size)

Else

GetFolderSize = Folderpath & "文件夹不存在"

End If

End Function

'函数名：GetFileSize

'作用：计算某个文件的大小

'参数：FileName -文件路径及文件名

'返回值：数值

Public Function GetFileSize(FileName)

Dim fso, drvpath, d, size, showsize

set fso = server.createObject("scripting.filesystemobject")

filepath = server.mappath(FileName)

if fso.FileExists(filepath) then

set d = fso.getfile(filepath)

size = d.size

GetFileSize = FormatSize(size)

Else

GetFileSize = FileName & "文件不存在"

End If

set fso = nothing

End Function

'函数名：IsObjInstalled

'作用：检查组件是否安装

'参数：strClassString -组件名称

'返回值：false不存在，true存在

Public Function IsObjInstalled(strClassString)

On Error Resume Next

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = Server.CreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

'函数名：SendMail

'作用：用Jmail组件发送邮件

'参数：ServerAddress -服务器地址

' AddRecipient -收信人地址

' Subject -主题

' Body -信件内容

' Sender --发信人地址

'返回值：描述

Public function SendMail(MailServerAddress, AddRecipient, Subject, Body, Sender, MailFrom)

on error resume next

Dim JMail

Set JMail = Server.CreateObject("JMail.SMTPMail")

if err then

SendMail = "没有安装JMail组件"

err.clear

exit function

end if

JMail.Logging = True

JMail.Charset = "gb2312"

JMail.ContentType = "text/html"

JMail.ServerAddress = MailServerAddress

JMail.AddRecipient = AddRecipient

JMail.Subject = Subject

JMail.Body = MailBody

JMail.Sender = Sender

JMail.From = MailFrom

JMail.Priority = 1

JMail.Execute

Set JMail = nothing

if err then

SendMail = err.description

err.clear

else

SendMail = "OK"

end if

end function

'函数名：ResponseCookies

'作用：写入COOKIES

'参数：Key -cookie名

' value -cookie值

' expires - cookie过期时间

'返回值：无

Public Function ResponseCookies(Key, Value, Expires)

DomainPath = Left(Request.ServerVariables("script_name"), InStrRev(Request.ServerVariables("script_name"), "/"))

Response.Cookies(Key) = Value

if Expires <> 0 then Response.Cookies(Key).Expires = Date + Expires

Response.Cookies(Key).Path = DomainPath

End Function

'函数名：CleanCookies

'作用：清除COOKIES

'返回值：无

Public Function CleanCookies()

原代码：

```vbscript

If 条件判断 Here...

If 条件成立时执行某些操作... Else If 条件不成立时执行其他操作...

AutoPage=content 结束当前操作并存储内容至AutoPage变量中... End If 结束条件判断。

End Function 结束函数定义... End Class 结束类定义... %> 调用新的函数并设置相关变量，然后渲染名为body的内容区域。

```

在这段代码中，一个神秘的旅程悄然展开。当满足特定的条件时，程序将启动一段神秘的仪式。倘若条件成立，程序将执行一系列精细的操作，就如同魔术师的手中的戏法一般神奇。当这些操作完成后，内容会被存储在AutoPage这一特殊容器中。整个过程结束后，我们即将迎来一段精彩的展示。这一切都结束于一个名为“Function”的章节。在这个章节里，所有的指令都汇聚一堂，形成了一个完整的体系。随着这个体系的落幕，“Class”章节也随之结束。这仅仅是故事的开始。为了将这段旅程呈现给世界，我们调用一个新的函数，赋予它一个特别的名称——“fun”，让它承载着我们的希望开始新的旅程。然后，在名为“body”的舞台中央，它将会渲染出一场精彩绝伦的演出。这不仅仅是一段代码的运行，更是一场视觉盛宴的开启。让我们拭目以待这场令人瞩目的表演吧！这不仅展示了编程的奇妙世界，更展示了我们的创造力与想象力！期待这段旅程中的每一个精彩瞬间！