http://www.g5m6.com/blog/ PJBlog2 2009-08-16T23:04:07+08:00 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2009-08-16T23:04:07+08:00 2009-08-16T23:04:07+08:00

2008年作品集
-----------------------------------------------


2008.9 加莱国际


2008.8 大众留学


2008.7 留美网站


2008.5 财经网


2008.1 鬼马flash全站

2007年作品集
-----------------------------------------------

http://www.baijinhangong.com
2007.12 白金汉宫SPA


http://www.455.com.cn
2007.11 美和医院


http://www.91djj.com
2007.10 烈龙改版


http://www.wz-design.cn
2007.9 伍周建筑


http://www.zx1z.com
2007.8 装修一族


http://www.g5m6.com
2007.8 鬼马视觉新版


http://www.body-qianti.com
2007.7 波的纤体内衣


http://www.shiyiex.cn
2007.6 诗怡展示


http://www.lihaha.com
2007.5 安亚集团-礼哈哈网


http://www.51baocai.com/shop
2007.4 包菜连锁商城


http://www.winsail-entertaiment.com
2007.3 陨石娱乐


http://www.holdmyhand.cn
2007.1 携手网


2006年作品集
-----------------------------------------------


http://www.xooyoo.com
2006.11 中国校友联盟


http://www.body-expert.com
2006.8 波的电子


http://www.yarn-china.com
2006.6 中国毛纱网


http://www.91djj.com
2006.4 烈龙电子


http://www.aozad.com
2006.1 奥众广告
]]>

http://www.g5m6.com/blog/default.asp?id=10 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-11-17T10:02:43+08:00 2008-11-17T10:02:43+08:00

http://www.vertustech.com/blog/2008/02/11/32/]]>

http://www.g5m6.com/blog/default.asp?id=118 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-11-06T23:37:19+08:00 2008-11-06T23:37:19+08:00

http://video.pomoho.com/ent/1771856]]>

http://www.g5m6.com/blog/default.asp?id=116 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-11-06T23:20:36+08:00 2008-11-06T23:20:36+08:00

继续努力，blog已经杂草丛生了，呵呵，有空打理下，忙些感觉比较充实，虽然有些时候是挺烦躁的，但是有目标，回头看看自己的设计水平和其他的一些进步还是很开心的。还有许多不足。加油。
]]>

http://www.g5m6.com/blog/default.asp?id=115 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-10-18T23:11:48+08:00 2008-10-18T23:11:48+08:00

]]>

http://www.g5m6.com/blog/default.asp?id=114 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-10-02T21:11:11+08:00 2008-10-02T21:11:11+08:00

]]>

http://www.g5m6.com/blog/default.asp?id=109 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-09-30T22:25:35+08:00 2008-09-30T22:25:35+08:00

创建数组：可以用下列格式创建数组

格式一：

var
数组名:Array=new Array(元素1,元素2,……)
格式二: var
数组名:Array=new Array();

数组名[0]=值;

数组名[1]=值;

…
例:我们上面建的数组,这样写

var myarray:Array=new Array(5,8,a);
或:
var myarray:Array=new Array();

myarray[0]=5;

myarray[1]=8;

myarray[2]="a";

数组元素的引用 创建数组后,就可以引用其元素了，格式为：

数组名称[元素编号];
比如要引用上述数组第一个元素的值就可以这样写:
myarray[0]
可以测试一下下面这段代码:

var myarray:Array=new Array(5,8,a);

var b=myarray[0];

trace(b);
输出应该是5.
数组是对象,即是对象,那么就有它自已的属性和方法,下面我们就来认识一下:

数组的属性：只介绍一个属性, length:这是指组数的元素的数量.如上面的数组,myarray一共有三个元素5,8,a,那么这个数组的length属性为3

例1: var myarray:Array=new Array(5,8,a);

b = myarray.length;

trace(b);

输出结果为3.

For....in循环：在上一课介绍循环语句时,说过for....in循环留到这一课来介绍.这个循环是遍历一个集合的所有对象的循环,比如遍历数组元素.就是说一个一个地方问每一个元素.数组中有几个元素它就循环几次

例2: var myarray:Array=new Array(5,8,"a");

for (var i in myarray){


b = myarray;

trace(b);

}
输出结果为:a

8

5
例3:用for循环和length属性也可以实现遍历数组:

var myarray:Array=new Array(5,8,"a")

for(var i=0;i<myarray.length;i++){


b = myarray;

trace(b);

}

输出结果为:5,8,a
可以看出,这两个循环都是将数组中的循环方问了一遍,只是结果的顺序不同.例2中应用了数组的length属性,这个属性最常用的就是用在for循环中,在以后的课程中会经常用到.

