把ASP的网站转成HTML，有没有什么好的模版？可以套用，它的原理是什么
展开全部
原理：
通过现成模板类（可下载）。获取模板文件（templates.htm）的所有内容，然后，用模板类里的函数把模板文件（templates.htm）里的内容替换成数据。再写入一个新文件（HTML）
例如：
(templates.htm)
<html>
<head>
<title>%%TITLE%%</title>
</head>
<body>
</body>
</html>
下载类文件，把 %%TITLE%% 换成你的数据，然后指定路径文件名，生成HTML文件。
通过现成模板类（可下载）。获取模板文件（templates.htm）的所有内容，然后，用模板类里的函数把模板文件（templates.htm）里的内容替换成数据。再写入一个新文件（HTML）
例如：
(templates.htm)
<html>
<head>
<title>%%TITLE%%</title>
</head>
<body>
</body>
</html>
下载类文件，把 %%TITLE%% 换成你的数据，然后指定路径文件名，生成HTML文件。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用一段代码就可以，你等会，我找给你。
下面这段是我自己做网站用过的，如果不懂给我留言。
<% Option Explicit %>
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
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
%>
<%
'读取传递参数后的模版源代码，地址根据具体情况而定
dim html,nid,types,nlistname
types=request.QueryString("types")
nid=request.QueryString("nid")
html=getHTTPPage("http://127.0.0.1/Life/temlife.asp?nid="&nid) '把这张ASP页面转换成HTML。
dim HtmlFileName ,HtmlFile , fs , FileStream
HtmlFileName=Trim(Request.QueryString("HtmlFileName"))
if instr(HtmlFileName,".html")=false then
HtmlFileName="NoName"&now()&".html" '生成HTML后的文件名
end if
HtmlFile=Server.MapPath(HtmlFileName)
set fs=CreateObject("Scripting.FileSystemObject")
set FileStream=fs.CreateTextFile(HtmlFile)
FileStream.WriteLine Html
FileStream.close
response.Redirect("rLlist.asp?types="&types&"&nid="&nid&"&HtmlFileName="&HtmlFileName)
if nid="" then
response.Write("<script>alert('生成"&HtmlFileName&"文件成功!');history.go(-1);</script>")
else
response.Write("<script>alert('已经更新文件"&HtmlFileName&"!');history.go(-2);</script>")
end if
%>
下面这段是我自己做网站用过的，如果不懂给我留言。
<% Option Explicit %>
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
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
%>
<%
'读取传递参数后的模版源代码，地址根据具体情况而定
dim html,nid,types,nlistname
types=request.QueryString("types")
nid=request.QueryString("nid")
html=getHTTPPage("http://127.0.0.1/Life/temlife.asp?nid="&nid) '把这张ASP页面转换成HTML。
dim HtmlFileName ,HtmlFile , fs , FileStream
HtmlFileName=Trim(Request.QueryString("HtmlFileName"))
if instr(HtmlFileName,".html")=false then
HtmlFileName="NoName"&now()&".html" '生成HTML后的文件名
end if
HtmlFile=Server.MapPath(HtmlFileName)
set fs=CreateObject("Scripting.FileSystemObject")
set FileStream=fs.CreateTextFile(HtmlFile)
FileStream.WriteLine Html
FileStream.close
response.Redirect("rLlist.asp?types="&types&"&nid="&nid&"&HtmlFileName="&HtmlFileName)
if nid="" then
response.Write("<script>alert('生成"&HtmlFileName&"文件成功!');history.go(-1);</script>")
else
response.Write("<script>alert('已经更新文件"&HtmlFileName&"!');history.go(-2);</script>")
end if
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
伪静态
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
