'呼叫xmlhttp元件建立乙個物件並進行出設定
'通過get方法向伺服器 傳送命令
'判斷程式執行成功
'對伺服器返回的資料進行處理
'釋放物件,節約資源
''''''''''處理抓取回來的資料需要呼叫adodb.stream元件並驚醒初始化設定,有下面一段**來完成
function bytestostr(body,cset)
dim objstream
set objstream=server.createobject("adodb.stream")
objstream.type=1
objstreammode=3
objstream.open
objstream.write body
objstream.position=0
objstream.type=2
objstream.charset=cset
bytestostr=objstream.readtext
objstream.close
set objstream=nothing
end function
''--------------------------
function newstring(wstr,strng)
newstring=instr(wstr,stng)
end functiion
''''定義
一、寫需要使用到的變數
dim url, html,start,over,b,str,str1,i,j,str2,usename
'指定抓取資料的位址
'呼叫gethttppage 函式,將函式返回值給 strret,strret儲存我們抓取回來的源**
'呼叫newstring 對字串進行處理
start=newstring(strret,"電視")
over=newstring(strret,"備註")
'''呼叫mid擷取字串並複製給strret
strret=replace(strret,"new array")
'呼叫split函式處理字串strret以叔祖的形式村入strret
for i=2 to ubound(strret)
'提取一行,把以分割的資料村如叔祖str
str=split(strret(i),",")
'獲得叔祖最大的下標
j=ubound(str)
for k=0 to j
if k=0 then
str(k)=replace(str(k),"(","")
end if
if k=j-1 then
str(k)=replace(str(k),")","")
end if
str(k)=replace(str(k),'','')
''''字串處理結束存入資料庫
'初始化 recordset 物件
set rs=server.createobject("adodb.recordset")
'初始化sql語句
sql="select * from data where (id is null)"
rs.open sql,conn,1,3
'開始新增資料
rs.addnew
'判斷資料型別 j=2 的時候是聯賽的比賽節目
if j=2 then
rs("type")=str(0)
rs("str1")=str(1)
rs("str2")=str(2)
rs("datetoday")=date()
end if
'j>2 and j<8 說明資料為聯賽名稱
if j>2 and j<8 then
rs("type")=str(0)
rs("str1")=str(1)
rs("str2")=str(2)
rs("datetoday")=date()
end if
if j>8 then
rs("type")=str(0)
rs("str1")=str(1)
rs("str2")=str(2)
rs("num1")=str(3)
rs("name1")=str(4)
rs("num2")=str(5)
rs("score1")=str(6)
rs("num3")=str(8)
rs("name2")=str(9)
rs("score2")=str(10)
rs('datetoday")=date()
rs("flag_updown1")=0
rs("flag_show1")=0
rs("flag_updown2")=0
rs("flag_show2")=0
end if
rs.update
'關閉記錄
rs.close
'顯示資料是否新增資料庫,如果執行正確,則給出提示
m=i-1
response.write m
response.write("ok!
")next
conn.close
set conn=nothing
%>
PHP 抓取函式
1 php抓取可以採集別人 的資料，前提不違法 2 用過curl，獲取介面的資料 3 php寫的介面,第三方介面 如 天氣介面 或者其他語言寫的。4 我們php想使用這些介面怎麼辦呢？那就需要curl方法，就算你獲取別人的介面 請求別人的網路 就需要用curl這個請求。curl是非常常用的，而且用處...
asp複製檔案函式,asp移動檔案函式
複製檔案 function copyfiles tempsource,tempend dim fso set fso server.createobject scripting.filesystemobject if fso.fileexists tempend then response.writ...
ASP基本函式
now 2.取得來訪用的ip request.servervariables remote host 3.獲得系統,瀏覽器版本 4.去除ie混動條 5.進入 跳出廣告 6.隨機數 randomize int rnd n 1 n為可改變量 7.向上混動 hhhhhhhhhhhhhhhhhhh 8.自動...