关于HTML的问题

manman300 2009-07-27 04:11:36

各位好，小弟最近做了一个网站，是用ASP做的，但是看到很多站点目前的网站文件后缀名是HTML的，我想问下这种技术是如何实现的？是在后台动态生成HTML的呢？还是所谓的伪静态？？如果是后台生成？如何实现？能否给个思路啊？
比如本站点的一个URL：http://topic.csdn.net/t/20030105/16/1328686.html

...全文

66 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

manman300 2009-07-27

打赏
举报

呵呵刚发帖才看到你的例子好的谢谢了我看看先不明白的再请教你

manman300 2009-07-27

打赏
举报

三楼的朋友，能举个实际的例子来看看嘛？

ChinaXtHuLang 2009-07-27

打赏
举报

给你个例子：
Asp FSO简单生成html 实例
模板页：index.html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title>{Test_Title}</title>

<meta name="keywords" content="{Test_Keywords}" />

<meta name="description" content="{Test_Description}" />

</head>



<body>

{Test_ConTent}

</body>

</html>

操作页：index.asp

<%

'==========================================================

'函数名：ReadtxtFiles

'函数作用：读取文件

'参数：Filename 文件路径

'==========================================================

Function ReadtxtFiles(Filename)

   Dim fso,ts

   Const ForReading = 1

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set ts = fso.OpenTextFile(Server.MapPath(Filename), ForReading)

   ReadtxtFiles = ts.ReadAll

   ts.Close

End Function

'==========================================================

'函数名：CreateFile

'函数作用：写入文件

'参数：Filename 文件路径,temp  文件内容

'==========================================================

Function CreateFile(Filename,temp)

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set tf = fso.CreateTextFile(Server.MapPath(Filename), True)

   tf.write temp

   tf.Close

   CreateFile=Filename

End Function

%>

<%

    '调用ReadtxtFiles函数,读取文件

    Temp=ReadtxtFiles("Index.html")

        '定义4个测试变量并赋值 Start

        Test_Title="那是个畜生"

        Test_Keywords="本来就是个畜生"

        Test_Description="是个畜生"

        Test_ConTent="真TMD畜生一个!"

        '定义4个测试变量并赋值 End

            '替换上面的4个变量 Start

            Temp=Replace(Temp,"{Test_Title}",Test_Title)

            Temp=Replace(Temp,"{Test_Keywords}",Test_Keywords)

            Temp=Replace(Temp,"{Test_Description}",Test_Description)

            Temp=Replace(Temp,"{Test_ConTent}",Test_ConTent)

            '替换上面的4个变量 End

    '调用CreateFile函数,CreateFile的参数及作用已经写在上面了

    Call CreateFile("CreateHtml.html",Temp)

    '如果没有创建出：CreateHtml.html文件，请检查权限

    '好了.到这里就结束了.你看可以利用这个例子做一个新闻发布系统了.

%>

最终效果页：CreateHtml.html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title>那是个畜生</title>

<meta name="keywords" content="本来就是个畜生" />

<meta name="description" content="是个畜生" />

</head>

 

<body>

真TMD畜生一个!

</body>

</html>