asp生成html文件代码
2006-01-14 14:11
375 查看
<%
on error resume next
Const adTypeBinary = 1
Const adTypeText = 2
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
Url = ""&nameurl&"/"&admin&"/Get_Html_Index.asp" '生成哪个页的代码
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if
SourceCode = bytes2BSTR(oSend.responseBody)
%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../Html/index.htm")) '这里是生成文件保存的地址与文件名
fout.Write SourceCode
fout.close
set fout=nothing
set fso=nothing
response.write "生成 首页 文件名:Index.htm成功!<a href=../Html/Index.htm target=_blank><font color=#FF0000>点击这里查看</font></a>"
%>
on error resume next
Const adTypeBinary = 1
Const adTypeText = 2
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
Url = ""&nameurl&"/"&admin&"/Get_Html_Index.asp" '生成哪个页的代码
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if
SourceCode = bytes2BSTR(oSend.responseBody)
%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../Html/index.htm")) '这里是生成文件保存的地址与文件名
fout.Write SourceCode
fout.close
set fout=nothing
set fso=nothing
response.write "生成 首页 文件名:Index.htm成功!<a href=../Html/Index.htm target=_blank><font color=#FF0000>点击这里查看</font></a>"
%>
相关文章推荐
- asp生成html文件代码
- 在asp.net中生成html文件代码
- 在asp.net中生成html文件代码
- 在asp.net中生成html文件代码如下
- ASP模版与生成HTML文件代码。
- ASP模版与生成HTML文件代码。
- 在asp.net中生成html文件代码
- ASP.NET中常用功能代码总结(2)——生成验证图片
- ASP动态生成的javascript表单验证代码
- ASP.NET生成高质量缩略图通用函数(c#代码)
- ASP.Net: EshineASPNet教程-自动生成代码模块
- ASP.NET生成静态页面和分页代码 http://blog.csdn.net/zdyguilong/archive/2007/05/24/1624491.aspx
- ASP.NET生成高质量缩略图通用函数(c#代码)
- asp.net mvc脚手架代码生成工具
- AjaxPro.NET框架生成高效率的Tree(Asp.net 2.0)(示例代码下载)
- asp.net生成高质量缩略图通用函数(c#代码),支持多种生成方式
- 使用VB将ASP代码封装生成DLL文件
- ASP.NET生成缩略图的代码
- 用php或asp实现在线生成网页桌面快捷方式的代码
- ASP.NET生成静态页面和分页代码