ASP内部网页动态直接读取代码

用<!-- #include...不能传ASP参数，这里我们介绍两种能传递ASP参数并直接读取的方法。

方法1：

<%
Function getFileContents(strIncludeFile)   '函数：读取包含文件内容
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")   '调用FSO对象
Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile),,True)
getFileContents = objText.ReadAll
objText.Close
Set objText = Nothing
Set objFSO = Nothing
End Function
attachurl="index.asp"  '读取网页
response.write getFileContents(""&attachurl&"")
%>

注意：此方法读取的网页不支持utf-8编码。

方法2：

<%
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXML.open "GET","http://www.wan-qi.cn/index.asp",false
objXML.send()
response.write(objXML.responseText)
%>

客户机接收响应是通过XMLHTTP对象的属性实现的：

responseText：将返回消息作为文本字符串；

responseBody：将返回消息作为HTML文档内容；

responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用；

responseStream：将返回消息视为Stream对象。