|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.显示 如今良多人用Access数据库完成文章显示体系,因为Access数据库自己的缺点,用一个字段寄存文章内容,我觉得关于会见量
大,文章数量多的网站,很轻易发生毛病,此举是极不明智的,经由实践对照,笔者得出另外一种完成文章体系的办法,那就是采
用Access+文本文件 的形式.个中Access数据库用来存每篇文章的普通信息,而文本文件用来寄存详细文章内容.详细完成方
法完成以下:
先用Access创立一个数据库wzozg,外面只要一个表ozg,寄存文章普通信息,字段以下:
字段名 类型 寄义
wid 主动编号 文章id号
wsubject 文本 文章题目
wname 文本 寄存文章内容的文本文件名
wcount 数字 文章会见次数
wdate 工夫 文章到场工夫
wauth 文本 文章作者
wsource 文本 文章来历
'个中wid与wname独一对应,如wid=10,则wname="wz-10.asp",若wid=n,则wname="wz-n.asp"
以下是文章添加,删除,和完成文章题目列表显示,每篇文章详细内容显示的关头代码段:
1.文章添加
1)wzadd.html
<form method="post" action="add.asp">
<p>文章题目:<input name="isubject" size="45" maxlength="30"></p>
<p>文章作者:<input name="iauth" size="45" maxlength="30"></p>
<p>文章来历:<input name="isource" size="45" maxlength="30"></p>
<p>文章内容:</p>
<textarea cols="80" name="icontent" rows="16"wrap="VIRTUAL"></textarea></p>
<p><input type="submit" value="完 成" name="submit">
<input type="reset" value="重 写" name="reset"></p>
</form>
2)add.asp
<%sj=now() '前往体系工夫
isubject= Request.Form("isubject")
icontent = Request.Form("icontent")
iauth= Request.Form("iauth")
isource = Request.Form("isource")
dim xwzlr()
n=0
for i = 1 to len(icontent)
zh =mid(icontent,i,1)
xzh=server.htmlencode(zh) '使字符不撑持html语法
redim preserve xwzlr(n)
xwzlr(n)=lrtemp '使add.html中表单form中textarea一行一行分离存在数组中
if asc(xzh)=10 then
n=n+1
lrtemp=""
redim preserve xwzlr(n)
end if
lrtemp = lrtemp + zh
next
'毗连数据库
set dbconn=server.createobject("adodb.connection")
conpath="DBQ=" &server.mappath("wzozg.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & conpath
'新增文章
iozg="wz-"
sql="INSERT INTO ozg(wsubject,wname,wcount,wdate,wauth,wsource) Values
('"&isubject&"','"&iozg&"',0,'"&sj&"','"&iauth&"','"&isource&"')"
dbconn.Execute(sql)
sql="update ozg set wname='wz-'&cstr(wid)&'.asp' " '若文章id=n (n=0,1,2,...),则使 寄存文章内容的文本文件
名为 "wz-n.asp",即id号与文本文件名独一对应
dbconn.Execute(sql)
sql="select wcontent from ozg "
set rs=server.createobject("adodb.recordset")
rs.open sql,dbconn,3,1
rs.movelast
iozg=rs("wcontent") '获得文本文件名"wz-n.asp"
rs.close
dbconn.Close
thisfile = server.mappath(iozg)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set outfile = fs.CreateTextFile(thisfile) '创建文本文件"wz-n.asp" (n=0,1,2,...)
for i=0 to n step 1
outfile.WriteLine xwzlr(i) '把数组中的文章内容逐行写入文本文件"wz-n.asp"中
next
outfile.close
set fs=nothing
%>
---------------------------------------------------
writen by aspboy and powered by http://easp.126.com
</p> 缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|