NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function function getFileName(byval filename) if
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 END IF Next ByteToStr = strReturn End FunctionFunction GetHttpPageContent(url,Method,SendStr) Dim Retrieval SET Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open Method, url, ...
5、Code = AscB(MidB(vIn,i,1)If ThisCharCode &H80 ThenstrReturn = strReturn & Chr(ThisCharCode)ElseNextCharCode = AscB(MidB(vIn,i+1,1)strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode) i = i + 1End IfNextbytes2BSTR = strReturnEnd Functionfunction getFile...
strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function Function GetURL(url) '字符方式的xmlhttp Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "post", url, False, "", ""...
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function Function NewString(wstr,strng) NewString=Instr(wstr,strng) End Function %> 备注:这里有一个问题,就是我在采集文章的时候,最多只能够同时采集3篇文章,...
' 该句建立SQL Server的IP地址库的连接,可使用默认连接,但要保证存在wry.mdb IpSearch.ConnectionString = "DRIVER={SQL Server};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip" ' 设置要查询的IP,可用默认值,这里设置的是 127.0.0.1 IpSearch.IpAddress = &H7F & "." & &H00 & "." & &H00 & "."...
FILE_ATTR_TEMPORARY = &H100 FILE_ATTR_COMPRESSED = &H800 用法: Response.Write File.Attributes File.Attributes = File.Attributes + FILE_ATTR_READONLY --- Binary As Variant (Read-Only) 返回文件的binary image 。It is a Variant-packed safe array...
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))i = i + 1 End If Next bytes2BSTR = strReturn End Function thisurl2=Split(thisurl,",")For Each ii In thisurl2 thistext=bytes2BSTR(objxmlhttp(ii))if InStr(thistext,"")<>0 then Response.Write(...
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function function runThread() dim Http set Http=Server.createobject("Msxml2.XMLHTTP") Http.open "GET","http://127.0.0.1/thread.asp?action=b",false ...
(vIn,i+1,1)) strReturn = strReturn Chr(CLng(ThisCharCode) * H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function function getFileName(byval filename) if instr(filename,/) >0 then fileExt_a=split(filename,/) getFileName=lcase(fileExt_a(ubound(...