栏目导航

热点推荐

阅览排行

当前位置：主页>网络编程>ASP教程>资讯:ASP常用代码段之八

ASP常用代码段之八

www.jz123.cn 2010-09-29 来源: 中国建站责任编辑(袁袁) 我要投递新闻

1：asp使用正则替换字符串并返回

' RegReplace(vStr,vReg,vCode)
' 使用正则替换字符串并返回
'
' #####################################################
'
' vStr 为原始字符串
' vReg 为正则表达式
' vCode 为替换内容，可使用正则返回的结果 $1、$2 等
'
' #####################################################
'
' a = "<a href=a.txt>一个文本</a><br /><a href=b.asp>一个程序</a>"
' Response.Write RegReplace(a,"<[^<>]*?>","") ' Return "一个文本一个程序"
' a = "<a href=a.txt>一个文本</a><br /><img border=0 src=""x.gif""><a href=b.asp>一个程序</a>"
' Response.Write RegReplace(a,"[\s\S]*?<img[\s\S]*?src=['""]{0,1}([^<>""]*)?['"">]{0,1}?>[\s\S]*","$1") ' Return "x.gif"

Function RegReplace(sStr,vReg,vCode)
    Dim Re,vStr
    Set Re = New RegExp
    Re.Pattern = vReg
    Re.IgnoreCase = True
    Re.Global = True
    vStr = sStr
    If Re.Test(vStr) Then
        vStr = Re.Replace(vStr,vCode)
    End If
    RegReplace = vStr
End Function

2：asp转换字符串编码

' C4Code(vStr,FromCharset,ToCharset)
' 转换字符串编码
'
' #####################################################
'
' vStr 为原始字符串
' FromCharset 为原始编码
' ToCharset 为转换后编码
'
' #####################################################
'

Function C4Code(vStr,FromCharset,ToCharset)
    Dim File
    Set File = server.CreateObject("Adodb.Stream")
    File.Charset = ToCharset
    File.Mode = 3
    File.Open
    File.Type = 2
    File.Position = 0
    File.WriteText vStr
    File.Position = 0
    File.Charset = FromCharset
    C4Code = File.ReadText
End Function
%>

3： asp十六进制个位数字转十进制

<% ' Hex2Dec(vStr)
' 十六进制个位数字转十进制
'
' #####################################################
'
' vStr 为 0-9a-fA-F 的单个字符
' 该函数为 H2D 函数的支持函数，不推荐单独使用
'
' #####################################################
'
' a = Hex2Dec("A")            ' Return 10

Function Hex2Dec(vStr)
    Dim sStr
    sStr = UCase(vStr)
    If IsArray(ExpStr(sStr,"[A-F0-9]{1}",",")) Then
        If IsNumeric(vStr) Then
            Hex2Dec = CInt(sStr)
        Else
            Hex2Dec = Asc(sStr) - 55
        End If
    Else
        Hex2Dec = 0
    End If
End Function

4：asp八进制转十进制，此函数为 Oct 的逆运算

O2D(vStr)
' 八进制转十进制，此函数为 Oct 的逆运算
'
' #####################################################
'
' vStr 为合法的八进制数字或数字字符串
'
' #####################################################
'
' a = O2D("12465")            ' Return 5429

Function O2D(vStr)
    Dim sStr,intLoop
    O2D = 0
    sStr = CStr(vStr)
    If IsArray(ExpStr(sStr,"^[0-7]+$",",")) Then
        For intLoop = 1 To Len(sStr)
            O2D = O2D * 8 + CInt(Mid(sStr,intLoop,1))
        Next
    End If
End Function

' H2D(vStr)
' 十六进制转十进制，此函数为 Hex 的逆运算
'
' #####################################################
'
' vStr 为合法的十六进制数字字符串
'
' #####################################################
'
' a = H2D("Fc84D6")            ' Return 16549078

Function H2D(vStr)
    Dim sStr,intLoop
    H2D = 0
    sStr = UCase(vStr)
    If IsArray(ExpStr(sStr,"^[0-9A-F]+$",",")) Then
        For intLoop = 1 To Len(sStr)
            H2D = H2D * 16 + Hex2Dec(Mid(sStr,intLoop,1))
        Next
    End If
End Function

5：aspIP 地址转十六进制数字字符串

' IP2H(vStr)
' IP 地址转十六进制数字字符串
'
' #####################################################
'
' vStr 为合法的 IP v4 地址，或者合法的 IP v6 地址
'
' #####################################################
'
' a = IP2H("220.160.4.17")            ' Return "000000000000000000000000DCA00411"
' a = IP2H("F7F0:65:3:22::1")        ' Return "F7F00065000300220000000000000001"

Function IP2H(vStr)
    Dim sStr,IP,intLoop
    sStr = vStr
    If InStr(sStr,".") > 0 Then
        IP = Split(vStr,".")
        For intLoop = 0 To UBound(IP)
            IP2H = IP2H & Right("0" & Hex(CInt(IP(intLoop))),2)
        Next
    ElseIf InStr(sStr,":") > 0 Then
        Do While InStr(sStr,"::") > 0 And UBound(Split(sStr,":")) < 8
            sStr = Replace(sStr,"::",":0::")
        Loop
        sStr = Replace(sStr,"::",":")
        IP = Split(sStr,":")
        For intLoop = 0 To UBound(IP)
            IP2H = IP2H & Right("0000" & IP(intLoop),4)
        Next
    End If
    IP2H = UCase(Right("00000000000000000000000000000000" & IP2H,32))
End Function

6：asp32 位十六进制数字字符串转 IP 地址

H2IP(vStr)
' 32 位十六进制数字字符串转 IP 地址，此函数为 IP2H 的逆运算
'
' #####################################################
'
' vStr 为合法的 32 位十六进制数字字符串
'
' #####################################################
'
' a = H2IP("000000000000000000000000DCA00411")            ' Return "220.160.4.17"
' a = H2IP("F7F00065000300220000000000000001")            ' Return "F7F0:65:3:22:0:0:0:1"

Function H2IP(vStr)
    Dim sStr,IP,intLoop
    sStr = UCase(vStr)
    If IsArray(ExpStr(sStr,"^[A-F0-9]{32}$",",")) Then
        If IsArray(expstr(sStr,"^[0]{24}",",")) Then
            IP = ExpStr(sStr,"[A-F0-9]{2}",",")
            For intLoop = UBound(IP) To UBound(IP) - 3 Step -1
                H2IP = H2D(IP(intLoop)) & "." & H2IP
            Next
            H2IP = Left(H2IP,Len(H2IP) - 1)
        Else
            IP = ExpStr(sStr,"[A-F0-9]{4}",",")
            For intLoop = 0 To UBound(IP)
                H2IP = H2IP & ":" & Hex(H2D(IP(intLoop)))
            Next
            H2IP = Right(H2IP,Len(H2IP) - 1)
        End If
    Else
        H2IP = "0.0.0.0"
    End If
End Function

%>

7：做asp.net探针必备

<% '做asp.net探针必备.
Request.ServerVariables("Url")
'返回服务器地址
Request.ServerVariables("Path_Info")
'客户端提供的路径信息

Request.ServerVariables("Appl_Physical_Path")
'与应用程序元数据库路径相应的物理路径

Request.ServerVariables("Path_Translated")
'通过由虚拟至物理的映射后得到的路径

Request.ServerVariables("Script_Name")
'执行脚本的名称

Request.ServerVariables("Query_String")
'查询字符串?容

Request.ServerVariables("Http_Referer")
'请求的字符串?容

Request.ServerVariables("Server_Port")
'接受请求的服务器端口号

Request.ServerVariables("Remote_Addr")
'发出请求的远程主机的IP地址

Request.ServerVariables("Remote_Host")
'发出请求的远程主机名称

Request.ServerVariables("Local_Addr")
'返回接受请求的服务器地址

Request.ServerVariables("Http_Host")
'返回服务器地址

Request.ServerVariables("Server_Name")
'服务器的主机名、DNS地址或IP地址

Request.ServerVariables("Request_Method")
'提出请求的方法比如GET、HEAD、POST等等

Request.ServerVariables("Server_Port_Secure")
'如果接受请求的服务器端口为安全端口时，则为1，否则为0

Request.ServerVariables("Server_Protocol")
'服务器使用的协议的名称和版本

Request.ServerVariables("Server_Software")
'应答请求并运行网关的服务器软件的名称和版本

Request.ServerVariables("All_Http")
'客户端发送的所有HTTP标头，前缀HTTP_

Request.ServerVariables("All_Raw")
'客户端发送的所有HTTP标头,其结果和客户端发送时一样，没有前缀HTTP_

Request.ServerVariables("Appl_MD_Path")
'应用程序的元数据库路径

Request.ServerVariables("Content_Length")
'客户端发出?容的长度

Request.ServerVariables("Https")
'如果请求穿过安全通道（SSL），则返回ON如果请求来自非安全通道，则返回OFF

Request.ServerVariables("Instance_ID")
'IIS实例的ID号

Request.ServerVariables("Instance_Meta_Path")
'响应请求的IIS实例的元数据库路径

Request.ServerVariables("Http_Accept_Encoding")
'返回?容如：gzip,deflate

Request.ServerVariables("Http_Accept_Language")
'返回?容如：en-us

Request.ServerVariables("Http_Connection")
'返回?容：Keep-Alive

Request.ServerVariables("Http_Cookie")
'返回?容如：nVisiT%

Request.ServerVariables("Http_User_Agent")
'返回?容：Mozilla/4.0(compatible;MSIE6.0;WindowsNT5.1;SV1)

Request.ServerVariables("Https_Keysize")
'安全套接字层连接关键字的位数，如128

Request.ServerVariables("Https_Secretkeysize")
'服务器验证私人关键字的位数如1024

Request.ServerVariables("Https_Server_Issuer")
'服务器证书的发行者字段

Request.ServerVariables("Https_Server_Subject")
'服务器证书的主题字段

Request.ServerVariables("Auth_Password")
'当使用基本验证模式时，客户在密码对话框中输入的密码

Request.ServerVariables("Auth_Type")
'是用户访问受保护的脚本时，服务器用於检验用户的验证方法

Request.ServerVariables("Auth_User")
'代证的用户名

Request.ServerVariables("Cert_Cookie")
'唯一的客户证书ID号

Request.ServerVariables("Cert_Flag")
'客户证书标丈，如有客户端证书，则bit0为0如果客户端证书验证无效，bit1被设置为1

Request.ServerVariables("Cert_Issuer")
'用户证书中的发行者字段

Request.ServerVariables("Cert_Keysize")
'安全套接字层连接关键字的位数，如128

Request.ServerVariables("Cert_Secretkeysize")
'服务器验证私人关键字的位数如1024

Request.ServerVariables("Cert_Serialnumber")
'客户证书的序列号字段

Request.ServerVariables("Cert_Server_Issuer")
'服务器证书的发行者字段

Request.ServerVariables("Cert_Server_Subject")
'服务器证书的主题字段

Request.ServerVariables("Cert_Subject")
'客户端证书的主题字段

Request.ServerVariables("Content_Type")
'客户发送的form?容或HTTPPUT的数据类型
%>

8：asp//校验是否源自本地图片

<% if instr(rs("tupian"),"http://")>0 then %>

顶一下

上一篇：ASP常用代码段之七下一篇：ASP常用代码段之九

栏目导航

热点推荐

阅览排行

ASP常用代码段之八

相关文章列表

评论总数：0 条 [ 查看全部 ] 网友评论