数组的方法：

concat( )：

将参数中指定的元素与数组中的元素连接，并创建新的数组。如果 value 参数指定的是数组，则连接该数组的元素而不是数组本身。
例4: var myarray:Array=new Array(5,8,"a")
myarray1 = myarray.concat("b");

for(var i in myarray1){

c = myarray1;

trace(c);


}
输出为:b

a

8

5
用myarray1 = myarray.concat("b");将b连接到myarray数组中并创建新数组myarray1.
例5: var myarray:Array=new Array(5,8,"a")

myarray1 = myarray.concat("b");

myarray2 = myarray.concat(myarray1);

for(var i in myarray2){

c = myarray1;

trace(c);


}
这时myarray2应该是:myarray2[5,8,a,5,8,a,b],这是用concat()方法将两个数组连接起来了

资料引用:http://www.knowsky.com/441740.html
join( ): 将数组中的元素转换为字符串、在元素间插入括号中指定的分隔符、连接这些元素然后返回结果字符串。如果括号中没有指定分隔符,那么分隔符将用逗号.
例6: var myarray:Array=new Array(5,8,"a");

c = myarray.join(“-“);

trace(c);
输出为:5-8-a
例7:在括号中不设分隔符则将用逗号作分隔符

var myarray:Array=new Array(5,8,"a");

c = myarray.join( );

trace(c);
输出为:5,8,a

pop():删除数组中最后一个元素，并返回该元素的值。
例7: var myarray:Array=new Array(5,8,"a");

var c = myarray.pop();

trace(“被删的是:” + c);

trace(“被删后的数组:” + myarray);
输出结果是: 被删的是:a
被删后的数组:5,8

push():将一个或多个元素添加到数组的结尾，并返回该数组的新长度。
例8: var myarray:Array=new Array(5,8,"a");

var c = myarray.push(“b”,”c”);

trace(“添加元素后数组的长度是:”+c);

trace(“添加元素后的数组:”+myarray);
输出结果是:
添加元素后数组的长度是:5
添加元素后的数组:5,8,a,b,c

reverse():就地倒转数组。

例9: var myarray:Array=new Array(5,8,"a");

trace(原数组是:+myarray);

myarray.reverse();

trace(被倒转后的数组是:+myarray);
输出结果是: 原数组是:5,8,a
被倒转后的数组是:a,8,5

shift()：删除数组中第一个元素，并返回该元素。

参见pop()方法

slice（startIndex, endIndex）：

返回由原始数组中某一范围的元素构成的新数组，而不修改原始数组。返回的数组包括 startIndex
元素以及从其开始到 endIndex
元素（但不包括该元素）的所有元素。例10:
var myarray:Array=new Array(1,2,3,4,5);
var myarray1:Array = myarray.slice(0,3);
trace(myarray1);输出结果是:1,2,3sort():

对数组中的元素进行排序。Flash 根据 Unicode 值排序。（ASCII 是 Unicode 的一个子集。）
默认情况下，Array. sort()
按下面的列表中的说明进行排序：

* 排序区分大小写（Z
优先于 a）。
* 按升序排序（a
优先于 b）。
* 修改该数组以反映排序顺序；在排序后的数组中不按任何特定顺序连续放置具有相同排序字段的多个元素。
* 数值字段按字符串方式进行排序，因此 100 优先于 99，因为 "1" 的字符串值比 "9" 的低。

例11: var myarray:Array=new Array(3,4,1,2,5);
myarray.sort();
trace(myarray);输出为:1,2,3,4,5 对数组进行了重新排序.
splice(startIndex, [deleteCount], [value]):

给数组添加元素以及从数组中删除元素。此方法会修改数组但不制作副本。
参数startIndex:― 一个整数，它指定插入或删除动作开始处的数组中元素的索引。您可以指定一个负整数来指定相对于数组结尾的位置（例如，-1 是数组的最后一个元素）。

deleteCount： [可选] ― 一个整数，它指定要删除的元素数量。该数量包括 startIndex
参数中指定的元素。如果没有为 deleteCount
参数指定值，则该方法将删除从 startIndex
元素到数组中最后一个元素之间的所有值。如果该参数的值为 0，则不删除任何元素。

value： [可选] ― 指定要在 startIndex
参数中指定的插入点处插入到数组中的值。

例12:var myarray:Array=new Array(1,2,3,4,5);

myarray.splice(1);

