1、JS代码在页面中的：右击网页-查看源代码--复制代码。
2、JS代码在XXX.js文件里的：复制js文件地址到网页地址栏中，可以直接下载
3、对方设置了JS防窃取程序，这样你什么都弄不到
说明一点，大部分的JS代码都是步骤1,2相结合的！
望采纳
caiurl是采集源网址，pcontent=bytestobstr(getbody(caiurl),"gb2312") 是采集调用代码，如果采集的目标页面是utf-8格式的，请把gb2312修改成utf-8,即pcontent=bytestobstr(getbody(caiurl),"utf-8")<%
response.charset="gb2312"
response.expires = -9999
response.addheader "pragma","no-cache"
response.addheader "cache-ctrol","no-cache"
caiurl="网址/qqlogin.js"
function getbody(weburl)
dim objxmlhttp
set objxmlhttp=server.createobject("msxml2.serverxmlhttp")
'如果服务器不支持msxml2.serverxmlhttp，可以修改成msxml3.serverxmlhttp或msxml6.serverxmlhttp或msxml2.xmlhttp
objxmlhttp.open "get",weburl,false
objxmlhttp.send
while objxmlhttp.readystate <>4
objxmlhttp.waitforresponse 10000
wend
getbody=objxmlhttp.responsebody
set objxmlhttp=nothing
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
pcontent=bytestobstr(getbody(caiurl),"gb2312")
response.write(pcontent)
%>
这样就可以把 网址/qqlogin.js 这个js文件采集到了，并存在pcontent变量中，如果要加入自己的代码，再把pcontent修改一下即可。
