">
public fileext
str1="<tr><td><span class=''grid1''><input type=checkbox id=''sall'' onclick=''selectall()''>全都选</span></td>"
str1=str1& "<td><span class=''grid1''>预览</span></td>"
str1=str1 & "<td><span class=''grid1''>文件路径</span></td>"
str1=str1 & "<td><span class=''grid1''>文件名称</span></td></tr>"
Sub Window_onLoad
window.resizeTo 750,515
ileft=(window.screen.width-750)/2
itop=(window.screen.height-515)/2
window.moveTo ileft,itop
end sub
function connect(num)
dim imageinfo,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="
set http=createobject("Microsoft.XMLHTTP")
http.open "GET",url,False
http.send
vIn=http.ResponseBody
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
''------获取文件的地址------------''
do
pos=instr(strReturn,"showPic")
pos1=instr(strReturn,"128x128")
if pos>0 then
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><span class=''grid2''><input id=addme type=checkbox>选定</span></td>"
strHTML=strHTML &"<td><span class=''grid3''><a onMousemove=''view()'' onmouseout=''hideview()'' href=#><img onClick=''addpro()'' src=''"&imageurl&imagepath&"'' width=30 height=20></a></span></td>"
strHTML=strHTML & "<td><span class=''grid2''>" & imagepath & "</span></td>"
strHTML=strHTML&n