trace(myarray);
输出结果为:1.本例在splice()方法中只用了一个参数1,这是指在插入或删除的位置,数组编号从0开始,那么1的位置是第2个元素.第二参数未设置则将删除从第2个元素开始的所有元素.第三个参数未设置则不插入新元素.所以执行后数组中就只剩下第0号元素了.
例13: var myarray:Array=new Array(1,2,3,4,5);

myarray.splice(1,2);

trace(myarray);
输出结果是:1,4,5
本例用了两个参数,第2个参数是2,就是说将删除2个元素.
例14: var myarray:Array=new Array(1,2,3,4,5);

myarray.splice(5,0,6);

trace(myarray);
输出结果是:1,2,3,4,5,6
本例用了三个参数,第一个参数为5,则是在数组的第6个位置上执行操作,第二个参数是是0,是不删除任何元素.第三个参数是6,是插入一个新元素6.

unshift()：将一个或多个元素添加到数组的开头，并返回该数组的新长度
参见push()方法

资料引用:http://www.knowsky.com/441740_1.html]]>

http://www.g5m6.com/blog/default.asp?id=113 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-09-30T22:13:35+08:00 2008-09-30T22:13:35+08:00

for(初值;条件表达式;增值){

要执行的语句

}
这个语句,首先给一个变量设定一个初始值,然后将这个初始值带入条件表达式,如果条件表达式为真,则执行大括号中的语句,并且按括号中增值表达式对变量的值进行增减;然后再次带入条件表达式,如果为真则再次执行大括号中的语句.…,这样直到条件表达式为假为止.

例:var a=0;

for(var i=0;i〈10;i++){

a += i;

}

trace(a);
我们来看看最后输出的a是多少.程序开始时,a等于0,然后进入for循环,循环开始i等于0,条件表达式i<10成立,那么执行a+=i,此时a、 i均为0,那么a为0,然后执行增值i++,则i为1,再检测条件表达式i〈10仍成立,执行a+=i,则a为1;执行i++,i为2……,这样反复循环,直到i为10时,条件表达式i〈10不成立,停止循环.明显可以看出循环进行了10次,这时a是多少呢?测试影片时输出为45

for…in循环：这是遍历或者叫循环访问一个组对象中的成员.比如影片剪辑的子级、对象的属性、数组等.由于数组等在前面还没有介绍,因此我们将for…in循环放到下一课介绍数组时再祥细介绍

while循环:有点类似if语句,只要条件成立就执行相应语句.


格式:
while(条件表达式){

要执行的语句

计数语句

}
当条件表达式为真时,执行大括号中的语句,执行计数语句,然后用计数语句的结果再次检测条件表达式,如此反复循环.直到条件表达式为假为止.这里需要注意的是,如果没有计数语句,或者计数语句的结果永远不能使条件表达式为假,那么循环将水远无休止地反复,这就形成了一个死循环,我们在编程的过程中一定要避免这种情况.

资料引用:http://www.knowsky.com/441739.html]]>

http://www.g5m6.com/blog/default.asp?id=112 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-09-30T22:08:59+08:00 2008-09-30T22:08:59+08:00

然后点右键属性，再点“安全”，点“添加”，再点“高级”，再点“立即查找”，然后会列出一大堆有户，你选择IUSER开头的那个点确定，即添加了INTERNET来宾帐号，再选中这个号，在下面设置一下这个帐号的权限，可把左边那一列全部勾上。然后再测试一下IIS，没问题了。当然这些的前题都是你的盘格式为NTFS,如果是FAT32应该不会出现这些问题。
]]>

http://www.g5m6.com/blog/default.asp?id=111 g5m6 http://www.g5m6.com/blog/ mm0704@163.com 2008-09-30T22:01:04+08:00 2008-09-30T22:01:04+08:00

所以，梦想着那么大段的程序代码变成几个简单的字符代替，这样只要设计好页面把该功能插入就OK了。其实这也简单，只需将实现该功能的程序代码做成子程序，然后主页调用就可以了。

那下面偶就借花献佛，将模板拿来分析，以馈各位朋友。

首先，模板需要在线修改，则应采用数据库保存模板代码

所谓的模板，就是设计完工的标准的HTML代码，其中需要由程序实现的功能部分将采用特殊字符串代替。然，这些特殊字符串需要在显示的时候被编译为对应的功能。

1，设计数据库testmb.mdb
新建表moban：字段m_id（自动编号，主关键字）；字段m_html（备注类型）

2，假设第一模板内容代码

将下列代码拷贝到m_html字段中


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>testmb</title>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" cellpadding="5" cellspacing="2">
<tr align="right" bgcolor="#CCCCCC">
  <td height="20" colspan="2">$cntop$</td>
</tr>
<tr valign="top">
  <td width="25%" bgcolor="#e5e5e5">$cnleft$</td>
  <td width="74%" bgcolor="#f3f3f3">$cnright$</td>
