国产午夜精品一区二区三区不-国产午夜精品一区二区三区不卡-国产午夜精品一区二区三区极品-国产午夜精品一区二区三区老-国产午夜精品一区二区三区漫-国产午夜精品一区二区三区嫩草

聊城網(wǎng)站制作公司,聊城網(wǎng)站建設(shè),聊城網(wǎng)站優(yōu)化,聊城網(wǎng)絡(luò)公司,聊城網(wǎng)站推廣,聊城網(wǎng)站運(yùn)營(yíng),聊城網(wǎng)絡(luò)運(yùn)營(yíng),聊城搜索引擎優(yōu)化,聊城網(wǎng)頁(yè)設(shè)計(jì),聊城網(wǎng)站制作
 
 
公司擁有五年的網(wǎng)站建設(shè)經(jīng)驗(yàn),專業(yè)網(wǎng)站制作,推廣及網(wǎng)站優(yōu)化,有大量?jī)?yōu)秀客戶案例
網(wǎng)站建設(shè) | 設(shè)為首頁(yè) | 加入收藏 | 聯(lián)系我們  
公告:熱烈慶祝聊城精英網(wǎng)絡(luò)2010版官方網(wǎng)站改版成功!
當(dāng)前位置 :首頁(yè) > 網(wǎng)頁(yè)知識(shí)  

小偷程序2

http://m.zjgjyh.cn   2010-12-23   人氣:

復(fù)制代碼 代碼如下:

<%
DJ54_path = "data/data.mdb" '數(shù)據(jù)庫(kù)地址
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DJ54_path)
conn.Open connstr
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage="$False$"
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
function mymid(byval A_strString,byval A_strPattern)
dim MM_objRegexp
dim MM_strExecute
set MM_objRegexp=new regexp
with MM_objRegexp
.Pattern=A_strPattern
.IgnoreCase=True
.Global=false
set MM_strExecute=.Execute(A_strString)
if MM_strExecute.count<>0 then
mymid=MM_strExecute(0).SubMatches(0)
end if
end with
mymid=trim(mymid)
set MM_objRegexp=nothing
end function
Function RegListGet(str,patrn,mysky)
set tempReg=new RegExp
tempReg.IgnoreCase=false
tempReg.Global=true
tempReg.Pattern=patrn
set matches=tempReg.execute(str)
for each match in matches
content=content&match.value&mysky
next
RegListGet=content
set matches=nothing
set tempReg=nothing
end Function
DJ54_SF = GetHttpPage("http://www.haosf.com/")
DJ54_SF = replace(DJ54_SF,vbcrlf,"")
DJ54_SF = replace(DJ54_SF,chr(10),"")
DJ54_SF = trim(mymid(DJ54_SF,"zjkf.asp"&chr(34)&"></script>(.+?)<script language=javascript src="&chr(34)&"txtj2.asp"&chr(34)&">"))
DJ54_SF = RegListGet(DJ54_SF,"<script>o(.+?)</script>","BT54")
DJ54_SF = replace(DJ54_SF,"\","")
DJ54_BT54_SF = split(DJ54_SF,"BT54")
response.write "采集成功 共采集當(dāng)日"&Ubound(DJ54_BT54_SF)-1 &"個(gè)SF<br/>"
set rs = server.createobject("adodb.recordset")
sql = "select * from sfdata"
rs.open sql,conn,1,3
for i =1 to Ubound(DJ54_BT54_SF)-1
SF = mid(DJ54_BT54_SF(i),instr(DJ54_BT54_SF(i),""&chr(34)&"")+1,len(DJ54_BT54_SF(i))-48)
DJ54_BT54_RSF = split(SF,""&chr(34)&","&chr(34)&"")
if len(DJ54_BT54_RSF(2)) < 16 then
rs.addnew
SFtime = trim(mymid(DJ54_BT54_RSF(3),"日/(.+?)點(diǎn)"))
SFtime = replace(SFtime,"日/","")
SFtime = replace(SFtime,"點(diǎn)","")
rs("name") = DJ54_BT54_RSF(1) '名稱
rs("ip") = DJ54_BT54_RSF(2)'IP
rs("sdate") = year(date) &"-"&month(date)&"-"&day(date) &" " & SFtime &":00:00"
rs("Xingzhi") = DJ54_BT54_RSF(5)'性質(zhì)
rs("email") = DJ54_BT54_RSF(6)'QQ
rs("homepage") = DJ54_BT54_RSF(0)'網(wǎng)
rs("addtime") = now()
rs("gameid") = 28
rs("Ulock") = 1
rs("service") = 2
rs("addr") = DJ54_BT54_RSF(4)
end if
response.write DJ54_BT54_RSF(1) & "入庫(kù)成功!<br/>"
next
response.write "全部入庫(kù)完成"
%>

專業(yè)設(shè)計(jì)團(tuán)隊(duì)
滿足您的各種設(shè)計(jì)要求
實(shí)力程序開發(fā)團(tuán)隊(duì)
為您定制各種程序模塊
后臺(tái)管理高效安全
方便更新上傳網(wǎng)站資料
全球高速訪問
無盲區(qū)、定制異地備份
專業(yè)客服團(tuán)隊(duì)
解決一切使用難題
贈(zèng)送大容量空間郵箱
免費(fèi)優(yōu)化推廣
   
關(guān)于我們 | 工作機(jī)會(huì) | 付款方式 | 網(wǎng)站制作 | 網(wǎng)頁(yè)制作 | 網(wǎng)頁(yè)設(shè)計(jì) | 網(wǎng)絡(luò)公司 | 聯(lián)系我們 | 網(wǎng)站地圖
版權(quán)所有:聊城精英網(wǎng)絡(luò)科技有限公司 © 2005-2010 All Rights Reserved.
咨詢專線:0635-6950368 技術(shù)專線:15192175820 在線QQ:312817927 1485871644
地址:聊城市閘口科技市場(chǎng) 郵編:252000 蘇ICP備10112026號(hào)
主站蜘蛛池模板: 欧洲永久精品大片ww网站 | 国产精品香蕉在线观看 | 亚洲欧美日韩中文在线制服 | 亚洲丁香五月激情综合 | 蜜臀AV色欲A片无人一区 | 亚洲三级高清免费 | 亚洲伊人成综合人影视 | 中出丰满人妻隐秘中文字幕 | 欧美日韩免费专区在线 | 日本孕妇潮喷高潮视频 | 国产中文在线 | 欧美做愛坉片 | 亚洲欧美一区二区三区色戒 | 成熟少妇AV片在线观看 | 国产亚洲日韩一区二区三区 | 亚洲av无码久久精品国产一区 | 国产成人高清精品免费软件 | 91精品导航在线网址免费 | 国产在线无码色图 | 国产午夜无码专区喷水 | 亚洲十大国产精品污污 | 双乳被一左一右的吸着 | 亚洲国产成人精品久久久国产成人一区二区三区综合区精品久 | 日本高清在线播放一区二区三区 | 体育生爽擼又大又粗的雞巴的动漫 | 一区二区三区av波多野结衣 | 亚洲午夜精品 | 另类精彩视频 | 欧美日韩国产一区二区三区欧 | 国产麻豆精品久久一二三 | 国产目拍亚洲精品一区 | 亚洲av日韩综合一区尤物 | 国产免费av大片在线观看 | 欧美国产综合日韩一区二区 | 亚洲伊人久久大香线蕉 | 国产精品亚洲片在线 | 国产日韩欧美精品在线播放 | 福利视频一区二区三区 | 亚洲黄色网站一区二区三区 | 制服丝袜中文字幕丰满人妻 | 久久无码中文字幕免费影院 |