用于提取网易文件的hta代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| tionconnect(num) Dimimageinfo,Length fileext=Atype.options(Atype.selectedindex).Value imgtype=imagetype.options(imagetype.selectedindex).Value imgtypenum=Atype.selectedindex url="http://mms.163.com/new_web/cm_lv2_pic.jsp?catID="&imgtype&"&ord=dDate&page="&num&"&type="&imgtypenum&"&key=" imageurl="http://mmsimg.163.com/new_web/loaditem.jsp/type="&imgtypenum&"/path=" Sethttp=CreateObject("Microsoft.XMLHTTP") http.Open"GET",url,False http.send vIn=http.ResponseBody strReturn="" Fori=1ToLenB(vIn) ThisCharCode=AscB(MidB(vIn,i,1)) IfThisCharCode<&H80Then strReturn=strReturn&Chr(ThisCharCode) Else NextCharCode=AscB(MidB(vIn,i+1,1)) strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode)) i=i+1 EndIf Next ''------获取文件的地址------------'' Do pos=InStr(strReturn,"showPic") pos1=InStr(strReturn,"128x128") Ifpos>0Then Length=pos1-pos imageinfo=Mid(strReturn,pos,Length) images=Split(imageinfo,",") imagepath=Mid(images(2),2,Len(images(2))-1)&"128x128."&fileext ''----------获取文件的名字------------'' namepos=InStr(strReturn,"\n名字:") namepos1=InStr(strReturn,"\n人气") namelength=namepos1-namepos imagename=Mid(Mid(strReturn,namepos,namelength),6) strHTML=strHTML&"<tr><td><spanclass=''grid2''><inputid=addmetype=checkbox>选定</span></td>" strHTML=strHTML&"<td><spanclass=''grid3''><aonMousemove=''view()''onmouseout=''hideview()''href=#><imgonClick=''addpro()''src=''"&imageurl&imagepath&"''width=30height=20></a></span></td>" strHTML=strHTML&"<td><spanclass=''grid2''>"&imagepath&"</span></td>" strHTML=strHTML&"<td><spanclass=''grid2''>"&imagename&"</span></td></tr>" strReturn=Mid(strReturn,namepos1+20) Else ExitDo EndIf Loop connect=strHTML EndFunction Functionwriteinner() Fori=start1.ValueTostart2.Value strHTML=strHTML&connect(i) Next strHTML="<tableid=''mytable''width=100%border=1bordercolor=green>"&str1&strHTML&"</table>" list.innerHTML=strHTML infotext.innertext=infotext.innertext&"连接成功。" infotext.innertext=infotext.innertext&vbCrLf&vbCrLf&"从第"&start1.Value&"页到第"&start2.Value&"页的gif图片文件信息!" EndFunction Functionshow() IfNot(IsNumeric(start2.Value))OrNot(IsNumeric(start2.Value))Then infotext.innertext=infotext.innertext&vbCrLf&"配置错误..." Else infotext.innertext="正在连接..." window.settimeout"writeinner()",200 EndIf EndFunction Subview() strHTML1="<imgsrc=''"&window.event.srcElement.src&"''width=''140''height=''140''>" preview.runtimeStyle.pixelLeft=window.event.x+5 preview.runtimeStyle.pixelTop=window.event.y+5 preview.style.visibility="visible" preview.innerHTML=strHTML1 EndSub Subhideview() preview.style.visibility="hidden" EndSub Subaddpro() Setobj=window.event.srcElement.parentelement.parentelement.parentelement.parentelement Ifobj.cells(0).children(0).children(0).checked=falseThen obj.cells(0).children(0).children(0).checked=true Else obj.cells(0).children(0).children |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: vbs实现的eMule电驴自动关机脚本代码下一篇: VBS如何察看或获得剪切板内容的脚本
关于用于提取网易文件的hta代码的所有评论
