记录ASP简单生成静态HTML文件代码解剖！

来源：怀化SEO博客责任编辑：栏目编辑发表时间:2013-07-01 19:31　点击:次

计算机技术编程开发数据库技术操作系统 WEB编程媒体动画软件使用图形图像网络安全 web服务器建站程序站长经验存储技术

怀化SEO是从学习ASP再到PHP的，感觉学会了ASP再去学习PHP要容易的多，其它只要学会了一种编程语言，那么再去学习其它的编程语言都不会太难，因为大多数的编程语言都是相通，不同的只是代码的写法规则，和一些函数、对像、等? 很我方面大概都是一样，所以很容易上手的，

还好怀化SEO的ASP基础还没有完全忘记，今天就记录下ASP简单生成静态HTML文件的代码写法吧，

直接下代码了：

<!–模块文件(template.htm)–>
<html>
<head>
<title>%TITLE%</title>
</head>
<body>
%CONTENT%
</body>
</html>

<!–TestTemplate.asp–>
<%
Dim fso,f
Dim strTitle,strContent,strOut
‘创建文件系统对象
Set fso=Server.CreateObject(“Scripting.FileSystemObject”)

‘打开网页模板文件，读取模板内容
Set f=fso.OpenTextFile(Server.MapPath(“Template.htm”)) ‘用OpenTextFile方法打开文件
strOut=f.ReadAll???? ‘读取整个文件并赋值给STROUT变量
f.close????????????? ’关闭文件

strTitle=”这是生成的网页标题1″
strContent=”这是生成的网页内容1″

‘用真实内容替换模板中的标记
strOut=Replace(strOut,”%TITLE%”,strTitle) ‘用ASP的replace函数替换
strOut=Replace(strOut,”%CONTENT%”,strContent)

‘创建文件夹
if (fso.FolderExists(Server.MapPath(View_BaiZhaoID))) then?? ‘FolderExists如果指定的文件夹存在返回 True，不存在返回 False
‘判断如果存在就不做处理
else
‘判断如果不存在则建立新文件夹
fso.CreateFolder(Server.MapPath(View_BaiZhaoID))?? ‘使用CreateFolder()方法创建一个文件夹
end if

‘创建要生成的静态页
Set f=fso.CreateTextFile(Server.MapPath(View_BaiZhaoID&”/Z_Music_New.htm”),true) ‘使用()方法创建一个指定的文件名

‘写入网页内容
f.WriteLine strOut?? ‘WriteLine以一行的格式输出字符串流数据strOut
f.close??? ’关闭

Response.Write “生成静态页成功！”

‘释放文件系统对象
set f=Nothing
set fso=Nothing
%>

触类旁通！只要知道上面的代码是怎么回事！那么基本上就可以自己把ASP的文件怎样生成对搜索引擎友好优化的html静态WEB页面了！

下面是ASP良精系统生成HTML的ASP代码（很好用哈！）：

————————————————————————————————————-

调用函数：??? <%Function htmll(“/CH/”,”/CH/”,”Index.”&HTMLname&”",”Index.asp”,”",”",”",”")%>

?<%
Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld) ‘html过程调用

if mulu=”" then mulu=”/”?? ‘如果为空那么就是/

?if htmlmulu=”" then htmlmulu=”/”????????? ‘如果为空那么就是/

?mulu=replace(SysRootDir&mulu, “//”, “/”) ‘//CH/?? 为/CH/