 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%\\\'定义xmlhttp function GetXmlText(Url) dim GetXmlHttp set GetXmlHttp=server.Createobject("Microsoft.XMLHTTP") GetXmlHttp.open "Get",url,false,"","" GetXmlHttp.Send \\\'GetXmlText=GetXmlHttp.Responsetext GetXmlText=GetXmlHttp.ResponseBody set GetXmlHttp=nothing end function \\\'转变为字符 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 \\\'保存文件 Sub SaveToFile(strBody,File) Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Type = 2 .Open .Charset = "GB2312" .Position = objStream.Size .WriteText = strBody .SaveToFile Server.MapPath(File),2 .Close End With Set objStream = Nothing End Sub %> <% SaveFile BytesToBstr(GetXmlText("http://127.0.0.1/index.asp"),"GB2312"),"index.htm"%> 返回类别: 教程 上一教程: ASP 中健壮的页结构的非常处理 下一教程: SESSION的用法详细解说 您可以阅读与"用XMLHTTP生成HTML页面"相关的教程: · 用XMLHTTP POST/GET HTML页面时的中文乱码之完全SCRIPT解决方案 · 在ASP中使用FSO组件生成HTML页面 · 将一个ASP页面执行过的生成HTML代码保存为HTML文件 · 使用XMLDOM在服务器端生成静态HTML页面 · XMLHTTP GET HTML页面时的中文乱码之完全客户端SCRIPT解决方案 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
