ent}quot;,c_title) mb_code=replace(mb_code,"$cnright{LogContent}quot;,c_content) %>
<%'生成 HTML 页面 Set fso = Server.CreateObject("Scripting.FileSystemObject") fso.CreateFolder(Server.MapPath(folder)) Set fout = fso.CreateTextFile(Server.MapPath(filepath)) fout.WriteLine mb_code fout.close %>
文章添加成功,
浏览 6,显示数据库表记录,并做指向 HTML 页的链接:showit.asp 引用:
<% Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from c_news order by c_id desc" rs.Open sql,conn,1,1 %>
<% if rs.EOF and rs.BOF then response.write ("暂时还没有文章,
添加") else Do Until rs.EOF %>