急，，一个问题，给100分

[chenglong01]

取出指个的网页源代码，就是IE--查看(V)--源文件(C).这个是记事本打开，我要用asp取出放在表单里，该怎么做

[freetaiger]

这个问题不值得去考虑啊!
楼主想干什么?

[chenglong01]

像抓新闻之类的

[maxid]

原来你又发了一贴，下面这个要在IE6下才好用
<script type="text/vbscript">
function getPage()
set http_obj=createObject("Microsoft.XMLHTTP")
call http_obj.Open("get",document.forms(0).t1.value ,false)
call http_obj.send()
htmlbody= bytes2bstr(http_obj.responsebody)
document.forms(0).s1.value=htmlbody
end function
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 = strreturn
end function
</script>
<form name="form1">
网址:<INPUT NAME="t1" TYPE="text" value="http://www.baidu.com" >
<input type="submit" onclick="getpage()" value="提交查询内容">
<br><textarea rows="16" name="S1" cols="65" ></textarea>
</form>

[chenglong01]

好的，谢谢，再给你分