常用ASP函数集【经验才是最重要的】

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

StartTime=timer() '程序执行时间检测

'###############################################################

'┌──VIBO───────────────────┐

'│             VIBO STUDIO 版权所有             │

'└───────────────────────┘

' Author:Vibo

' Email:vibo_cn@hotmail.com

'----------------- Vibo ASP站点开发常用函数库 ------------------

'OpenDB(vdata_url)   -------------------- 打开数据库

'getIp()  ------------------------------- 得到真实IP

'getIPAdress(sip)------------------------ 查找ip对应的真实地址

'IP2Num(sip) ---------------------------- 限制某段IP地址

'chkFrom() ------------------------------ 防站外提交设定

'getsys() ------------------------------- 操作系统检测

'GetBrowser() --------------------------- 浏览器版本检测

'GetSearcher() -------------------------- 识别搜索引擎

'

'---------------------- 数据过滤 ↓----------------------------

'CheckStr(byVal ChkStr) ----------------- 检查无效字符

'CheckSql() ----------------------------- 防止SQL注入

'UnCheckStr(Str)------------------------- 检查非法sql命令

'Checkstr(Str) -------------------------- ASP最新SQL防注入过滤涵数

'HTMLEncode(reString) ------------------- 过滤转换HTML代码

'DateToStr(DateTime,ShowType) ----------- 日期转换函数

'Date2Chinese(iDate) -------------------- 获得ASP的中文日期字符串

'lenStr(str) ---------------------------- 计算字符串长度（字节）

'CreateArr(str) ------------------------- 生成二维数组

'ShowRsArr(rsArr) ----------------------- 用表格显示记录集getrows生成的数组的表结构

'---------------------- 外接组件使用函数↓------------------------

'sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody) -----'Jmail组件 发送邮件

'-----------------------------------------系统检测函数↓------------------------------------------

'IsValidUrl(url) ------------------------ 检测网页是否有效

'getHTMLPage(filename) ------------------ 获取文件内容

'CheckFile(FilePath) -------------------- 检查某一文件是否存在

'CheckDir(FolderPath) ------------------- 检查某一目录是否存在

'MakeNewsDir(foldername) ---------------- 根据指定名称生成目录

'CreateHTMLPage(filename,FileData,C_mode) 生成文件

'CheckBadWord(byVal ChkStr) ------------- 过滤脏字

'###############################################################

Dim ipData_url

ipData_url="./Ip.mdb"

Response.Write("--------------客户端信息检测------------"&"<br>")

Response.Write(getsys()&"<br>")

Response.Write(GetBrowser()&"<br>")

Response.Write(GetSearcher()&"<br>")

Response.Write("IP:"&getIp()&"<br>")

Response.Write("来源:"&(getIPAdress(GetIp()))&"<br>")

Response.Write("<br>")

Response.Write("--------------数据提交检测--------------"&"<br>")

if not chkFrom then

    Response.write("请不要从站外提交内容！"&"<br>")

    Response.end

else

    Response.write("本站提交内容！"&"<br><br>")

End if

function OpenDB(vdata_url)

'------------------------------打开数据库

'使用:Conn = OpenDB("data/data.mdb")

  Dim vibo_Conn

  Set vibo_Conn= Server.CreateObject("ADODB.Connection")

  vibo_Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(vdata_url)

  vibo_Conn.Open

  OpenDB=vibo_Conn

End Function

function getIp()

'-----------------------得到真实IP

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")

getIp=userip

End function

Function getIPAdress(sip)

'---------------------查找ip对应的真实地址

Dim iparr,iprs,country,city

If sip="127.0.0.1" then sip= "192.168.0.1"   

iparr=split(sip,".")

sip=cint(iparr(0))*256*256*256+cint(iparr(1))*256*256+cint(iparr(2))*256+cint(iparr(3))-1

Dim vibo_ipconn_STRING

vibo_ipconn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(ipData_url)

Set iprs = Server.CreateObject("ADODB.Recordset")

iprs.ActiveConnection = vibo_ipconn_STRING

iprs.Source = "Select Top 1 city, country FROM address Where ip1 <=" & sip & " and " & sip & "<=ip2"

iprs.CursorType = 0

iprs.CursorLocation = 2

iprs.LockType = 1

iprs.Open()

If iprs.bof and iprs.eof then

    country="未知地区"

    city=""

Else

    country=iprs.Fields.Item("country").Value

    city=iprs.Fields.Item("city").Value

End If

getIPAdress=country&city

iprs.Close()

Set iprs = Nothing

End Function