</tr>
</table>
</body>
</html>




注意$cntop$、$cnleft$、$cnright$，它们将要实现某些具体的程序功能

3，建立数据库连接文件conn.asp



<%
set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("testmb.mdb")
conn.Open connstr
%>




4，建立特殊字符串转换所需要的库文件lib.asp

该文件的主要作用是将实现某些功能的ASP程序做成字程序，以方便调用。



<%
dim topcode
sub cntop()
  topcode="现在时间是："
  topcode=topcode&now()
end sub

dim leftcode,i
sub cnleft()
  for i = 1 to 5
  leftcode=leftcode&"<p>cnbruce.com"
  next
end sub

dim rightcode
sub cnright()
  for i = 1 to 9
  rightcode=rightcode&"<hr color="&i&i&i&i&i&i&">"
  next
end sub
%>




5，最后，调用数据库中的模板代码，将特殊字符串转换。



<!--＃i nclude file="conn.asp" -->
<!--＃i nclude file="lib.asp" -->
<%
sql="select * from moban where m_id=1"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
mb_code=rs("m_html")
rs.close
set rs=nothing

cntop()
mb_code=replace(mb_code,"$cntop$",topcode)
cnleft()
mb_code=replace(mb_code,"$cnleft$",leftcode)
cnright()
mb_code=replace(mb_code,"$cnright$",rightcode)

response.write mb_code
%>

该页主要作用是将模板代码进行显示，并将其中的特殊代码转变为相对应子程序功能。

至此，ASP的模板功能基本完成，剩下的就是：建立具备编辑模板功能的程序页面，将库文件改变为自己所需要程序功能……

看完基本的制作原理后我们再看看一个具体的用模板实现asp生成静态页方法。



ASP2HTML WITH TEMPLET

我希望大家看到该标题就能让想象到它的功能：

1，WITH TEMPLET意思是，生成的页面架构将采用某个已设定的模板，在此之前我的一篇教程中介绍过，希望各位在看本教程之前对ASP采用模板应熟悉下。（当然，不看也没有问题，本教程同样会提及精华部分的：）具体参考：http://www.cnbruce.com/blog/showlog.asp?cat_id=26&log_id=474

2，ASP2HTML。不要我再说ASP转变成HTML的好处了吧，呵呵，其中最值得知道的就是：静态HTML页和动态页对服务器的要求承受能力小得多，同样，静态HTML搜索几率远比动态页面的多得多。

那么，我现在需要处理的技术问题就是：
1，如何实现模板技术？（先参看下上篇文章吧）
2，如何实现2HTML技术？
3，如何让模板技术与2HTML技术结合？

一、先进行技术原理分析

1，模板技术参看 www.cnbruce.com/blog/showlog.asp?cat_id=26&log_id=474

2，2HTML技术又该如何实现呢？如何使得ASP页面转变为HTML？一般都会想到FSO组件，因为该组件能新建任何文件格式。

那么其整个运行过程是怎么样的呢？
a，提供信息输入页面进行信息收集；
b，接受信息值先保存数据库，再FSO生成文件；
c，技术性完成任务，显示刚被创建的HTML文件的路径地址。

该技术的实现过程中有如下几个难点：

i，FSO生成的文件是直接放在一个大文件夹下，还是单独放在某个每日更新的子文件夹中？可能表述不准确，这样理解吧：相信通过FSO生成的文件随着时间的推移，文件会越来越多，管理也会越来越乱……通常你可能看到一些地址诸如 www.xxx.com/a/2004-5-20/200405201111.html 可以分析得出应该是建立了当前日期的文件夹。这样，一天就是一个文件夹的页面内容，查看管理也就显得比较合理。

ii，我在试图通过以上方法建立文件夹的时候，又发现了第二个问题。第一次通过FSO建立以当前日期命名的文件夹，没有问题。当我有新的文件需要生成时，因为是同一个程序，所以，其又将会执行建立同样的文件夹。此时，FSO组件会发现该路径已存在……卡壳-_-! 继续处理，在首行添加代码：


引用:

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

On Error Resume Next



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




嘿嘿，达到自欺欺人、掩耳盗铃的效果。

当然规矩的用法是判断文件夹的有无


引用:

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

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(Server.MapPath(folder))) then
‘判断如果存在就不做处理
else
‘判断如果不存在则建立新文件夹
fso.CreateFolder(Server.MapPath(folder))
end if
%>



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




iii，文件夹是建立了，文件该如何建立呢？主要也就是文件名的生成。当然这个就需要自己来写个函数，功能就是如何生成文件名：）


