asp to html,ASP TO HTML WITH TEMPLATE

二，再进行数据库设计

目前数据库的设计需要两个表：一个是存放模板数据的；一个是存放信息内容的。

1，建立新数据库asp2html.mdb

2，设计新数据库表c_moban

字段m_id(自动编号，主关键字)；字段m_html(备注类型)。

并将下列完整的代码拷贝至m_html字段

Cnbruce.Com | ASP2HTML TEST

$cntop$
$cnleft$	$cnright$

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, ">", ">")

fString = replace(fString, "

fString = Replace(fString, CHR(32), " ")

fString = Replace(fString, 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

Title:

Content:

出处：蓝色理想

责任编辑：cjj

◎进入论坛网络编程版块参加讨论