Function IP2Num(sip)

'--------------------限制某段IP地址

dim str1,str2,str3,str4

    dim num

    IP2Num=0

    if isnumeric(left(sip,2)) then

        str1=left(sip,instr(sip,".")-1)

        sip=mid(sip,instr(sip,".")+1)

        str2=left(sip,instr(sip,".")-1)

        sip=mid(sip,instr(sip,".")+1)

        str3=left(sip,instr(sip,".")-1)

        str4=mid(sip,instr(sip,".")+1)

        num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1

        IP2Num = num

    end if

end function

'userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))

'if userIPnum > IP2Num("192.168.0.0") and userIPnum < IP2Num("192.168.0.255") then

    'response.write ("<center>您的IP被禁止</center>")

    'response.end

'end if

Function chkFrom()

'----------------------------防站外提交设定

    Dim server_v1,server_v2, server1, server2

    chkFrom=False

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

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

    If Mid(server1,8,len(server2))=server2 Then chkFrom=True

End Function

'if not chkFrom then

    'Response.write("请不要从站外提交内容！")

    'Response.end

'End if

function getsys()

'----------------------------------操作系统检测

vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")

if instr(vibo_soft,"Windows NT 5.0") then

    msm="Win 2000"

elseif instr(vibo_soft,"Windows NT 5.1") then

    msm="Win XP"

elseif instr(vibo_soft,"Windows NT 5.2") then

    msm="Win 2003"

elseif instr(vibo_soft,"4.0") then

    msm="Win NT"

elseif instr(vibo_soft,"NT") then

    msm="Win NT"

elseif instr(vibo_soft,"Windows CE") then

    msm="Windows CE"

elseif instr(vibo_soft,"Windows 9") then

    msm="Win 9x"

elseif instr(vibo_soft,"9x") then

    msm="Windows ME"

elseif instr(vibo_soft,"98") then

    msm="Windows 98"

elseif instr(vibo_soft,"Windows 95") then

    msm="Windows 95"

elseif instr(vibo_soft,"Win32") then

    msm="Win32"

elseif instr(vibo_soft,"unix") or instr(vibo_soft,"linux") or instr(vibo_soft,"SunOS") or instr(vibo_soft,"BSD") then

    msm="类Unix"

elseif instr(vibo_soft,"Mac") then

    msm="Mac"

else

    msm="Other"

end if

getsys=msm

End Function

function GetBrowser()

'----------------------------------浏览器版本检测

dim vibo_soft

vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")

Browser="unknown"

version="unknown"

'vibo_soft="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; TencentTraveler ; .NET CLR 1.1.4322)"    

If Left(vibo_soft,7) ="Mozilla" Then '有此标识为浏览器

            vibo_soft=Split(vibo_soft,";")

            If InStr(vibo_soft(1),"MSIE")>0 Then

                Browser="Microsoft Internet Explorer "

                version=Trim(Left(Replace(vibo_soft(1),"MSIE",""),6))

            ElseIf InStr(vibo_soft(4),"Netscape")>0 Then

                Browser="Netscape "

                tmpstr=Split(vibo_soft(4),"/")

                version=tmpstr(UBound(tmpstr))

            ElseIf InStr(vibo_soft(4),"rv:")>0 Then

                Browser="Mozilla "

                tmpstr=Split(vibo_soft(4),":")

                version=tmpstr(UBound(tmpstr))

                If InStr(version,")") > 0 Then

                    tmpstr=Split(version,")")

                    version=tmpstr(0)

                End If

            End If

ElseIf Left(vibo_soft,5) ="Opera" Then

            vibo_soft=Split(vibo_soft,"/")

            Browser="Mozilla "

            tmpstr=Split(vibo_soft(1)," ")

            version=tmpstr(0)

End If

If version<>"unknown" Then

            Dim Tmpstr1

            Tmpstr1=Trim(Replace(version,".",""))

            If Not IsNumeric(Tmpstr1) Then

                version="unknown"

            End If

End If

GetBrowser=Browser &" "& version

End function

function GetSearcher()

'----------------------识别搜索引擎

Dim botlist,Searcher

Dim vibo_soft

vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")

Botlist="Google,Isaac,SurveyBot,Baiduspider,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir,TencentTraveler"

Botlist=split(Botlist,",")

  For i=0 to UBound(Botlist)

    If InStr(vibo_soft,Botlist(i))>0  Then

      Searcher=Botlist(i)&" 搜索器"

      IsSearch=True

      Exit For

    End If

  Next

If IsSearch Then

  GetSearcher=Searcher

