Dreamweaver UltraDev打造生成静态页的新闻系统

2008-02-23 06:58:44来源：互联网阅读 ()

　　前言
　　
　　“新闻系统”似乎是所有学Dreamweaver UltraDev（以下简称UD）的朋友的第一课，什么！！！我们今天又要做新闻系统！大家都会的啦！呵，今天给大家讲的是能够生成静态的*.htm页的新闻系统哦！

　　所谓的静态页的新闻系统是怎么回事的呢？我们来看新浪的新闻页，地址如：http://news.sina.com.cn/c/2002-05-23/1558584195.html。这个地址怎么是*.htm结尾的呢？我们用ASP做的话，不都是好象http://news.sina.com/news.asp?ID=242553的吗？难道新浪的新闻都是手动添加的吗？”一位论坛中朋友不禁问道。答案当然不是（如果是这样的话，新浪的后台管理人员打字都要把手打短了，哈）！其实新闻仍然是用数据库的形式添加的，只是生成的同时使用FSO(“FileSystemObject”，就是我们所谓的File Access组件)，把数据库的内容写成静态的*.htm页面，这样做有什么好处呢？当网站流量太大的时候，我们的ＡＳＰ就忙不过来了，大量的数据库检索查询，会让我们的服务器承受不住，如果请求的都是静态页的话，就大大降低了服务器的负荷，速度当然也快啦！

　　好了，是不是有点兴趣了，下面我们说说程序的要求和制作的要点：

　　１、服务器系统：win2000 IIS5.0或IIS4.0（强烈建议）；
　　２、你的系统或是远端服务器必须支持FSO（FileSystemObject文件读写）；
　　３、在程序制作中我们要学会分离UD产生的代码（也让我们能够理解UD让人“恐怖”的代码）；
　　４、部分的手写代码，结合UD的代码制作（从来没打开过code窗口的朋友可要注意哦）；

　　OK！做好准备了！就让我们开始吧！

　　上篇：新闻的添加

　　１、页面清单。在这个简单的新闻系统中，我们要用到如下页面：add.asp（添加新闻）,browse.asp（新闻浏览）,del.asp（删除新闻）,example_updata.asp（模板修改）, save.asp（保存新闻）,ok.htm（成功页），updata.asp（修改新闻），updata_save.asp（保存修改）

　　２、数据库准备。建立个数据库（这里我们采用Access2000）文件：asp2htm.mdb，建２个表：T_News,T_Example，具体如图：

　　３、建立模板。模板是做什么的？它就是我们最后见到的新闻页面，就好象我们以前做的新闻系统一样，不过这里我们只是用它来过个渡。我们建立一个任意名称的页，如：Example.htm（点击查看，可以保存这个页面成example.htm），我们可以在我们想要显示新闻内容的地方写上： E_Title（标题），E_Content（内容），E_Date（时间）。当然我们可以自己做个页面，关键是一定要有这就个变量，这个的作用是用来让数据库内容替换它，所以很重要。然后我们转到example.htm的代码窗口，选中全部的代码，拷贝它，打开数据库文件asp2htm.mdb，在T_Example表里查入一条新记录，把刚才拷贝的代码加进去。如图：

　　４、添加新闻页面add.asp。这个页面主要是一个表单，效果如图：

其中的表单各项的名称请按照图中的设置。我们看到表单里的有几项已经填了内容了，我们先不去管它。打开服务器行为面板（Window ---> Server Behaviors），添加一个Insert Record行为，这个我想大家都很熟了，就不多讲了，和表单中的各项对应好，把成功后的页面转到ok.htm页，就OK了。
　　接下来我们就要给UD的代码做做手术了。转到代码窗口，拷贝从头开始到<html>标记前的代码：
　　
　　<%@LANGUAGE="VBSCRIPT"%>
　　
　　....................
　　....................
　　....................
　　 If (MM_editRedirectUrl <> "") Then
　　Response.Redirect(MM_editRedirectUrl)
　　End If
　　End If

　　End If
　　%>

　　接下来打开save.asp页面（可以是个空的页面），把这写代码贴进去，保存。这样我们就把UD生成的添加记录代码分离了哦！最后，要把表单发送到save.asp页面，发送类型“post”，action="save.asp"。

　　５、用时间做文件名和取得静态*.htm页的保存路径。这里是一写手写的代码，主要有一个函数，用来把当前时间做为文件名，就好象当前时间.htm，那就避免了文件重名的问题了。函数如下：

<%
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname & ".htm"
end function
%>

　　下面是取得文件保存路径的代码：

<%
Dim fname
Dim filepath
fname = makefilename(now()) '文件名
filepath=("../newsfile/"&fname)
%>

　　把这两段代码拷贝到add.asp页的<html>标记上面，然后在表单N_FileName、N_FilePath、N_Date的value中插入代码，如下：

这是文件名的
<input type="text" name="N_FileName" size="32" value="<%=fname%>">
这是路径的
<input type="text" name="N_FilePath" value="<%=filepath%>" size="32">
这是时间的
<input type="text" name="N_Date" value="<%=Now()%>" size="32">

好了，我们浏览一下add.asp，是不是象刚才图上显示的一样啦！

　　６、保存新闻、生成*.htm静态页的save.asp页面。我们刚才已经把add.asp的添加记录的代码拷贝过去了，如果直接运行add.asp页，就可以把记录插入到数据库中了，而我们现在是要把这条记录写成*.htm的形式。

　　转到设计窗口，打开服务器行为面板(Window --> Server Behaviors)，添加一个模板的记录集，如图：

　　转到代码窗口，接下我们就要添加写文件的FSO代码了，注意：

<%'这个函数DoWhiteSpace是用来转换空格和回车，让我们的长篇大论能够正常显示%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有