asp 由动态网页转变为静态网页的实现代码-无忧网

具体代码实现：
1.模板文件（html）
代码如下:

 <html xmlns="http://www.51frw.cn" target="_blank"><strong>哎呀呀</strong></a> 
<a href="http://www.51frw.cn" target="_blank">哎呀呀加盟</a> 
<a href="http://www.51frw.cn" target="_blank">哎呀呀饰品</a> <script src="http://s23.cnzz.com/stat.php?id=1117055&web_id=1117055" language="JavaScript" charset="gb2312"></script></span> 
</body> 
</html> 
 <strong>2.处理的文件（asp）</strong>  代码如下: <!--#include file="conn.asp"--> 
<%Server.ScriptTimeOut=99999999%> 
<% 
dim action,id,news 
Layout="news" 
id=request.QueryString("id") 
action=request.QueryString("action") 
select case action 
case "add" 
%> 
<% 
'全部生成html 
case "htmlall" 
set rs=server.CreateObject("adodb.recordset") 
Sql = "Select id from news order by id" 
rs.open sql,conn,1,1 
do while not rs.eof 
FsoFile "news",rs("id") 
response.write"<div style='color:#003333;' align='center'>"&rs("id")&"新闻生成HTML成功!</div>" 
rs.movenext 
loop 
rs.close 
response.write"<div style='color:#FF0000;' align='center'>全部新闻生成HTML成功!</div></br>" 
end select 
%> 
<% 
'生成中文html 
Function FsoFile(Layout,ID) 
Dim Fso,FilePath,FsoF,FsoH,FsoRs,CreateFilePath 
FSOCreateDIR "..news" & ID & "" 
CreateFilePath = "..news" & ID & "" 'HTML所在文件夹 
FilePath=Server.Mappath(CreateFilePath) & "index.html" '定义生成html文件名 
Set Fso=Server.CreateObject("Scripting.FileSystemObject") 
Set FsoH=Fso.OpenTextFile(Server.Mappath("..templatesnews_show.html"),1,true) '读取模版 
Content = FsoH.ReadAll 
Set FsoRs = Conn.Execute("select * from news where id="&id) 
title=FsoRs("title") 
demo=FsoRs("demo") 
Content = Replace(Content,"{id}",FsoRs("id")) 
Content = Replace(Content,"{title}",FsoRs("title")) 
Content = Replace(Content,"{demo}",FsoRs("demo")) 
Content = Replace(Content,"{webname}",webname) 
Content = Replace(Content,"{icp}",icp) 
Content = Replace(Content,"{dianhua}",dianhua) 
Content = Replace(Content,"{dizhi}",dizhi) 
Content = Replace(Content,"{qq}",qq) 
Content = Replace(Content,"{alibaba}",alibaba) 
Content = Replace(Content,"{tongji}",tongji) 
FsoRs.Close 
Set FsoRs=Nothing 
set stm = server.createobject("ADODB.Stream") 
stm.Charset = "gb2312" '定义编码 
stm.Open 
stm.WriteText content 
stm.SaveToFile FilePath, 2 
set stm = nothing 
End Function 
%> 
<% 
function FSOCreateDIR(LocalPath) 
dim patharr,path_level,i,pathtmp,cpath,CreateDIR,FileObject 
on error resume next 
LocalPath = Server.MapPath(LocalPath) 
LocalPath = replace(LocalPath,"","/") 
set FileObject = server.createobject("Scripting.FileSystemObject") 
patharr = split(LocalPath,"/") 
path_level = ubound(patharr) 
for i = 0 to path_level 
if i=0 then pathtmp = patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/" 
cpath = left(pathtmp,len(pathtmp)-1) 
if not FileObject.FolderExists(cpath) then FileObject.CreateFolder(cpath) 
next 
set FileObject = nothing 
if err.number<>0 then 
CreateDIR = false 
err.Clear 
else 
CreateDIR = true 
end if 
end function 
%> 
 <strong>3.在后台添加生成静态新闻链接</strong>  代码如下:
<TD height=20 align="center"><a href="../admin_product/saveaddnews.asp?action=htmlall" target="ggdlab">生成新闻静态</a></TD>

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！

asp 由动态网页转变为静态网页的实现代码

相关教程推荐

其他课程推荐