{"id":582,"date":"2010-06-20T03:14:54","date_gmt":"2010-06-19T19:14:54","guid":{"rendered":""},"modified":"2014-03-11T22:31:16","modified_gmt":"2014-03-11T14:31:16","slug":"%e5%b8%b8%e7%94%a8%e9%87%87%e9%9b%86%e5%87%bd%e6%95%b0","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2010\/06\/20\/582.htm","title":{"rendered":"\u5e38\u7528\u91c7\u96c6\u51fd\u6570"},"content":{"rendered":"
\n

<%
\n‘**************************’
\n‘\u4f5c\u7528\uff1a\u8fc7\u6ee4\u5b57\u7b26\u4e32\u4e2d\u8fde\u7eed\u7a7a\u683c’
\nSet regEx = New RegExp
\nregEx.Pattern = "\\s{2,}" ‘\u6240\u6709\u7a7a\u5b57\u7b26\uff0c\u5305\u62ec\u7a7a\u683c\\f\\n\\r\\t\\v’
\nregEx.IgnoreCase = True
\nregEx.Global = True
\n‘**************************’<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aGetHttpPage
\n‘\u4f5c  \u7528\uff1a\u83b7\u53d6\u7f51\u9875\u6e90\u7801
\n‘\u53c2  \u6570\uff1aHttpUrl ——\u7f51\u9875\u5730\u5740
\n‘==================================================
\nFunction GetHttpPage(HttpUrl)
\n   If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then
\n      GetHttpPage="$False$"
\n      Exit Function
\n   End If
\n   Dim Http
\n   Set Http=server.createobject("MSXML2.XMLHTTP")
\n   Http.open "GET",HttpUrl,False
\n   Http.Send()
\n   If Http.Readystate<>4 then
\n      Set Http=Nothing
\n      GetHttpPage="$False$"
\n      Exit function
\n   End if
\n   GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
\n   Set Http=Nothing
\n   If Err.number<>0 then
\n      Err.Clear
\n   End If
\nEnd Function<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aBytesToBstr
\n‘\u4f5c  \u7528\uff1a\u5c06\u83b7\u53d6\u7684\u6e90\u7801\u8f6c\u6362\u4e3a\u4e2d\u6587
\n‘\u53c2  \u6570\uff1aBody ——\u8981\u8f6c\u6362\u7684\u53d8\u91cf
\n‘\u53c2  \u6570\uff1aCset ——\u8981\u8f6c\u6362\u7684\u7c7b\u578b
\n‘==================================================
\nFunction BytesToBstr(Body,Cset)
\n   Dim Objstream
\n   Set Objstream = Server.CreateObject("adodb.stream")
\n   objstream.Type = 1
\n   objstream.Mode =3
\n   objstream.Open
\n   objstream.Write body
\n   objstream.Position = 0
\n   objstream.Type = 2
\n   objstream.Charset = Cset
\n   BytesToBstr = objstream.ReadText
\n   objstream.Close
\n   set objstream = nothing
\nEnd Function<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aUrlEncoding
\n‘\u4f5c  \u7528\uff1a\u8f6c\u6362\u7f16\u7801
\n‘==================================================
\nFunction UrlEncoding(DataStr)
\n    Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
\n    StrReturn = ""
\n    For Si = 1 To Len(DataStr)
\n        ThisChr = Mid(DataStr,Si,1)
\n        If Abs(Asc(ThisChr)) < &HFF Then
\n            StrReturn = StrReturn & ThisChr
\n        Else
\n            InnerCode = Asc(ThisChr)
\n            If InnerCode < 0 Then
\n               InnerCode = InnerCode + &H10000
\n            End If
\n            Hight8 = (InnerCode  And &HFF00)\\ &HFF
\n            Low8 = InnerCode And &HFF
\n            StrReturn = StrReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
\n        End If
\n    Next
\n    UrlEncoding = StrReturn
\nEnd Function<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aGetBody
\n‘\u4f5c  \u7528\uff1a\u622a\u53d6\u5b57\u7b26\u4e32
\n‘\u53c2  \u6570\uff1aConStr ——\u5c06\u8981\u622a\u53d6\u7684\u5b57\u7b26\u4e32
\n‘\u53c2  \u6570\uff1aStartStr ——\u5f00\u59cb\u5b57\u7b26\u4e32
\n‘\u53c2  \u6570\uff1aOverStr ——\u7ed3\u675f\u5b57\u7b26\u4e32
\n‘\u53c2  \u6570\uff1aIncluL ——\u662f\u5426\u5305\u542bStartStr
\n‘\u53c2  \u6570\uff1aIncluR ——\u662f\u5426\u5305\u542bOverStr
\n‘==================================================
\nFunction GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
\n   If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
\n      GetBody="$False$"
\n      Exit Function
\n   End If
\n   Dim ConStrTemp
\n   Dim Start,Over
\n   ConStrTemp=Lcase(ConStr)
\n   StartStr=Lcase(StartStr)
\n   OverStr=Lcase(OverStr)
\n   Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
\n   If Start<=0 then
\n      GetBody="$False$"
\n      Exit Function
\n   Else
\n      If IncluL=False Then
\n         Start=Start+LenB(StartStr)
\n      End If
\n   End If
\n   Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
\n   If Over<=0 Or Over<=Start then
\n      GetBody="$False$"
\n      Exit Function
\n   Else
\n      If IncluR=True Then
\n         Over=Over+LenB(OverStr)
\n      End If
\n   End If
\n   GetBody=MidB(ConStr,Start,Over-Start)
\nEnd Function<\/p>\n

\n‘==================================================
\n‘\u51fd\u6570\u540d\uff1aGetArray
\n‘\u4f5c  \u7528\uff1a\u63d0\u53d6\u94fe\u63a5\u5730\u5740\uff0c\u4ee5$Array$\u5206\u9694
\n‘\u53c2  \u6570\uff1aConStr ——\u63d0\u53d6\u5730\u5740\u7684\u539f\u5b57\u7b26
\n‘\u53c2  \u6570\uff1aStartStr ——\u5f00\u59cb\u5b57\u7b26\u4e32
\n‘\u53c2  \u6570\uff1aOverStr ——\u7ed3\u675f\u5b57\u7b26\u4e32
\n‘\u53c2  \u6570\uff1aIncluL ——\u662f\u5426\u5305\u542bStartStr
\n‘\u53c2  \u6570\uff1aIncluR ——\u662f\u5426\u5305\u542bOverStr
\n‘==================================================
\nFunction GetArray(Byval ConStr,StartStr,OverStr,IncluL,IncluR)
\n   If ConStr="$False$" or ConStr="" Or IsNull(ConStr)=True or StartStr="" Or OverStr="" or  IsNull(StartStr)=True Or IsNull(OverStr)=True Then
\n      GetArray="$False$"
\n      Exit Function
\n   End If
\n   Dim TempStr,TempStr2,objRegExp,Matches,Match
\n   TempStr=""
\n   Set objRegExp = New Regexp
\n   objRegExp.IgnoreCase = True
\n   objRegExp.Global = True
\n   objRegExp.Pattern = "("&StartStr&").+?("&OverStr&")"
\n   Set Matches =objRegExp.Execute(ConStr)
\n   For Each Match in Matches
\n      TempStr=TempStr & "$Array$" & Match.Value
\n   Next
\n   Set Matches=nothing<\/p>\n

   If TempStr="" Then
\n      GetArray="$False$"
\n      Exit Function
\n   End If
\n   TempStr=Right(TempStr,Len(TempStr)-7)
\n   If IncluL=False then
\n      objRegExp.Pattern =StartStr
\n      TempStr=objRegExp.Replace(TempStr,"")
\n   End if
\n   If IncluR=False then
\n      objRegExp.Pattern =OverStr
\n      TempStr=objRegExp.Replace(TempStr,"")
\n   End if
\n   Set objRegExp=nothing
\n   Set Matches=nothing
\n  
\n   TempStr=Replace(TempStr,"""","")
\n   TempStr=Replace(TempStr,"’","")
\n   TempStr=Replace(TempStr," ","")
\n   TempStr=Replace(TempStr,"(","")
\n   TempStr=Replace(TempStr,")","")<\/p>\n

   If TempStr="" then
\n      GetArray="$False$"
\n   Else
\n      GetArray=TempStr
\n   End if
\nEnd Function<\/p>\n

\n‘==================================================
\n‘\u51fd\u6570\u540d\uff1aDefiniteUrl
\n‘\u4f5c  \u7528\uff1a\u5c06\u76f8\u5bf9\u5730\u5740\u8f6c\u6362\u4e3a\u7edd\u5bf9\u5730\u5740
\n‘\u53c2  \u6570\uff1aPrimitiveUrl ——\u8981\u8f6c\u6362\u7684\u76f8\u5bf9\u5730\u5740
\n‘\u53c2  \u6570\uff1aConsultUrl ——\u5f53\u524d\u7f51\u9875\u5730\u5740
\n‘==================================================
\nFunction DefiniteUrl(Byval PrimitiveUrl,Byval ConsultUrl)
\n   Dim ConTemp,PriTemp,Pi,Ci,PriArray,ConArray
\n   If PrimitiveUrl="" or ConsultUrl="" or PrimitiveUrl="$False$" or ConsultUrl="$False$" Then
\n      DefiniteUrl="$False$"
\n      Exit Function
\n   End If
\n   If Left(Lcase(ConsultUrl),7)<>"http:\/\/" Then
\n      ConsultUrl= "http:\/\/" & ConsultUrl
\n   End If
\n   ConsultUrl=Replace(ConsultUrl,"\\","\/")
\n   ConsultUrl=Replace(ConsultUrl,":\/\/",":\\\\")
\n   PrimitiveUrl=Replace(PrimitiveUrl,"\\","\/")<\/p>\n

   If Right(ConsultUrl,1)<>"\/" Then
\n      If Instr(ConsultUrl,"\/")>0 Then
\n         If Instr(Right(ConsultUrl,Len(ConsultUrl)-InstrRev(ConsultUrl,"\/")),".")>0 then  
\n         Else
\n            ConsultUrl=ConsultUrl & "\/"
\n         End If
\n      Else
\n         ConsultUrl=ConsultUrl & "\/"
\n      End If
\n   End If
\n   ConArray=Split(ConsultUrl,"\/")<\/p>\n

   If Left(LCase(PrimitiveUrl),7) = "http:\/\/" then
\n      DefiniteUrl=Replace(PrimitiveUrl,":\/\/",":\\\\")
\n   ElseIf Left(PrimitiveUrl,1) = "\/" Then
\n      DefiniteUrl=ConArray(0) & PrimitiveUrl
\n   ElseIf Left(PrimitiveUrl,2)=".\/" Then
\n      PrimitiveUrl=Right(PrimitiveUrl,Len(PrimitiveUrl)-2)
\n      If Right(ConsultUrl,1)="\/" Then  
\n         DefiniteUrl=ConsultUrl & PrimitiveUrl
\n      Else
\n         DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,"\/")) & PrimitiveUrl
\n      End If
\n   ElseIf Left(PrimitiveUrl,3)="..\/" then
\n      Do While Left(PrimitiveUrl,3)="..\/"
\n         PrimitiveUrl=Right(PrimitiveUrl,Len(PrimitiveUrl)-3)
\n         Pi=Pi+1
\n      Loop           
\n      For Ci=0 to (Ubound(ConArray)-1-Pi)
\n         If DefiniteUrl<>"" Then
\n            DefiniteUrl=DefiniteUrl & "\/" & ConArray(Ci)
\n         Else
\n            DefiniteUrl=ConArray(Ci)
\n         End If
\n      Next
\n      DefiniteUrl=DefiniteUrl & "\/" & PrimitiveUrl
\n   Else
\n      If Instr(PrimitiveUrl,"\/")>0 Then
\n         PriArray=Split(PrimitiveUrl,"\/")
\n         If Instr(PriArray(0),".")>0 Then
\n            If Right(PrimitiveUrl,1)="\/" Then
\n               DefiniteUrl="http:\\\\" & PrimitiveUrl
\n            Else
\n               If Instr(PriArray(Ubound(PriArray)-1),".")>0 Then
\n                  DefiniteUrl="http:\\\\" & PrimitiveUrl
\n               Else
\n                  DefiniteUrl="http:\\\\" & PrimitiveUrl & "\/"
\n               End If
\n            End If     
\n         Else
\n            If Right(ConsultUrl,1)="\/" Then  
\n               DefiniteUrl=ConsultUrl & PrimitiveUrl
\n            Else
\n               DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,"\/")) & PrimitiveUrl
\n            End If
\n         End If
\n      Else
\n         If Instr(PrimitiveUrl,".")>0 Then
\n            If Right(ConsultUrl,1)="\/" Then
\n               If right(LCase(PrimitiveUrl),3)=".cn" or right(LCase(PrimitiveUrl),3)="com" or right(LCase(PrimitiveUrl),3)="net" or right(LCase(PrimitiveUrl),3)="org" Then
\n                  DefiniteUrl="http:\\\\" & PrimitiveUrl & "\/"
\n               Else
\n                  DefiniteUrl=ConsultUrl & PrimitiveUrl
\n               End If
\n            Else
\n               If right(LCase(PrimitiveUrl),3)=".cn" or right(LCase(PrimitiveUrl),3)="com" or right(LCase(PrimitiveUrl),3)="net" or right(LCase(PrimitiveUrl),3)="org" Then
\n                  DefiniteUrl="http:\\\\" & PrimitiveUrl & "\/"
\n               Else
\n                  DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,"\/")) & "\/" & PrimitiveUrl
\n               End If
\n            End If
\n         Else
\n            If Right(ConsultUrl,1)="\/" Then
\n               DefiniteUrl=ConsultUrl & PrimitiveUrl & "\/"
\n            Else
\n               DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,"\/")) & "\/" & PrimitiveUrl & "\/"
\n            End If        
\n         End If
\n      End If
\n   End If
\n   If Left(DefiniteUrl,1)="\/" then
\n     DefiniteUrl=Right(DefiniteUrl,Len(DefiniteUrl)-1)
\n   End if
\n   If DefiniteUrl<>"" Then
\n      DefiniteUrl=Replace(DefiniteUrl,"\/\/","\/")
\n      DefiniteUrl=Replace(DefiniteUrl,":\\\\",":\/\/")
\n   Else
\n      DefiniteUrl="$False$"
\n   End If
\nEnd Function<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aReplaceSaveRemoteFile
\n‘\u4f5c  \u7528\uff1a\u66ff\u6362\u3001\u4fdd\u5b58\u8fdc\u7a0b\u56fe\u7247
\n‘\u53c2  \u6570\uff1aConStr —— \u8981\u66ff\u6362\u7684\u5b57\u7b26\u4e32
\n‘\u53c2  \u6570\uff1aSaveTf —— \u662f\u5426\u4fdd\u5b58\u6587\u4ef6\uff0cFalse\u4e0d\u4fdd\u5b58\uff0cTrue\u4fdd\u5b58
\n‘\u53c2  \u6570: TistUrl—— \u5f53\u524d\u7f51\u9875\u5730\u5740
\n‘==================================================
\nFunction ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl)
\n   If ConStr="$False$" or ConStr="" or strInstallDir="" or strChannelDir="" Then
\n      ReplaceSaveRemoteFile=ConStr
\n      Exit Function
\n   End If
\n   Dim TempStr,TempStr2,TempStr3,Re,Matches,Match,Tempi,TempArray,TempArray2<\/p>\n

   Set Re = New Regexp
\n   Re.IgnoreCase = True
\n   Re.Global = True
\n   Re.Pattern ="<img.+?[^\\>]>"
\n   Set Matches =Re.Execute(ConStr)
\n   For Each Match in Matches
\n      If TempStr<>"" then
\n         TempStr=TempStr & "$Array$" & Match.Value
\n      Else
\n         TempStr=Match.Value
\n      End if
\n   Next
\n   If TempStr<>"" Then
\n      TempArray=Split(TempStr,"$Array$")
\n      TempStr=""
\n      For Tempi=0 To Ubound(TempArray)
\n         Re.Pattern ="src\\s*=\\s*.+?\\.(gif|jpg|bmp|jpeg|psd|png|svg|dxf|wmf|tiff)"
\n         Set Matches =Re.Execute(TempArray(Tempi))
\n         For Each Match in Matches
\n            If TempStr<>"" then
\n               TempStr=TempStr & "$Array$" & Match.Value
\n            Else
\n               TempStr=Match.Value
\n            End if
\n         Next
\n      Next
\n   End if
\n   If TempStr<>"" Then
\n      Re.Pattern ="src\\s*=\\s*"
\n      TempStr=Re.Replace(TempStr,"")
\n   End If
\n   Set Matches=nothing
\n   Set Re=nothing
\n   If TempStr="" or IsNull(TempStr)=True Then
\n      ReplaceSaveRemoteFile=ConStr
\n      Exit function
\n   End if
\n   TempStr=Replace(TempStr,"""","")
\n   TempStr=Replace(TempStr,"’","")
\n   TempStr=Replace(TempStr," ","")<\/p>\n

   Dim RemoteFileurl,SavePath,PathTemp,DtNow,strFileName,strFileType,ArrSaveFileName,RanNum,Arr_Path
\n   DtNow=Now()
\n   If SaveTf=True then
\n ‘***********************************
\n      SavePath= strChannelDir & "\/" & year(DtNow) & right("0" & month(DtNow),2) & "\/"
\n   response.write "\u94fe\u63a5\u8def\u5f84\uff1a" & savepath & "<br>"
\n      Arr_Path=Split(SavePath,"\/")
\n      PathTemp=""
\n      For Tempi=0 To Ubound(Arr_Path)
\n         If Tempi=0 Then
\n            PathTemp=Arr_Path(0) & "\/"
\n         ElseIf Tempi=Ubound(Arr_Path) Then
\n            Exit For
\n         Else
\n            PathTemp=PathTemp & Arr_Path(Tempi) & "\/"
\n         End If
\n         If CheckDir(PathTemp)=False Then
\n            If MakeNewsDir(PathTemp)=False Then
\n               SaveTf=False
\n               Exit For
\n            End If
\n         End If
\n      Next
\n   End If<\/p>\n

   ‘\u53bb\u6389\u91cd\u590d\u56fe\u7247\u5f00\u59cb
\n   TempArray=Split(TempStr,"$Array$")
\n   TempStr=""
\n   For Tempi=0 To Ubound(TempArray)
\n      If Instr(Lcase(TempStr),Lcase(TempArray(Tempi)))<1 Then
\n         TempStr=TempStr & "$Array$" & TempArray(Tempi)
\n      End If
\n   Next
\n   TempStr=Right(TempStr,Len(TempStr)-7)
\n   TempArray=Split(TempStr,"$Array$")
\n   ‘\u53bb\u6389\u91cd\u590d\u56fe\u7247\u7ed3\u675f<\/p>\n

   ‘\u8f6c\u6362\u76f8\u5bf9\u56fe\u7247\u5730\u5740\u5f00\u59cb
\n   TempStr=""
\n   For Tempi=0 To Ubound(TempArray)
\n      TempStr=TempStr & "$Array$" & DefiniteUrl(TempArray(Tempi),TistUrl)
\n   Next
\n   TempStr=Right(TempStr,Len(TempStr)-7)
\n   TempStr=Replace(TempStr,Chr(0),"")
\n   TempArray2=Split(TempStr,"$Array$")
\n   TempStr=""
\n   ‘\u8f6c\u6362\u76f8\u5bf9\u56fe\u7247\u5730\u5740\u7ed3\u675f<\/p>\n

   ‘\u56fe\u7247\u66ff\u6362\/\u4fdd\u5b58
\n   Set Re = New Regexp
\n   Re.IgnoreCase = True
\n   Re.Global = True<\/p>\n

   For Tempi=0 To Ubound(TempArray2)
\n      RemoteFileUrl=TempArray2(Tempi)
\n      If RemoteFileUrl<>"$False$" And SaveTf=True Then’\u4fdd\u5b58\u56fe\u7247
\n         ArrSaveFileName = Split(RemoteFileurl,".")
\n  strFileType=Lcase(ArrSaveFileName(Ubound(ArrSaveFileName)))’\u6587\u4ef6\u7c7b\u578b
\n         If strFileType="asp" or strFileType="asa" or strFileType="aspx" or strFileType="cer" or strFileType="cdx" or strFileType="exe" or strFileType="rar" or strFileType="zip" then
\n            UploadFiles=""
\n            ReplaceSaveRemoteFile=ConStr
\n            Exit Function
\n         End If<\/p>\n

         Randomize
\n         RanNum=Int(900*Rnd)+100
\n  strFileName = year(DtNow) & right("0" & month(DtNow),2) & right("0" & day(DtNow),2) & right("0" & hour(DtNow),2) & right("0" & minute(DtNow),2) & right("0" & second(DtNow),2) & ranNum & "." & strFileType
\n         Re.Pattern =TempArray(Tempi)
\n  If SaveRemoteFile(SavePath & strFileName,RemoteFileUrl)=True Then
\n‘********************************
\n            PathTemp=SavePath & strFileName
\n            ConStr=Re.Replace(ConStr,PathTemp)
\n            Re.Pattern=strInstallDir & strChannelDir & "\/"
\n            UploadFiles=UploadFiles & "|" & Re.Replace(SavePath &strFileName,"")
\n         Else
\n            PathTemp=RemoteFileUrl
\n            ConStr=Re.Replace(ConStr,PathTemp)
\n            ‘UploadFiles=UploadFiles & "|" & RemoteFileUrl
\n         End If
\n      ElseIf RemoteFileurl<>"$False$" and SaveTf=False Then’\u4e0d\u4fdd\u5b58\u56fe\u7247
\n         Re.Pattern =TempArray(Tempi)
\n         ConStr=Re.Replace(ConStr,RemoteFileUrl)
\n         UploadFiles=UploadFiles & "|" & RemoteFileUrl
\n      End If
\n   Next  
\n   Set Re=nothing
\n   If UploadFiles<>"" Then
\n      UploadFiles=Right(UploadFiles,Len(UploadFiles)-1)
\n   End If
\n   ReplaceSaveRemoteFile=ConStr
\nEnd function<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aReplaceSwfFile
\n‘\u4f5c  \u7528\uff1a\u89e3\u6790\u52a8\u753b\u8def\u5f84
\n‘\u53c2  \u6570\uff1aConStr —— \u8981\u66ff\u6362\u7684\u5b57\u7b26\u4e32
\n‘\u53c2  \u6570: TistUrl—— \u5f53\u524d\u7f51\u9875\u5730\u5740
\n‘==================================================
\nFunction ReplaceSwfFile(ConStr,TistUrl)
\n   If ConStr="$False$" or ConStr="" or TistUrl="" or TistUrl="$False$" Then
\n      ReplaceSwfFile=ConStr
\n      Exit Function
\n   End If
\n   Dim TempStr,TempStr2,TempStr3,Re,Matches,Match,Tempi,TempArray,TempArray2<\/p>\n

   Set Re = New Regexp
\n   Re.IgnoreCase = True
\n   Re.Global = True
\n   Re.Pattern ="<object.+?[^\\>]>"
\n   Set Matches =Re.Execute(ConStr)
\n   For Each Match in Matches
\n      If TempStr<>"" then
\n         TempStr=TempStr & "$Array$" & Match.Value
\n      Else
\n         TempStr=Match.Value
\n      End if
\n   Next
\n   If TempStr<>"" Then
\n      TempArray=Split(TempStr,"$Array$")
\n      TempStr=""
\n      For Tempi=0 To Ubound(TempArray)
\n         Re.Pattern ="value\\s*=\\s*.+?\\.swf"
\n         Set Matches =Re.Execute(TempArray(Tempi))
\n         For Each Match in Matches
\n            If TempStr<>"" then
\n               TempStr=TempStr & "$Array$" & Match.Value
\n            Else
\n               TempStr=Match.Value
\n            End if
\n         Next
\n      Next
\n   End if
\n   If TempStr<>"" Then
\n      Re.Pattern ="value\\s*=\\s*"
\n      TempStr=Re.Replace(TempStr,"")
\n   End If
\n   If TempStr="" or IsNull(TempStr)=True Then
\n      ReplaceSwfFile=ConStr
\n      Exit function
\n   End if
\n   TempStr=Replace(TempStr,"""","")
\n   TempStr=Replace(TempStr,"’","")
\n   TempStr=Replace(TempStr," ","")<\/p>\n

   Set Matches=nothing
\n   Set Re=nothing<\/p>\n

   ‘\u53bb\u6389\u91cd\u590d\u6587\u4ef6\u5f00\u59cb
\n   TempArray=Split(TempStr,"$Array$")
\n   TempStr=""
\n   For Tempi=0 To Ubound(TempArray)
\n      If Instr(Lcase(TempStr),Lcase(TempArray(Tempi)))<1 Then
\n         TempStr=TempStr & "$Array$" & TempArray(Tempi)
\n      End If
\n   Next
\n   TempStr=Right(TempStr,Len(TempStr)-7)
\n   TempArray=Split(TempStr,"$Array$")
\n   ‘\u53bb\u6389\u91cd\u590d\u6587\u4ef6\u7ed3\u675f<\/p>\n

   ‘\u8f6c\u6362\u76f8\u5bf9\u5730\u5740\u5f00\u59cb
\n   TempStr=""
\n   For Tempi=0 To Ubound(TempArray)
\n      TempStr=TempStr & "$Array$" & DefiniteUrl(TempArray(Tempi),TistUrl)
\n   Next
\n   TempStr=Right(TempStr,Len(TempStr)-7)
\n   TempStr=Replace(TempStr,Chr(0),"")
\n   TempArray2=Split(TempStr,"$Array$")
\n   TempStr=""
\n   ‘\u8f6c\u6362\u76f8\u5bf9\u5730\u5740\u7ed3\u675f<\/p>\n

   ‘\u66ff\u6362
\n   Set Re = New Regexp
\n   Re.IgnoreCase = True
\n   Re.Global = True
\n   For Tempi=0 To Ubound(TempArray2)
\n      RemoteFileUrl=TempArray2(Tempi)
\n      Re.Pattern =TempArray(Tempi)
\n      ConStr=Re.Replace(ConStr,RemoteFileUrl)
\n   Next  
\n   Set Re=nothing
\n   ReplaceSwfFile=ConStr
\nEnd function<\/p>\n

‘==================================================
\n‘\u8fc7\u7a0b\u540d\uff1aSaveRemoteFile
\n‘\u4f5c  \u7528\uff1a\u4fdd\u5b58\u8fdc\u7a0b\u7684\u6587\u4ef6\u5230\u672c\u5730
\n‘\u53c2  \u6570\uff1aLocalFileName —— \u672c\u5730\u6587\u4ef6\u540d
\n‘\u53c2  \u6570\uff1aRemoteFileUrl —— \u8fdc\u7a0b\u6587\u4ef6URL
\n‘==================================================
\nFunction SaveRemoteFile(LocalFileName,RemoteFileUrl)
\n    SaveRemoteFile=True
\n dim Ads,Retrieval,GetRemoteData
\n Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
\n With Retrieval
\n  .Open "Get", RemoteFileUrl, False, "", ""
\n  .Send
\n        If .Readystate<>4 then
\n            SaveRemoteFile=False
\n            Exit Function
\n        End If
\n  GetRemoteData = .ResponseBody
\n End With
\n Set Retrieval = Nothing
\n Set Ads = Server.CreateObject("Adodb.Stream")
\n With Ads
\n  .Type = 1
\n  .Open
\n  .Write GetRemoteData
\n  .SaveToFile server.MapPath(LocalFileName),2
\n  .Cancel()
\n  .Close()
\n End With
\n Set Ads=nothing
\nend Function<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aFpHtmlEnCode
\n‘\u4f5c  \u7528\uff1a\u6807\u9898\u8fc7\u6ee4
\n‘\u53c2  \u6570\uff1afString ——\u5b57\u7b26\u4e32
\n‘==================================================
\nFunction FpHtmlEnCode(fString)
\n   If IsNull(fString)=False or fString<>"" or fString<>"$False$" Then
\n       fString=nohtml(fString)
\n       fString=FilterJS(fString)
\n       fString = Replace(fString,"&nbsp;"," ")
\n       fString = Replace(fString,"&quot;","")
\n       fString = Replace(fString,"&#39;","")
\n       fString = replace(fString, ">", "")
\n       fString = replace(fString, "<", "")
\n       fString = Replace(fString, CHR(9), " ")’&nbsp;
\n       fString = Replace(fString, CHR(10), "")
\n       fString = Replace(fString, CHR(13), "")
\n       fString = Replace(fString, CHR(34), "")
\n       fString = Replace(fString, CHR(32), " ")’space
\n       fString = Replace(fString, CHR(39), "")
\n       fString = Replace(fString, CHR(10) & CHR(10),"")
\n       fString = Replace(fString, CHR(10)&CHR(13), "")
\n       fString=Trim(fString)
\n       FpHtmlEnCode=fString
\n   Else
\n       FpHtmlEnCode="$False$"
\n   End If
\nEnd Function<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aGetPaing
\n‘\u4f5c  \u7528\uff1a\u83b7\u53d6\u5206\u9875
\n‘==================================================
\nFunction GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR)
\nIf ConStr="$False$" or ConStr="" Or StartStr="" Or OverStr="" or IsNull(ConStr)=True or IsNull(StartStr)=True Or IsNull(OverStr)=True Then
\n   GetPaing="$False$"
\n   Exit Function
\nEnd If<\/p>\n

Dim Start,Over,ConTemp,TempStr
\nTempStr=LCase(ConStr)
\nStartStr=LCase(StartStr)
\nOverStr=LCase(OverStr)
\nOver=Instr(1,TempStr,OverStr)
\nIf Over<=0 Then
\n   GetPaing="$False$"
\n   Exit Function
\nElse
\n   If IncluR=True Then
\n      Over=Over+Len(OverStr)
\n   End If
\nEnd If
\nTempStr=Mid(TempStr,1,Over)
\nStart=InstrRev(TempStr,StartStr)
\nIf IncluL=False Then
\n   Start=Start+Len(StartStr)
\nEnd If<\/p>\n

If Start<=0 Or Start>=Over Then
\n   GetPaing="$False$"
\n   Exit Function
\nEnd If
\nConTemp=Mid(ConStr,Start,Over-Start)<\/p>\n

ConTemp=Trim(ConTemp)
\nConTemp=Replace(ConTemp," ","")
\nConTemp=Replace(ConTemp,",","")
\nConTemp=Replace(ConTemp,"’","")
\nConTemp=Replace(ConTemp,"""","")
\nConTemp=Replace(ConTemp,">","")
\nConTemp=Replace(ConTemp,"<","")
\nConTemp=Replace(ConTemp,"&nbsp;","")
\nGetPaing=ConTemp
\nEnd Function<\/p>\n

‘==================================================
\n‘\u51fd\u6570\u540d\uff1aScriptHtml
\n‘\u4f5c  \u7528\uff1a\u8fc7\u6ee4html\u6807\u8bb0
\n‘\u53c2  \u6570\uff1aConStr —— \u8981\u8fc7\u6ee4\u7684\u5b57\u7b26\u4e32
\n‘==================================================
\nFunction ScriptHtml(Byval ConStr,TagName,FType)
\n    Dim Re
\n    Set Re=new RegExp
\n    Re.IgnoreCase =true
\n    Re.Global=True
\n    Select Case FType
\n    Case 1
\n       Re.Pattern="<" & TagName & "([^>])*>"
\n       ConStr=Re.Replace(ConStr,"")
\n    Case 2
\n       Re.Pattern="<" & TagName & "([^>])*>.*?<\/" & TagName & "([^>])*>"
\n       ConStr=Re.Replace(ConStr,"")
\n    Case 3
\n       Re.Pattern="<" & TagName & "([^>])*>"
\n       ConStr=Re.Replace(ConStr,"")
\n       Re.Pattern="<\/" & TagName & "([^>])*>"
\n       ConStr=Re.Replace(ConStr,"")
\n    End Select
\n    ScriptHtml=ConStr
\n    Set Re=Nothing
\nEnd Function<\/p>\n

Function CheckDir(byval FolderPath)
\n dim fso
\n Set fso = Server.CreateObject("Scripting.FileSystemObject")
\n If fso.FolderExists(Server.MapPath(folderpath)) then
\n ‘\u5b58\u5728
\n  CheckDir = True
\n Else
\n ‘\u4e0d\u5b58\u5728
\n  CheckDir = False
\n End if
\n Set fso = nothing
\nEnd Function
\nFunction MakeNewsDir(byval foldername)
\n dim fso
\n Set fso = Server.CreateObject("Scripting.FileSystemObject")
\n        fso.CreateFolder(Server.MapPath(foldername))
\n        If fso.FolderExists(Server.MapPath(foldername)) Then
\n           MakeNewsDir = True
\n        Else
\n           MakeNewsDir = False
\n        End If
\n Set fso = nothing
\nEnd Function<\/p>\n

‘**************************************************
\n‘\u51fd\u6570\u540d\uff1aIsObjInstalled
\n‘\u4f5c  \u7528\uff1a\u68c0\u67e5\u7ec4\u4ef6\u662f\u5426\u5df2\u7ecf\u5b89\u88c5
\n‘\u53c2  \u6570\uff1astrClassString —-\u7ec4\u4ef6\u540d
\n‘\u8fd4\u56de\u503c\uff1aTrue  —-\u5df2\u7ecf\u5b89\u88c5
\n‘       False —-\u6ca1\u6709\u5b89\u88c5
\n‘**************************************************
\nFunction IsObjInstalled(strClassString)
\n IsObjInstalled = False
\n Err = 0
\n Dim xTestObj
\n Set xTestObj = Server.CreateObject(strClassString)
\n If 0 = Err Then IsObjInstalled = True
\n Set xTestObj = Nothing
\n Err = 0
\nEnd Function<\/p>\n

‘**************************************************
\n‘\u8fc7\u7a0b\u540d\uff1aWriteErrMsg
\n‘\u4f5c  \u7528\uff1a\u663e\u793a\u9519\u8bef\u63d0\u793a\u4fe1\u606f
\n‘\u53c2  \u6570\uff1a\u65e0
\n‘**************************************************
\nsub WriteErrMsg(ErrMsg)
\n dim strErr
\n strErr=strErr & "<html><head><title>\u9519\u8bef\u4fe1\u606f<\/title><meta http-equiv=’Content-Type’ content=’text\/html; charset=gb2312′>" & vbcrlf
\n strErr=strErr & "<link href=’..\/admin\/Admin_STYLE.CSS’ rel=’stylesheet’ type=’text\/css’><\/head><body><br><br>" & vbcrlf
\n strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class=’border’ align=center>" & vbcrlf
\n strErr=strErr & "  <tr align=’center’ class=’title’><td height=’22’><strong>\u9519\u8bef\u4fe1\u606f<\/strong><\/td><\/tr>" & vbcrlf
\n strErr=strErr & "  <tr class=’tdbg’><td height=’100′ valign=’top’><b>\u4ea7\u751f\u9519\u8bef\u7684\u53ef\u80fd\u539f\u56e0\uff1a<\/b>" & ErrMsg &"<\/td><\/tr>" & vbcrlf
\n strErr=strErr & "  <tr align=’center’ class=’tdbg’><td><a href=’javascript:history.go(-1)’>&lt;&lt; \u8fd4\u56de\u4e0a\u4e00\u9875<\/a><\/td><\/tr>" & vbcrlf
\n strErr=strErr & "<\/table>" & vbcrlf
\n strErr=strErr & "<\/body><\/html>" & vbcrlf
\n response.write strErr
\nend sub<\/p>\n

‘**************************************************
\n‘\u8fc7\u7a0b\u540d\uff1aWriteSucced
\n‘\u4f5c  \u7528\uff1a\u663e\u793a\u6210\u529f\u63d0\u793a\u4fe1\u606f
\n‘\u53c2  \u6570\uff1a\u65e0
\n‘**************************************************
\nsub WriteSucced(ErrMsg)
\n dim strErr
\n strErr=strErr & "<html><head><title>\u6210\u529f\u4fe1\u606f<\/title><meta http-equiv=’Content-Type’ content=’text\/html; charset=gb2312′>" & vbcrlf
\n strErr=strErr & "<link href=’..\/admin\/Admin_STYLE.CSS’ rel=’stylesheet’ type=’text\/css’><\/head><body><br><br>" & vbcrlf
\n strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class=’border’ align=center>" & vbcrlf
\n strErr=strErr & "  <tr align=’center’ class=’title’><td height=’22’><strong>\u606d\u559c\u4f60\uff01<\/strong><\/td><\/tr>" & vbcrlf
\n strErr=strErr & "  <tr class=’tdbg’><td height=’100′ valign=’top’ align=’center’>" & ErrMsg &"<\/td><\/tr>" & vbcrlf
\n ‘strErr=strErr & "  <tr align=’center’ class=’tdbg’><td><a href=’javascript:history.go(-1)’>&lt;&lt; \u8fd4\u56de\u4e0a\u4e00\u9875<\/a><\/td><\/tr>" & vbcrlf
\n strErr=strErr & "<\/table>" & vbcrlf
\n strErr=strErr & "<\/body><\/html>" & vbcrlf
\n response.write strErr
\nend sub<\/p>\n

‘**************************************************
\n‘\u51fd\u6570\u540d\uff1aShowPage
\n‘\u4f5c  \u7528\uff1a\u663e\u793a“\u4e0a\u4e00\u9875 \u4e0b\u4e00\u9875”\u7b49\u4fe1\u606f
\n‘\u53c2  \u6570\uff1asFileName  —-\u94fe\u63a5\u5730\u5740
\n‘       TotalNumber —-\u603b\u6570\u91cf
\n‘       MaxPerPage  —-\u6bcf\u9875\u6570\u91cf
\n‘       ShowTotal   —-\u662f\u5426\u663e\u793a\u603b\u6570\u91cf
\n‘       ShowAllPages —\u662f\u5426\u7528\u4e0b\u62c9\u5217\u8868\u663e\u793a\u6240\u6709\u9875\u9762\u4ee5\u4f9b\u8df3\u8f6c\u3002\u6709\u67d0\u4e9b\u9875\u9762\u4e0d\u80fd\u4f7f\u7528\uff0c\u5426\u5219\u4f1a\u51fa\u73b0JS\u9519\u8bef\u3002
\n‘       strUnit     —-\u8ba1\u6570\u5355\u4f4d
\n‘\u8fd4\u56de\u503c\uff1a“\u4e0a\u4e00\u9875 \u4e0b\u4e00\u9875”\u7b49\u4fe1\u606f\u7684HTML\u4ee3\u7801
\n‘**************************************************
\nfunction ShowPage(sFileName,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit)
\n dim TotalPage,strTemp,strUrl,i<\/p>\n

 if TotalNumber=0 or MaxPerPage=0 or isNull(MaxPerPage) then
\n  ShowPage=""
\n  exit function
\n end if
\n if totalnumber mod maxperpage=0 then
\n     TotalPage= totalnumber \\ maxperpage<\/p>\n

   else
\n     TotalPage= totalnumber \\ maxperpage+1
\n   end if
\n if CurrentPage>TotalPage then CurrentPage=TotalPage
\n  
\n   strTemp= "<table align=’center’><tr><td>"
\n if ShowTotal=true then
\n  strTemp=strTemp & "\u5171 <b>" & totalnumber & "<\/b> " & strUnit & "&nbsp;&nbsp;"
\n end if
\n strUrl=JoinChar(sfilename)
\n   if CurrentPage<2 then
\n     strTemp=strTemp & "\u9996\u9875 \u4e0a\u4e00\u9875&nbsp;"
\n   else
\n     strTemp=strTemp & "<a href=’" & strUrl & "page=1′>\u9996\u9875<\/a>&nbsp;"
\n     strTemp=strTemp & "<a href=’" & strUrl & "page=" & (CurrentPage-1) & "’>\u4e0a\u4e00\u9875<\/a>&nbsp;"
\n   end if<\/p>\n

   if CurrentPage>=TotalPage then
\n     strTemp=strTemp & "\u4e0b\u4e00\u9875 \u5c3e\u9875"
\n   else
\n     strTemp=strTemp & "<a href=’" & strUrl & "page=" & (CurrentPage+1) & "’>\u4e0b\u4e00\u9875<\/a>&nbsp;"
\n     strTemp=strTemp & "<a href=’" & strUrl & "page=" & TotalPage & "’>\u5c3e\u9875<\/a>"
\n   end if
\n    strTemp=strTemp & "&nbsp;\u9875\u6b21\uff1a<strong><font color=red>" & CurrentPage & "<\/font>\/" & TotalPage & "<\/strong>\u9875 "
\n        strTemp=strTemp & "&nbsp;<b>" & maxperpage & "<\/b>" & strUnit & "\/\u9875"
\n if ShowAllPages=True then
\n  strTemp=strTemp & "&nbsp;&nbsp;\u8f6c\u5230\u7b2c<input type=’text’ name=’page’ size=’3′ maxlength=’5′ value=’" & CurrentPage & "’ onKeyPress=""if (event.keyCode==13) window.location=’" & strUrl & "page=" & "’+this.value;""’>\u9875"
\n end if
\n strTemp=strTemp & "<\/td><\/tr><\/table>"
\n ShowPage=strTemp
\nend function<\/p>\n

‘**************************************************
\n‘\u51fd\u6570\u540d\uff1aJoinChar
\n‘\u4f5c  \u7528\uff1a\u5411\u5730\u5740\u4e2d\u52a0\u5165 ? \u6216 &
\n‘\u53c2  \u6570\uff1astrUrl  —-\u7f51\u5740
\n‘\u8fd4\u56de\u503c\uff1a\u52a0\u4e86 ? \u6216 & \u7684\u7f51\u5740
\n‘**************************************************
\nfunction JoinChar(strUrl)
\n if strUrl="" then
\n  JoinChar=""
\n  exit function
\n end if
\n if InStr(strUrl,"?")<len(strUrl) then
\n  if InStr(strUrl,"?")>1 then
\n   if InStr(strUrl,"&")<len(strUrl) then
\n    JoinChar=strUrl & "&"
\n   else
\n    JoinChar=strUrl
\n   end if
\n  else
\n   JoinChar=strUrl & "?"
\n  end if
\n else
\n  JoinChar=strUrl
\n end if
\nend function<\/p>\n

‘**************************************************
\n‘\u51fd\u6570\u540d\uff1aCreateKeyWord
\n‘\u4f5c  \u7528\uff1a\u7531\u7ed9\u5b9a\u7684\u5b57\u7b26\u4e32\u751f\u6210\u5173\u952e\u5b57
\n‘\u53c2  \u6570\uff1aConstr—\u8981\u751f\u6210\u5173\u952e\u5b57\u7684\u539f\u5b57\u7b26\u4e32
\n‘\u8fd4\u56de\u503c\uff1a\u751f\u6210\u7684\u5173\u952e\u5b57
\n‘**************************************************
\nFunction CreateKeyWord(byval Constr,Num)
\n   If Constr="" or IsNull(Constr)=True or Constr="$False$" Then
\n      CreateKeyWord="$False$"
\n      Exit Function
\n   End If
\n   If Num="" or IsNumeric(Num)=False Then
\n      Num=2
\n   End If
\n   Constr=Replace(Constr,CHR(32),"")
\n   Constr=Replace(Constr,CHR(9),"")
\n   Constr=Replace(Constr,"&nbsp;","")
\n   Constr=Replace(Constr," ","")
\n   Constr=Replace(Constr,"(","")
\n   Constr=Replace(Constr,")","")
\n   Constr=Replace(Constr,"<","")
\n   Constr=Replace(Constr,">","")
\n   Constr=Replace(Constr,"""","")
\n   Constr=Replace(Constr,"?","")
\n   Constr=Replace(Constr,"*","")
\n   Constr=Replace(Constr,"|","")
\n   Constr=Replace(Constr,",","")
\n   Constr=Replace(Constr,".","")
\n   Constr=Replace(Constr,"\/","")
\n   Constr=Replace(Constr,"\\","")
\n   Constr=Replace(Constr,"-","")
\n   Constr=Replace(Constr,"@","")
\n   Constr=Replace(Constr,"#","")
\n   Constr=Replace(Constr,"$","")
\n   Constr=Replace(Constr,"%","")
\n   Constr=Replace(Constr,"&","")
\n   Constr=Replace(Constr,"+","")
\n   Constr=Replace(Constr,":","")
\n   Constr=Replace(Constr,"\uff1a","")  
\n   Constr=Replace(Constr,"‘","")
\n   Constr=Replace(Constr,"“","")
\n   Constr=Replace(Constr,"”","")        
\n   Dim i,ConstrTemp
\n   For i=1 To Len(Constr)
\n      ConstrTemp=ConstrTemp & "|" & Mid(Constr,i,Num)
\n   Next
\n   If Len(ConstrTemp)<254 Then
\n      ConstrTemp=ConstrTemp & "|"
\n   Else
\n      ConstrTemp=Left(ConstrTemp,254) & "|"
\n   End If
\n   CreateKeyWord=ConstrTemp
\nEnd Function<\/p>\n

Function CheckUrl(strUrl)
\n   Dim Re
\n   Set Re=new RegExp
\n   Re.IgnoreCase =true
\n   Re.Global=True
\n   Re.Pattern="http:\/\/([\\w-]+\\.)+[\\w-]+(\/[\\w-.\/?%<\/font><\/a>&=]*)?"
\n   If Re.test(strUrl)=True Then
\n      CheckUrl=strUrl
\n   Else
\n      CheckUrl="$False$"
\n   End If
\n   Set Rs=Nothing
\nEnd Function
\nfunction GetPyChar(Char)
\n tmp=65536+asc(Char)
\n if(tmp>=45217 and tmp<=45252) or (tmp=65601) or (tmp=65633) or (tmp=37083) then
\n  GetPyChar= "A"
\n elseif(tmp>=45253 and tmp<=45760) or (tmp=65602) or (tmp=65634) or (tmp=39658) then
\n  GetPyChar= "B"
\n elseif(tmp>=45761 and tmp<=46317) or (tmp=65603) or (tmp=65635) or (tmp=33405) then
\n  GetPyChar= "C"
\n elseif(tmp>=46318 and tmp<=46930) or (tmp>=61884 and tmp<=61884) or (tmp=65604) or (tmp>=36820 and tmp<=38524) or (tmp=65636) then
\n  GetPyChar= "D"
\n elseif(tmp>=46931 and tmp<=47009) or (tmp=65605) or (tmp=65637) or (tmp=61513) then
\n  GetPyChar= "E"
\n elseif(tmp>=47010 and tmp<=47296) or (tmp=65606) or (tmp=65638) or (tmp=61320) or (tmp=63568) or (tmp=36281) then
\n  GetPyChar= "F"
\n elseif(tmp>=47297 and tmp<=47613) or (tmp=65607) or (tmp=65639) or (tmp=35949) or (tmp=36089) or (tmp=36694) or (tmp=34808) then
\n  GetPyChar= "G"
\n elseif(tmp>=47614 and tmp<=48118) or (tmp>=59112 and tmp<=59112) or (tmp=65608) or (tmp=65640) then
\n  GetPyChar= "H"
\n elseif(tmp=65641) or (tmp=65609) or (tmp=65641) then
\n  GetPyChar="I"
\n elseif(tmp>=48119 and tmp<=49061 and tmp<>48739) or (tmp>=62430 and tmp<=62430) or (tmp=65610) or (tmp=65642) or (tmp=39048) then
\n  GetPyChar= "J"
\n elseif(tmp>=49062 and tmp<=49323) or (tmp=65611) or (tmp=65643) then
\n  GetPyChar= "K"
\n elseif(tmp>=49324 and tmp<=49895) or (tmp>=58838 and tmp<=58838) or (tmp=65612) or (tmp=65644) or (tmp=62418) or (tmp=48739) then
\n  GetPyChar= "L"
\n elseif(tmp>=49896 and tmp<=50370) or (tmp=65613) or (tmp=65645) then
\n  GetPyChar= "M"
\n elseif(tmp>=50371 and tmp<=50613) or (tmp=65614) or (tmp=65646) then
\n  GetPyChar= "N"
\n elseif(tmp>=50614 and tmp<=50621) or (tmp=65615) or (tmp=65647) then
\n  GetPyChar= "O"
\n elseif(tmp>=50622 and tmp<=50905) or (tmp=65616) or (tmp=65648) then
\n  GetPyChar= "P"
\n elseif(tmp>=50906 and tmp<=51386) or (tmp>=62659 and tmp<=63172) or (tmp=65617) or (tmp=65649) then
\n  GetPyChar= "Q"
\n elseif(tmp>=51387 and tmp<=51445) or (tmp=65618) or (tmp=65650) then
\n  GetPyChar= "R"
\n elseif(tmp>=51446 and tmp<=52217) or (tmp=65619) or (tmp=65651) or (tmp=34009) then
\n  GetPyChar= "S"
\n elseif(tmp>=52218 and tmp<=52697) or (tmp=65620) or (tmp=65652) then
\n  GetPyChar= "T"
\n elseif(tmp=65621) or (tmp=65653) then
\n  GetPyChar="U"
\n elseif(tmp=65622) or (tmp=65654) then
\n  GetPyChar="V"
\n elseif(tmp>=52698 and tmp<=52979) or (tmp=65623) or (tmp=65655) then
\n  GetPyChar= "W"
\n elseif(tmp>=52980 and tmp<=53688) or (tmp=65624) or (tmp=65656) then
\n  GetPyChar= "X"
\n elseif(tmp>=53689 and tmp<=54480) or (tmp=65625) or (tmp=65657) then
\n  GetPyChar= "Y"
\n elseif(tmp>=54481 and tmp<=62383 and tmp<>59112 and tmp<>58838) or (tmp=65626) or (tmp=65658) or (tmp=38395) or (tmp=39783) then
\n  GetPyChar= "Z"
\n elseif(tmp=65584) then
\n  GetPyChar="0-9"
\n elseif(tmp=65585) then
\n  GetPyChar="0-9"
\n elseif(tmp=65586) then
\n  GetPyChar="0-9"
\n elseif(tmp=65587) then
\n  GetPyChar="0-9"
\n elseif(tmp=65588) then
\n  GetPyChar="0-9"
\n elseif(tmp=65589) then
\n  GetPyChar="0-9"
\n elseif(tmp=65590) then
\n  GetPyChar="0-9"
\n elseif(tmp=65591) then
\n  GetPyChar="0-9"
\n elseif(tmp=65592) then
\n  GetPyChar="0-9"
\n elseif(tmp=65593) then
\n  GetPyChar="0-9"
\n else
\n  GetPyChar="0-9"
\n end if
\nend function
\nfunction strLeft(str,num)
\ndim p_str,p_num
\n    p_str = ""
\n    p_num = 0   
\n           
\nif trim(str) <> "" then
\n    p_len = len(str)
\n    for ir = 1 to p_len
\n        if asc(mid(str,ir,1)) > 255 or asc(mid(str,ir,1)) < 0 then
\n            p_num = p_num + 2
\n        else
\n            p_num = p_num + 1
\n        end if
\n       
\n        if p_num > num then
\n            p_str = Left(str,ir-1)
\n            exit for
\n        else
\n            p_str = str
\n        end if
\n    next
\nend if<\/p>\n

strLeft=p_str
\nend function
\n%><\/p>\n

 <\/p>\n

 <\/p>\n

\u8c03\u7528\u65b9\u6cd5:<\/p>\n

SourceCode=getHttpPage(Url)<\/p>\n

SourceCode_1=getbody(SourceCode,"<span class=""gray s"">(",")<\/span>&nbsp;",false,false)<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

<% ‘**************************’ ‘\u4f5c\u7528\uff1a\u8fc7\u6ee4\u5b57\u7b26\u4e32\u4e2d\u8fde\u7eed\u7a7a\u683c’ Set regEx = New RegExp regEx.Pattern = "…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-582","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/582","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=582"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/582\/revisions"}],"predecessor-version":[{"id":66428,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/582\/revisions\/66428"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=582"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=582"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=582"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=582"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}