引用:

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

<%
function makefilename(fname)
fname = 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 & ".html"
end function
%>

引用函数则：
<%fname = makefilename(now())%>


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




其实嘛，就是以年月日时分秒命名的文件。

iv，最后，生成的文件该如何查看到？当然需要把生成文件的路径保存的数据库中，并且添加到相对应的记录集中了。当然，这在下面的数据库设计时会提及到。

3，模板技术和2HTML技术的结合：将模板中特殊代码的值替换为从表单接受过来的值，完成模板功能；将最终替换过的所有模板代码生成HTML文件。需要注意的是：替换应能将输入数据的格式或者支持UBB的代码彻底改变。


二，再进行数据库设计

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

1，建立新数据库asp2html.mdb

2，设计新数据库表c_moban
字段m_id（自动编号，主关键字）；字段m_html（备注类型）。
并将下列完整的代码拷贝至m_html字段


引用:

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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=hz">
<title>Cnbruce.Com | ASP2HTML TEST</title>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" cellpadding="5" cellspacing="2">
<tr align="right" bgcolor="#CCCCCC">
<td height="20" colspan="2">$cntop{LogContent}lt;/td>
</tr>
<tr valign="top">
<td width="25%" bgcolor="#e5e5e5">$cnleft{LogContent}lt;/td>
<td width="74%" bgcolor="#f3f3f3">$cnright{LogContent}lt;/td>
</tr>
</table>
</body>
</html>


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




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(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<br>")
fString = Replace(fString, CHR(10), "<br>")
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


引用:

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

<form action="addit.asp" method="post">
Title:<input type="text" name="c_title"><br>
Content:<br>
<textarea name="c_content" rows="8" cols="30"></textarea><br>
<input type="submit" value="Add">
<input type="reset" value="Reset">
</form>



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




5，处理数据功能显示页面addit.asp
首先是处理接受过来的数据，并将值写入数据库；接着将模板代码进行引用，并将其中特殊代码转换为接受值，最终通过FSO生成HTML页面。其中需要注意的还有，生成文件的路径地址保存至数据库表。


引用:

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

<%‘容错处理
On Error Resume Next
%>

<!--＃i nclude file="conn.asp" -->
<!--＃i nclude file="lib.asp" -->

<%‘接受传递值
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{LogContent}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
%>

文章添加成功，<a href="/showit.asp">浏览</a>


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




6，显示数据库表记录，并做指向HTML页的链接：showit.asp


引用:

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

<!--＃i nclude file="conn.asp" -->
<!--＃i nclude file="lib.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 ("暂时还没有文章，<a href="/add.html>";添加</a>")
else
Do Until rs.EOF
%>
<table width="758" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000">
<tr>
<td width="159" align="right" bordercolor="#CCCCCC" bgcolor="#CCCCCC"><%=rs("c_time")%></td>
<td width="591" bordercolor="#f3f3f3" bgcolor="#f3f3f3"><a href="/<";%=rs("c_filepath")%> target="a_blank"><%=rs("c_title")%></a></td>
</tr>
<tr>
<td valign="top" align="right" bordercolor="#ececec" bgcolor="#ececec">[<a href="/del.asp?c_id=<";%=rs("c_id")%>>Dell</a>][<a href="/change.asp?c_id=<";%=rs("c_id")%>>Edit</a>][<a href="/add.html">Add</a>]</td>
<td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><%=htmlencode(rs("c_content"))%></td>
</tr>
</table><br>
<%
rs.MoveNext
Loop
end if
%>

<%
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>



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




7，修改数据内容页change.asp

修改数据内容，同时也需要修改更新对应的HTML页面。修改其实就是重新生成文件，且文件名和之前一样，类似文件的覆盖。


引用:

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

<!--＃i nclude file="conn.asp" -->
<!--＃i nclude file="lib.asp" -->

<%id=request.querystring("c_id")%>

<%
if request.form("submit")="change" then
c_title=request.form("c_title")
c_content=request.form("c_content")
c_id=request.form("c_id")
c_filepath=request.form("c_filepath")

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from c_news where c_id="&c_id
rs.Open sql,conn,3,2
rs("c_title")=c_title
rs("c_content")=c_content
rs("c_time")=now()
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{LogContent}quot;,c_title)
mb_code=replace(mb_code,"$cnright{LogContent}quot;,c_content)
%>

<%‘生成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页面也需删除。代码如下：


引用:

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

<!--＃i nclude 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了。


不管怎么说，先把这些技术自己调试感受下。多多操作，相信“读书千遍，其意自见”。
]]>

http://www.g5m6.com/blog/default.asp?id=110