<%'生成HTML页面

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set fout = fso.CreateTextFile(Server.MapPath(c_filepath))

fout.WriteLine mb_code

fout.close

%>

<%response.redirect("showit.asp")%>

<%end if%>

<%

if id<>"" then

Set rs = Server.CreateObject ("ADODB.Recordset")

sql="select * from c_news where c_id="&id

rs.Open sql,conn,1,1

c_id=rs("c_id")

c_filepath=rs("c_filepath")

c_title=rs("c_title")

c_content=rs("c_content")

end if

%>

<form action="change.asp" method="post">

Title:<input type="text" name="c_title" value=<%=c_title%>><br>

Content:<br>

<textarea name="c_content" rows="8" cols="30"><%=c_content%></textarea><br>

<input type="submit" value="change" name="submit">

<input type="reset" value="Reset">

<input name="c_id" type="hidden" value="<%=id%>">

<input name="c_filepath" type="hidden" value="<%=c_filepath%>">

</form>

------------------------------

8，删除记录页del.asp

同样！删除，除了删除数据库表中的记录，与其对应的HTML页面也需删除。代码如下：

引用:

------------------------------

<!--#include file="conn.asp" -->

<%

c_id = request.querystring("c_id")

sql = "Select * from c_news where c_id="&c_id

Set rs = Server.CreateObject ("ADODB.Recordset")

rs.Open sql,conn,2,3

filepath=rs("c_filepath")

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile(Server.mappath(filepath))

Set fso = nothing

rs.delete

rs.close

Set rs = Nothing

conn.close

set conn=nothing

%>

<%response.redirect("showit.asp")%>

------------------------------

四，其它功能

模板管理页面：

不会每次都是打开数据库表进行增加或者修改模板代码吧，所以，管理代码的页面程序不能少了，自己捣鼓下应该很简单的。当然，之前管理员的登录认证程序就不在书中交代了：）还有，如果设计了多个模板，那么在发表信息的时候应添加模板选择单选框，同样在执行转换HTML时，SQL选择的不同m_id了。