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

聊城網(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)
主站蜘蛛池模板: 囯产精品无码一区二区三区AV | 日韩内射激情视频在线播放免费 | 午夜福利无码影院 | 无码国模产在线观看免费 | 久久精品久久久久 | 亚洲无线一线二线三线区别 | 亚洲欧洲精品成人久久曰影片 | 精品人妻中文字幕无码 | 粗大的内捧猛烈进出在线视频 | 亚洲成人精品 | 中文字幕人妻偷伦在线视频 | 一区二区三区免费观看 | 亚洲精品大片www:网业版 | 午夜国产精品无码中文字 | 国产情侣一区二区 | 日韩欧美中文字幕一区在线 | 一本大道香蕉高清视频 | 亚洲夜色噜噜av在线观看 | 国产综合久久一区二区三区 | 亚洲一区二区三区视频 | 亚洲美腿丝袜 欧美另类 | 麻豆传媒女艺人写真 | 午夜精品射精入后重之免费观看 | 丰满的人妻hd高清日本 | 伦理剧情免费在线观看 | 精品国产欧美一区二区三区 | 韩国影片爱的色放 | 日本高清aⅴ毛片免费 | 亚洲乱码伦av | 国产成人精品亚洲男人的天堂 | 欧美日韩亚洲中文字幕二区 | 不卡一区二区在线视频 | 国产人妻人伦精品1国产盗摄 | 国产日产欧产精品精品 | 精品熟女一区 | 麻豆亚洲精品国产自在久久 | 亚洲av无码专区国产不乱码 | 水蜜桃久久夜色精品一区 | 久久精品这里热有精品 | 2025日韩中文字幕在线不卡 | 中国精品无码免费专区午夜 |