用ASP获取别的网页的内容

最新推荐文章于 2024-07-03 10:24:42 发布

realromi

最新推荐文章于 2024-07-03 10:24:42 发布

阅读量2k

点赞数

分类专栏： ASP 文章标签： asp microsoft vbscript generator html border

本文链接：https://blog.youkuaiyun.com/realromi/article/details/339246

版权

ASP 专栏收录该内容

5 篇文章

订阅专栏

<HTML>
<HEAD>
<title>Get URL Text</title>
</HEAD>
<BODY>


<form action="URLGetMSINet.asp">
<table border=0>
<tr><td>URL</td><td><input type=text name=txtURL value=""></td></tr>
</table>
<input type=submit value="Get Text">
</form>

</BODY>
</HTML>

***这是URLGetMSInet.asp

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>Get URL Text</title>
</HEAD>
<BODY>


<%
'Set obj = CreateObject("InetCtls.Inet")
Set obj = Server.CreateObject("InetCtls.Inet.1")
obj.RequestTimeOut=20

sRequest = trim(Request("txtURL"))
sText = obj.OpenURL (CStr(sRequest))
sText = "<pre>" & vbcrlf & Server.HTMLEncode(sText) & vbCRLF & "</pre>"

Response.Write sText

set obj = nothing
%>
</BODY>
</HTML>