XMLHTTP獲取web訪問頭信息和網頁代碼_Xml教程
推薦：利用XML實現通用WEB報表打印實際使用中的例子最近做的一個B/S項目，在打印時采用了在IE中嵌入.net winform控件和XML結合的方式（參見http://www.yesky.com/20030214/1652186.shtml），在實際應用過程中，有一些心得，和大家分享。 （一）.使用通用模版格式化XML文件 系統中共用到了三種單據，分別為出庫
<%
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
url=request.form("url")
if trim(url)<>"" then
set xml = Server.CreateObject("MSXML2.XMLHTTP.5.0")
xml.open "GET",url, False
xml.send
bo = BytesToBstr(xml.ResponseBody,"UTF-8")
header = xml.GetAllResponseHeaders
set xml = nothing
end if
%>
<html>
<head>
<title>XMLHTTP測試</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
</head>
<body bgcolor="#D4D0C8" topmargin="20" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<div align="center">
<table border="1" width="770px" cellspacing="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="356">
<tr>
<form method="post">
<td align="center" height="50">
<input type="text" name="url" style="width:700;height:20" value="<%=url%>">
<input type="submit" value="查看"> </td>
</form>
</tr>
<tr>
<td align="center" height="124">
<textarea id="Textarea2" name="Textarea2" rows="7" cols="105"><%=header%></textarea></td>
</tr>
<tr>
<td height="230" align="center">
<textarea id="Textarea1" name="Textarea1" rows="14" cols="105"><%=bo%></textarea></td>
</tr>
</table>
</div>
</body>
</html>
分享：如何用FSO操作xml試了一下，xmlDoc.save()行不同，就試著用fso做了出來。 整理一下，供大家discuss。 由于用js操作本地xml文件之后save時會permission denied，所以據我所知就只能通過FSO來做。而用FSO，基本上就與文件是否是xml無關。 xml文件： root parent child1one/chil
- 相關鏈接：
- 教程說明：
Xml教程-XMLHTTP獲取web訪問頭信息和網頁代碼
。