新浪新闻小偷1. html head meta http-equiv="Refresh" content="60" META HTTP-EQUIV="Pragma" CONTENT="no-cache" meta http-equiv="Content-Type" content="text/html"; charset="??????" title新浪_新闻抓取程序/title /head body centerimg src="pic.gif"/center ? $host="127.0.0.1"; // MYSQL 主机名 $namesql="????"; // MYSQL 用户名 $passsql="????"; // MYSQL 密码 $lib="news"; // 数据库名 $...[ 查看全文 ]
% Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = ubb(strReturn) End Function Function dq(key) dim XmlHt...[ 查看全文 ]