发信人: wuga(冰雨梦)
整理人: wuga(2002-04-25 14:55:02), 站内信件
|
<HTML>
<HEAD>
<title>Get URL Text</title>
</HEAD>
<BODY>
<!-- Author: Adrian Forbes -->
<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>
<!-- Author: Adrian Forbes -->
<%
'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>
----
因为我, 能相信, 爱你, 是真的, 爱你, 不会让你后悔。
寂寞的冬, 想你的夜, 王子与公主, 世界这分钟永恒。
爱的证据, 如潮水, 已成风。逃, 两个人的森林。
错过你, 错过爱。有你真的快乐吗? 一定可以, 曾经等待。
因为我, 能相信, 爱你, 是真的, 爱你。且行且珍惜。
MSN:[email protected] QQ:92754 |
|