else

  GetSearcher="unknown"

End if

End function

'----------------------------------数据过滤 ↓---------------------------------------

Function CheckSql() '防止SQL注入

    Dim sql_injdata  

    SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"

    SQL_inj = split(SQL_Injdata,"|")

    If Request.QueryString<>"" Then

        For Each SQL_Get In Request.QueryString

            For SQL_Data=0 To Ubound(SQL_inj)

                if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then

                    Response.Write "<Script Language='javascript'>{alert('请不要在参数中包含非法字符！');history.back(-1)}< /Script>"

                    Response.end

                end if

            next

        Next

    End If

    If Request.Form<>"" Then

        For Each Sql_Post In Request.Form

            For SQL_Data=0 To Ubound(SQL_inj)

                if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then

                    Response.Write "<Script Language='javascript'>{alert('请不要在参数中包含非法字符！');history.back(-1)}     </Script>"

                    Response.end

                end if

            next

        next

    end if

End Function

Function CheckStr(byVal ChkStr) '检查无效字符

    Dim Str:Str=ChkStr

    Str=Trim(Str)

    If IsNull(Str) Then

        CheckStr = ""

        Exit Function

    End If

    Dim re

    Set re=new RegExp

    re.IgnoreCase =True

    re.Global=True

    re.Pattern="(\r\n){3,}"

    Str=re.Replace(Str,"$1$1$1")

    Set re=Nothing

    Str = Replace(Str,"'","''")

    Str = Replace(Str, "select", "select")

    Str = Replace(Str, "join", "join")

    Str = Replace(Str, "union", "union")

    Str = Replace(Str, "where", "where")

    Str = Replace(Str, "insert", "insert")

    Str = Replace(Str, "delete", "delete")

    Str = Replace(Str, "update", "update")

    Str = Replace(Str, "like", "like")

    Str = Replace(Str, "drop", "drop")

    Str = Replace(Str, "create", "create")

    Str = Replace(Str, "modify", "modify")

    Str = Replace(Str, "rename", "rename")

    Str = Replace(Str, "alter", "alter")

    Str = Replace(Str, "cast", "cast")

    CheckStr=Str

End Function

Function UnCheckStr(Str) '检查非法sql命令

        Str = Replace(Str, "select", "select")

        Str = Replace(Str, "join", "join")

        Str = Replace(Str, "union", "union")

        Str = Replace(Str, "where", "where")

        Str = Replace(Str, "insert", "insert")

        Str = Replace(Str, "delete", "delete")

        Str = Replace(Str, "update", "update")

        Str = Replace(Str, "like", "like")

        Str = Replace(Str, "drop", "drop")

        Str = Replace(Str, "create", "create")

        Str = Replace(Str, "modify", "modify")

        Str = Replace(Str, "rename", "rename")

        Str = Replace(Str, "alter", "alter")

        Str = Replace(Str, "cast", "cast")

        UnCheckStr=Str

End Function

