编号,主关键字);字段 m_html(备注类型)。 并将下列完整的代码拷贝至 m_html 字段 引用:
$cntop{LogContent}lt;/td> |
$cnleft{LogContent}lt;/td> | $cnright{LogContent}lt;/td> |
3,设计新数据库表 c_news
字段 c_id:自动编号,主关键字 字段 c_title:文本类型,保存文章标题 字段 c_content:备注类型,保存文章内容 字段 c_filepath:文本类型,保持生成文件的路径地址 字段 c_time:日期/时间类型,默认值:Now()
三,页面需求设计
1,首先建立一个存放 HTML 页的文件夹
在文件同一目录下,建立文件夹 newsfile,夹子内部主要存放生成的 HTML 页面,当然内部 还会采用
程序方式建立以日期命名的子文件夹,以方便浏览以及管理
。
2,功能函数页面 lib.asp 引用:
<% '生成文件名的函数 function makefilename(fname) fname = fname 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 &; ".shtml" end function
'保持数据格式不变的函数 function HTMLEncode(fString) fString = replace(fString, ">", "&;gt;") fString = replace(fString, "<", "&;lt;") fString = Replace(fString, CHR(32), "&;nbsp;") fString = Replace(fSt
ring, CHR(13), "") fString = Replace(fString, CHR(10) &; CHR(10), "
") fString = Replace(fString, CHR(10), "
")
HTMLEncode = fString end function %>
3,数据库连接页面 conn.asp 完成数据库的字符串连接方法 <% set conn = Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&;Server.MapPath("asp2html.mdb") conn.Open connstr %> 4,信息输入页面 add.html 其实很简单:)就是表单嘛。注意 action 是跳转到 addit.asp 引用:
5,处理数据功能显示页面 addit.asp 首先是处理接受过来的数据,并将值写入数据库;接着将模板代码进行引用,并将其中特殊 代码转换为接受值,最终通过 FSO 生成 HTML 页面。其中需要注意的还有,生成文件的路径 地址保存至数据库表。 引用:
<%'容错处理 On Error Resume Next
%>
<%'接受传递值 c_title=request.form("c_title") c_content=request.form("c_content") %>
<%'生成 HTML 文件名,建立文件夹,指定文件路径 fname = makefilename(now()) 'makefilename 为自定义函数 folder = "newsfile/"&;date()&;"/" filepath = folder&;fname %>
<%'将接受值及路径保持至数据库表 sql = "Select * from c_news" Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open sql,conn,3,2 rs.addnew rs("c_title")=c_title rs("c_content")=c_content rs("c_filepath")=filepath rs.update rs.close Set rs = Nothing %>
<%'打开模板代码,并将其中特殊代码转变为接受值 sql1="select m_id,m_html from c_moban where m_id=1" set rs1=Server.CreateObject("adodb.recordset") rs1.open
sql1,conn,1,1 mb_code=rs1("m_html") rs1.close set rs1=nothing conn.close
set conn=nothing c_title=htmlencode(c_title) c_content=htmlencode(c_content) mb_code=replace(mb_code,"$cntop{LogContent}quot;,now()) mb_code=replace(mb_code,"$cnleft{LogCont