做了几年
网页
到处留言千千万用过各种留言本万万千
可惜令我喜欢留言本真少(55555)慢慢速度让我无法忍受丑陋界面让我心烦图标更是让人作呕所以我下决心写
个自己超级留言本阿余半夜起来挑灯奋战忙了整天终于咱“超级留言本1.0”出现了它速度极快
根本就是HTML并没有个冗余代码图标全是根据俺自己 and 俺“那个”绘制还可以随时修改配色方案呵呵不敢独享赶忙写给大家不对地方不要忘了到 www.zydn.net 去骂呀阿余在那里等候你批判 好了
下里具体讲讲我留言本如何做吧(第次写教程还不懂如何开头)为了方便管理
这是个基于数据库留言本
先看看我库结构(ACCESS 2000)库中有 3个表
第个 ly 就是用来放留言啦有12个字段(现在看来用不了这么多我也不想改啦)1姓名 2性别 3地址 4内容(备注) 5时间(日期时间) 6日期(日期时间) 7心情 8ID(自动编号) 9URL 10 URLNAME 11 EMAIL 12 脸
第 2个表 color 用于存放配色方案 有3个字段 1 名称 2 ID(自动编号) 3 方案
第 3
个表 PAS 用来放管理员密码啦但这个安全性没有充分考虑朋友们要自已修改啦首先做
个表单用于录入我们留言存为文件名: index1.htm 代码如下你把他全复制了在FONTPAGE中粘出来就得啦＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
<html>
<head>
<title>卓越留言本-填写留言</title></head>
<body bgcolor=\"#DEEEFE\">
<div><center>
<table border=\"0\" width=\"95%\" height=\"270\" bgcolor=\"#FCFFE6\" style=\"border: 1 solid #000080\">
<tr> <td width=\"100%\" height=\"16\"> <p align=\"center\"><font size=\"5\" color=\"#0000FF\"><b>阿余
超级留言本</b></font></td></tr><tr><td width=\"100%\" height=\"187\">
<form method=\"POST\" action=\"savely.asp\">
<p align=\"left\"> 尊姓大名:<input type=\"text\" name=\"xm\" size=\"33\">**
性别:<select size=\"1\" name=\"xb\">
<option selected>男</option>
<option>女</option>
</select></p>
<p align=\"left\"> 来自:<input type=\"text\" name=\"lz\" size=\"38\">
EMAIL:<input type=\"text\" name=\"ema\" size=\"37\"></p>
<p align=\"left\"> 网站WebSite名:<input type=\"text\" name=\"urname\" size=\"35\">
网址:<input type=\"text\" name=\"urla\" size=\"37\"></p>
<p align=\"left\"> 现在
心情:<input type=\"radio\" value=\"大笑\" checked name=\"xq\">大笑 <input type=\"radio\" name=\"xq\" value=\"愉快\">愉快 <input type=\"radio\" name=\"xq\" value=\"平静\">平静
<input type=\"radio\" name=\"xq\" value=\"忧郁\">忧郁 <input type=\"radio\" name=\"xq\" value=\"痛苦\">痛苦
<input type=\"radio\" name=\"xq\" value=\"发怒\">发怒</p>
<p align=\"left\"> 留言内容:<font size=\"2\">(不能超过200汉字)**</font></p>
<p align=\"center\"><textarea rows=\"5\" name=\"lr\" cols=\"87\"></textarea></p>
<p align=\"center\"><input type=\"submit\" value=\"写好啦\" name=\"B1\"><input type=\"re
\" value=\"重新写\" name=\"B2\"></p> </form> <p align=\"center\"><a href=\"disp.asp\">返回</a></td>
</tr> <tr> <td width=\"100%\" height=\"27\"> </td> </tr><tr> <td width=\"100%\" height=\"16\"> </td> </tr> </table> </center></div> </body> </html>
*************************
然后再写
个把我们这些内容加入到数据库中我就不全写出来啦这样话这篇文章会好长你们只要到 WWW.ZYDN.NET 去下人来就得了文件名是savely.asp注意其中这几个语句:
abcc=len(lr)
sclr=\"\"
absn=1
do while absn<abcc
alsa1=mid(lr,absn,1)
asc(alsa1)=13 then alsa1=\"<br>\" alsa1=\"<\" then alsa1=\"<\" alsa1=\">\" then alsa1=\">\"sclr=sclr+alsa1
absn=absn+1
loop
lr=sclr
这是用来判断用户输入
内容中是否有超文本代码是否有回车并把超 文件“＜”“＞”转为“<”“>”把回车(换行)转为“”
稍加发挥这段可以做不少事如哪位朋友有更好办法不妨告诉我声存完内容后用response.redirect \"DISP.ASP\" 把库中内容显示出来好啦
然后把数据库显出来不就成了个留言本？ 开始时候我也这样想但我发现这要读数据库ASP文件要经ASP.DLL速度很慢这哪还能叫超级留言本！！阿余苦苦思索了整整不知多久(想着想着睡着啦)觉醒来茅塞顿开把数据库
中
东东读出来再用FILESYSTEMOBJECT写为HTML不就行了？读HTML可比读数据库快多啦啊说干就干于是DISP.ASP 这个文件出来啦********************************以下是disp.asp
全部内容<!--#
file=\"color.inc\"--><%
Set Conn=Server.CreateObject(\"ADODB.Connection\")
Connstr=\"DBQ=\"+server.mappath(\"zyly.mdb\")+\";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};\"
Conn.Open connstr
SQL=\"SELECT * FROM ly order by id\"
dim ra
Set ra=Server.CreateObject(\"ADODB.RecordSet\")
ra.Open sql,conn,1,1 \'*****以上用于连接数据库
读出库中内容典型ADO连接ACCESS数据库 ra.eof or ra.bof then %>尚无内容<%
xm=ra(\"姓名\") xb=ra(\"性别\") lz=ra(\"地址\") lr=ra(\"内容\") dat=ra(\"日期\") tim=ra(\"时间\") emai=ra(\"email\") UR=ra(\"URL\") urlname=ra(\"urlname\") lian=ra(\"脸\") biao=ra(\"心情\")i=1
ra.movelast
lylr=\"\"
do while not ra.bof and i<=100 \'由于有这
句 I＜＝100所以本留言最多显示100条留言要显示更多话把这个数改大些就行啦lylr=lylr+\" <table style=\'font-size: 9pt; color: \"+co5+\"; border: 1 solid \"+co3+\"\' border=\'0\' width=\'91%\' bgcolor=\'\"+co2+\"\'><tr><td width=\'19%\' rowspan=\'3\' > <img border=\'0\' src=\'\"+lian+\"\' alt=\'\"+biao+\"\' width=\'33\' ></td><td width=\'41%\'>姓名: \"+xm+\"</td> <td width=\'40%\' >时间:\"+cstr(year(dat))+\"年\"+cstr(month(dat))+\"月\"+cstr(day(dat))+\"日 \"+tim+\"</td></tr><tr>\" %>
<%
trim(emai)<>\"\" then lylr=lylr+\"<td width=\'41%\'>EMAIL: <a href=\'mailto:\"+emai+\"\'>\"+emai+\"</a></td>\"
end
trim(urlname)<>\"\" or trim(ur)<>\"\" then lylr=lylr+\"<td width=\'40%\' >主页:<a href=\'\"+ur+\"\'>\"+urlname+\"</a></td>\"
end
lylr=lylr+\"</tr><tr>\"
trim(lz)<>\"\" then lylr=lylr+\"<td width=\'81%\' colspan=\'2\'>来自: \"+lz+\"</td>\"
end
lylr=lylr+\"</tr><tr><td width=\'100%\' colspan=\'3\'>\"+lr+\"</td></tr></table><table style=\'font-size: 5pt\'><tr><td ></td></tr></table>\"
i=i+1
ra.moveprevious
loop \' 以上把数据库中
内容全读到了lylr变量中篇留言就做好啦这时如用＜%＝LYLR%＞显示出来就是篇不错留言了注意其中不少用颜色地方都换成变量了这是为了好改页面颜色ra.close
end
%><%lylr1=\"<html><head><meta http-equiv=\'Content-Language\' content=\'zh-cn\'><meta http-equiv=\'Content-Type\' content=\'text/html; char
=gb2312\'><title>卓越电脑留言本</title></head><body bgcolor=\'\"+co1+\"\'><div align=\'center\'> <center><table width=\'91%\' cellspacing cellpadding ><tr><td width=\'100%\'><p align=\'center\'><b><font color=\'\"+co4+\"\'>\"+bt+\"</font></b></td></tr></table><table width=\'91%\' cellspacing cellpadding style=\'font-size: 9pt\' bgcolor=\'#FFFFD9\'> <tr><td colspan=\'3\'></td></tr><tr><td align=\'center\'><a href=\'index1.htm\'>写点什么</a></td><td align=\'center\'><a href=\'gl.htm\'>管理版面</a></td> <td align=\'center\'><a href=\'../\'>退出</a></td> </tr></table>\"%><!--#
file=\"path.inc\"--><%
lylr=lylr1+\"<br>\"+lylr+\"<hr width=\'94%\' color=\'\"+co4+\"\' size=\'1\'><table border=\'0\' width=\'91%\' style=\'font-size: 9pt; border-style: solid; border-width: 1\' bgcolor=\'#ADBF9F\'><tr><td width=\'33%\'>此
由重庆市<a href=http://www.zydn.net>卓越电脑公司</a>开发</td> <td width=\'33%\' >EMAIL: <a href=\'mailto:[email protected]\'>[email protected]</a></td><td width=\'34%\'>电话:023-48650340 023-48658712</td></tr><tr><td width=\'33%\'>地址:重庆市綦江县中山路卓越电脑公司</td> <td> 卓越留言本2.0版 </td><td width=\'34%\' >邮编:401420</td></tr></table> </center></div></body></html>\"\'好啦
到这里我们留言内容全部做好啦 fs= createobject(\"scripting.filesystemobject\") ts=fs.createtextfile(\"\"&patha&\"index.htm\",true) \'PATHA是放在PATH.INC中个变量当前路径ts.writeline(lylr) \'建立
个文件并把留言内容(LYLR)写入其中ts.close
response.redirect \"index.htm\" \' 转向我们建立
index.htm 留言显示出来啦%>
***************** 以上是disp.asp
全部内容
开始
<!--# file=\"color.inc\"--> 用于调入留言本配色方案而后<!--# file=\"path.inc\"-->用于调入当前路径下面对color.inc 和 path.inc 作个介绍说明
color.inc 由以后要介绍
个配色方案生成而path.inc
内容如下:<%
patha=server.MapPath(\"path.asp\")
patha=left(patha,len(patha)-8) %>用于取得
存放路径由于要在别地方用所以就写成个单独文件了这个思路方法好象很笨望高手能教教阿余
最新评论