Function Checkstr(Str) 'SQL防注入过滤涵数

    If Isnull(Str) Then

    CheckStr = ""

    Exit Function

    End If

    Str = Replace(Str,Chr(0),"", 1, -1, 1)

    Str = Replace(Str, """", """", 1, -1, 1)

    Str = Replace(Str,"<","<", 1, -1, 1)

    Str = Replace(Str,">",">", 1, -1, 1)

    Str = Replace(Str, "script", "script", 1, -1, 0)

    Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0)

    Str = Replace(Str, "Script", "Script", 1, -1, 0)

    Str = Replace(Str, "script", "Script", 1, -1, 1)

    Str = Replace(Str, "object", "object", 1, -1, 0)

    Str = Replace(Str, "OBJECT", "OBJECT", 1, -1, 0)

    Str = Replace(Str, "Object", "Object", 1, -1, 0)

    Str = Replace(Str, "object", "Object", 1, -1, 1)

    Str = Replace(Str, "applet", "applet", 1, -1, 0)

    Str = Replace(Str, "APPLET", "APPLET", 1, -1, 0)

    Str = Replace(Str, "Applet", "Applet", 1, -1, 0)

    Str = Replace(Str, "applet", "Applet", 1, -1, 1)

    Str = Replace(Str, "[", "[")

    Str = Replace(Str, "]", "]")

    Str = Replace(Str, """", "", 1, -1, 1)

    Str = Replace(Str, "=", "=", 1, -1, 1)

    Str = Replace(Str, "'", "''", 1, -1, 1)

    Str = Replace(Str, "select", "select", 1, -1, 1)

    Str = Replace(Str, "execute", "execute", 1, -1, 1)

    Str = Replace(Str, "exec", "exec", 1, -1, 1)

    Str = Replace(Str, "join", "join", 1, -1, 1)

    Str = Replace(Str, "union", "union", 1, -1, 1)

    Str = Replace(Str, "where", "where", 1, -1, 1)

    Str = Replace(Str, "insert", "insert", 1, -1, 1)

    Str = Replace(Str, "delete", "delete", 1, -1, 1)

    Str = Replace(Str, "update", "update", 1, -1, 1)

    Str = Replace(Str, "like", "like", 1, -1, 1)

    Str = Replace(Str, "drop", "drop", 1, -1, 1)

    Str = Replace(Str, "create", "create", 1, -1, 1)

    Str = Replace(Str, "rename", "rename", 1, -1, 1)

    Str = Replace(Str, "count", "count", 1, -1, 1)

    Str = Replace(Str, "chr", "chr", 1, -1, 1)

    Str = Replace(Str, "mid", "mid", 1, -1, 1)

    Str = Replace(Str, "truncate", "truncate", 1, -1, 1)

    Str = Replace(Str, "nchar", "nchar", 1, -1, 1)

    Str = Replace(Str, "char", "char", 1, -1, 1)

    Str = Replace(Str, "alter", "alter", 1, -1, 1)

    Str = Replace(Str, "cast", "cast", 1, -1, 1)

    Str = Replace(Str, "exists", "exists", 1, -1, 1)

    Str = Replace(Str,Chr(13),"<br>", 1, -1, 1)

    CheckStr = Replace(Str,"'","''", 1, -1, 1)

End Function

Function HTMLEncode(reString) '过滤转换HTML代码

    Dim Str:Str=reString

    If Not IsNull(Str) Then

        Str = UnCheckStr(Str)

        Str = Replace(Str, "&", "&")

        Str = Replace(Str, ">", ">")

        Str = Replace(Str, "<", "<")

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

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

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

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

        Str = Replace(Str, CHR(39),"'")

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

        Str = Replace(Str, CHR(10), "<br>")

        HTMLEncode = Str

    End If

End Function

Function DateToStr(DateTime,ShowType)  '日期转换函数

    Dim DateMonth,DateDay,DateHour,DateMinute

    DateMonth=Month(DateTime)

    DateDay=Day(DateTime)

    DateHour=Hour(DateTime)

    DateMinute=Minute(DateTime)

    If Len(DateMonth)<2 Then DateMonth="0"&DateMonth

    If Len(DateDay)<2 Then DateDay="0"&DateDay

    Select Case ShowType

    Case "Y-m-d"  

        DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay

    Case "Y-m-d H:I A"

        Dim DateAMPM

        If DateHour>12 Then

            DateHour=DateHour-12

            DateAMPM="PM"

        Else

            DateHour=DateHour

            DateAMPM="AM"

        End If

        If Len(DateHour)<2 Then DateHour="0"&DateHour    

        If Len(DateMinute)<2 Then DateMinute="0"&DateMinute

        DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM

    Case "Y-m-d H:I:S"

        Dim DateSecond

        DateSecond=Second(DateTime)

        If Len(DateHour)<2 Then DateHour="0"&DateHour    

        If Len(DateMinute)<2 Then DateMinute="0"&DateMinute

        If Len(DateSecond)<2 Then DateSecond="0"&DateSecond

        DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond

    Case "YmdHIS"

        DateSecond=Second(DateTime)

        If Len(DateHour)<2 Then DateHour="0"&DateHour    

        If Len(DateMinute)<2 Then DateMinute="0"&DateMinute

        If Len(DateSecond)<2 Then DateSecond="0"&DateSecond

        DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond    

    Case "ym"

        DateToStr=Right(Year(DateTime),2)&DateMonth

    Case "d"

        DateToStr=DateDay

    Case Else

        If Len(DateHour)<2 Then DateHour="0"&DateHour

        If Len(DateMinute)<2 Then DateMinute="0"&DateMinute

        DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute

    End Select

End Function

Function Date2Chinese(iDate) '获得ASP的中文日期字符串

　 　 Dim num(10)

　 　 Dim iYear

　 　 Dim iMonth

　 　 Dim iDay

　 　 num(0) = "〇"

　 　 num(1) = "一"

　 　 num(2) = "二"

　 　 num(3) = "三"

　 　 num(4) = "四"

　 　 num(5) = "五"

　 　 num(6) = "六"

　 　 num(7) = "七"

　 　 num(8) = "八"

　 　 num(9) = "九"

　 　 iYear = Year(iDate)

　 　 iMonth = Month(iDate)

　 　 iDay = Day(iDate)

　 　 Date2Chinese = num(iYear \ 1000) + num((iYear \ 100) Mod 10) + num((iYear\ 10) Mod 10) + num(iYear Mod 10) + "年"

　 　 If iMonth >= 10 Then

　 　 　 　 If iMonth = 10 Then

　 　 　 　 　 　 Date2Chinese = Date2Chinese + "十" + "月"

　 　 　 　 Else

　 　 　 　 　 　 Date2Chinese = Date2Chinese + "十" + num(iMonth Mod 10) + "月"

　 　 　 　 End If

　 　 Else

　 　 　 　 Date2Chinese = Date2Chinese + num(iMonth Mod 10) + "月"

　 　 End If

　 　 If

时间： 2024-09-25 18:46:47

常用ASP函数集【经验才是最重要的】的相关文章

常用ASP函数集【经验才是最重要的】_应用技巧

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% StartTime=timer() '程序执行时间检测 '############################################################### '┌──VIBO───────────────────┐ '│             VIBO STUDIO 版权所有             │ '└─────────────

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

复制代码 代码如下: <% '------------------------------------- '天枫ASP class v1.0,集常用asp函数于一体 '天枫版权所有http://www.52515.net 'QQ:76994859 EMAIL:Chenshaobo@gmail.com '所有功能函数名如下: ' StrLength(str) 取得字符串长度 ' CutStr(str,strlen) 字符串长度切割 ' CheckIsEmpty(tstr) 检测是否为空 ' isI

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

复制代码 代码如下: <% '------------------------------------- '天枫ASP class v1.0,集常用asp函数于一体 '天枫版权所有http://www.52515.net 'QQ:76994859 EMAIL:Chenshaobo@gmail.com '所有功能函数名如下: ' StrLength(str) 取得字符串长度 ' CutStr(str,strlen) 字符串长度切割 ' CheckIsEmpty(tstr) 检测是否为空 ' isI

ASP函数集详解及示例代码

1.函数array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: <% i = array ("1","2","3") %> 结果: i 被赋予为数组 2.函数Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子: <% f

php常用ODBC函数集(详细)_php技巧

ODBC连接类函数odbc_connect函数:打开一个ODBC连接odbc_close函数:关闭一个已经打开的ODBC连接odbc_close_all函数:关闭所有已经打开的ODBC连接odbc_pconnect函数:打开一个持续有效的ODBC连接 ODBC操作类函数odbc_commit函数:更新所有处于未决状态的操作odbc_do函数:在打开的ODBC连接上执行SQL语句odbc_exec函数:执行SQL语句odbc_execute函数:执行一个预置的SQL语句odbc_free_resu

php常用Stream函数集介绍_php技巧

stream_bucket_append函数:为队列添加数据 stream_bucket_make_writeable函数:从操作的队列中返回一个数据对象stream_bucket_new函数:为当前队列创建一个新的数据stream_bucket_prepend函数:预备数据到队列 stream_context_create函数:创建数据流上下文stream_context_get_default函数:获取默认的数据流上下文stream_context_get_options函数:获取数据流的设

天枫常用的ASP函数封装如下_应用技巧

复制代码 代码如下: <% '------------------------------------- '天枫ASP class v1.0,集常用asp函数于一体 '天枫版权所有'QQ:76994859 EMAIL:Chenshaobo@gmail.com '所有功能函数名如下: ' StrLength(str) 取得字符串长度 ' CutStr(str,strlen) 字符串长度切割 ' CheckIsEmpty(tstr) 检测是否为空 ' isInteger(para) 整数检验 ' C

天枫常用的ASP函数封装如下

复制代码 代码如下: <% '------------------------------------- '天枫ASP class v1.0,集常用asp函数于一体 '天枫版权所有 'QQ:76994859 EMAIL:Chenshaobo@gmail.com '所有功能函数名如下: ' StrLength(str) 取得字符串长度 ' CutStr(str,strlen) 字符串长度切割 ' CheckIsEmpty(tstr) 检测是否为空 ' isInteger(para) 整数检验 ' 

ASP常用的函数

函数 ASP常用的函数,希望能用的着. <% dim db db="dbms.mdb" '****************************************************************** '执行sql语句,不返回值,sql语句最好是如下: 'update 表名 set 字段名=value,字段名=value where 字段名=value 'delete from 表名 where 字段名=value 'insert into 表名 (字段名,