首页生成html

作者:cmscn 日期:2007-01-05

字体大小: 小中大

在网址后面加上?createhtml=true可以生成html文件
如：
http://www.xxx.com/index.asp?createhtml=true

然后就可以直接访问静态网页

http://www.xxx.com/index.html

在config.asp中添加 

createhtml.asp

HTML代码

<%
'html生成测试
dim htmlstr,strUrl,strFileHtml
if Request.ServerVariables("HTTPS") = "off" Then
	strUrl = "<a href="http://" target="_blank" rel="external">http://</a>"
else
	strUrl = "<a href="https://" target="_blank" rel="external">https://</a>"
end if

strUrl = strUrl & Request.ServerVariables("SERVER_NAME")

if Request.ServerVariables("SERVER_PORT") <> 80 Then
	strUrl = strUrl &":"& Request.ServerVariables("SERVER_PORT")
end if

strUrl = strUrl & Request.ServerVariables("URL")

if Request.QueryString <>"" Then
	strUrl = strUrl & "?" & Request.QueryString
end if

if inStr(strUrl,"?createhtml=true") <> 0 then
	strUrl=replace(strUrl,"?createhtml=true","")
	strFileHtml=Request.ServerVariables("URL")
	strFileHtml=replace(strFileHtml,".asp",".html")
	htmlstr=getHTTPPage(strUrl)
	create_html strFileHtml,htmlstr	
end if

sub create_html(file_name,filetype)
	dim filetemp,fileos,filepath,fso_sys_var
	fso_sys_var="script"&"ing.file"&"sys"&"tem"&"object"
	set fileos=createobject(fso_sys_var)
	filepath=server.mappath(file_name)
	set filetemp=fileos.createtextfile(filepath,true)
	filetemp.writeline( filetype )
	filetemp.close
	set filetemp=nothing
	set fileos=nothing
end sub

function getHTTPPage(url) 
	on error resume next 
	dim http 
	set http=Server.createobject("Msxml2.ServerXMLHTTP") 
	Http.open "GET",url,false 
	Http.send() 
	if Http.readystate<>4 then	exit function 
	getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
	set http=nothing
	if err.number<>0 then err.Clear  
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
%>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

[本日志由 cmscn 于 2009-02-26 11:35 PM 编辑]

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags: 生成

相关日志:

评论: 6 | 引用: 0 | 查看次数: 656

发表评论

昵　称:
密　码:	游客发言不需要密码.
内　容:	正在加载编辑器...
验证码:
选　项:	禁止表情转换禁止自动转换链接禁止自动转换关键字记住我的信息,以便下次评论时不用输入用户名.

虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号. 字数限制 20 字 \| UBB代码关闭 \| [img]标签关闭

首页生成html

作者:cmscn 日期:2007-01-05

feed

User Panel

Archive

Search