ASP操作版留言板

第一步，设计版面，你可以自己大脑里构思或者用PHOTOSHOP设计，这是我的设计图：
              

第二步：用Dreamweaver或者Frontpage（我是用Frontpage的）打开ly.html然后在里面做出留言板的框架，至于做框架的步骤我就不说了，如果这个都不会那我实在不好说了，然后再定义一下CSS，如下图：


第三步：做好了框架以后切换到代码编辑模式，在代码最顶端加入如下代码：
<%@LANGUAGE="VBScript" codepage="936"%>

<!--#include file="conn.asp"-->

<%

set rs=server.createobject("adodb.recordset")

sql="select user,qq,shijian,neirong,huifu,yc,id from main order by id desc"

rs.open sql,conn,1,1

rs.pagesize=20 '是行数

tatalrecord=rs.recordcount

tatalpages=rs.pagecount

rs.movefirst

nowpage=request.querystring("page")

if nowpage&"x"="x" then

nowpage=1

else

nowpage=cint(nowpage)

end if

rs.absolutepage=nowpage



n=1

%>

第四步：在代码编辑模式下找到“测试一下”字样，将其替换为<%=rs("user")%>,找到“哈哈哈”字样，将其替换为<%=rs("neirong")%>，找到“1111”字样，将其替换为<%=rs("qq")%>,找到“2009”字样，将其替换为<%=rs("shijian")%>,找到“第1条留言”字样里的“1”，将其替换为<%=rs("id")%>,找到“笑什么笑”字样，将其替换为<%=rs("yc")%><%=rs("huifu")%>。

第五步：切换回设计编辑模式，将姓名后面的文本框名称改成user，初始值为：匿名，将QQ后面的文本框名称改为qq，将内容后面的多行文本框名称改为neirong,并将action的值改成gyzzsave.asp。

用Frontpage的切换到代码编辑模式找到字段，将下面那段灰色的注释删除，并把--WEBBOT-SELF--改成
gyzzsave.asp

用DW的在这里设置即可


第六步：在“站长回复”下面插入一个新行，并切换到代码编辑模式中原位加入以下代码：
共<%=tatalpages%>页 当前为第<%=nowpage%>页

<%if nowpage>1 then%>

<a href="gyzz.asp?page=<%=nowpage-1%>">上一页</a>

<%else%>

上一页

<%end if%>

<%for k=1 to tatalpages%>

<%if k<>nowpage then %>

<a href="gyzz.asp?page=<%=k%>"><%=k%></a>

<%else%>

<%=k%>

<%end if%>

<%next%>

<%if nowpage < tatalpages then%>

<a href="gyzz.asp?page=<%=nowpage+1%>">下一页</a>

<%else%>

下一页

<%end if%>

<%if nowpage<>1 then%>

<a href="gyzz.asp?page=<%=1%>"> 首页</a>

<%else%>

首页

<%end if%>

<%if nowpage<>tatalpages then %>

<a href="gyzz.asp?page=<%=tatalpages%>">末页</a>

<%else%>

末页

<%end if%>
              

最终效果如图：

第七步：插入一条循环代码，循环代码是什么意思呢？就是将数据库里的内容逐条显示出来，如果不加这代码那么页面里永远只会有1条最新的留言信息，知道原理了，那么就在需要循环显示留言的前面加入<%
Do While Not rs.eof and n<=rs.pagesize %>在留言末尾加入<% n=n+1 rs.movenext Loop %>如图示：
              
              
OK，保存文件，命名为gyzz.asp。

第八步：新建一个空的HTML文档，在里面插入如下代码：



<%@LANGUAGE="VBScript" codepage="936"%>

<!--#include file="conn.asp"-->

<%

set rs=server.createobject("adodb.recordset")

sql="select user,qq,neirong from main"

rs.open sql,conn,1,3

rs.addnew

user=request.form("user")

qq=request.form("qq")

neirong=request.form("neirong")

nr=request.form("nr")

rs("user")=user

rs("neirong")=neirong

rs("qq")=qq

if neirong="" then

response.Write("<script language=javascript>alert('请填写留言内容!');history.go(-1)</script>")


else

rs.update

rs.close

set rs=nothing

conn.close

set conn=nothing

response.write ("<script language='javascript'>alert('留言成功！');location='gyzz.asp';</script>")


end if

%>  
保存文件，命名为gyzzsave.asp。

第九步：新建一个空的HTML文档，在里面插入代码：



<%

set conn=server.createobject("adodb.connection")

connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("da#ta.mdb")

conn.open connstr

%>
保存文件，命名为conn.asp

===================================================================================================
前台留言ASP编写部分结束，数据库编写部分开始。
===================================================================================================

第十步，打开ACCESS数据库，2000、2003等版本都行。选择使用设计器创建表，并双击。





第十一步：输入图示内容，并将shijian字段的数据类型默认值设定为Now()
,
设定完毕以后保存此表并命名为main,然后关闭对话框，打开你刚刚设置好的main表，随意的输入一点内容，以备测试使用，保存退出数据库命名为：da#ta.mdb。





好了，运行一下你的gyzz.asp看看留言正确显示了吗？所创建的所有文件都必须和gyzz.asp在同一文件夹，否则无法显示，除非你更改路径。
==================================================================================================
前台设计完毕，如果你的留言正确显示了，那么就请看下面，如果没有正确显示，请返回仔细研究一下是不是哪里做错了。
==================================================================================================
有了前台留言，那当然需要做一个后台管理系统啦，那么开始吧:

第十二步：设计一个后台登录界面，自己定义好CSS以后，老样子，将帐号后的文本框更改名称为admin密码文本框更改名称为password，然后设置为密码域。切换到代码编辑模式将action指向yanzheng.asp，具体步骤省略，上面已介绍。保存文件退出，命名为denglu.asp。

第十三步：新建HTML文件，在文件内插入代码：



<%@LANGUAGE="VBScript" codepage="936"%>

<!--#include file="conn.asp"-->

<%

admin = request.form("admin")

password = request.Form("password")

sql="select * from admin where admin='"&admin&"'and password='"&password&"'"

set rs=server.CreateObject("adodb.recordset")

rs.Open sql,conn,1,1

If not(rs.bof and rs.eof) Then

admin = rs("admin")



session("admin")=admin

session("denglu")="yes"

session.Timeout=600

rs.Close

conn.Close

set rs=nothing

response.redirect("gl.asp")

else

rs.Close

conn.Close

set rs=nothing

response.write ("<script language='javascript'>alert('用户名或者密码不正确！');location='denglu.asp';</script>")

End If

%>



保存退出，命名为yanzheng.asp


第十四步：建立一个HTML文件，在此文件内做出一个留言列表显示，







由此图可以看出，这个跟填写列表基本上一样，唯一的区别就是，它多了一个回复和删除功能。所以你完全可以把gyzz.asp页面复制一份，改一下文件名为gl.asp然后略微修改一下变成这样的效果。然后将“回复”字样超链接到huifu.asp?id=<%=rs("id")%>，将“删除”字样超链接到DEL.asp?id=<%=rs("id")%>，为了安全起见切换到代码编辑模式在最顶端加入<%if session("admin")<>"" then%>代码，再在最底端加入<% else response.Redirect("denglu.asp") end
if%>做好以后保存退出命名为gl.asp

第十六步：建立一个新的HTML文件，在文件内加入代码：



<%if session("admin")<>"" then%>

<%

id=request("id")

%>

<div align="center">

<table border="0" width="44%" id="table1" cellspacing="0" cellpadding="0">

<tr>

<td>

<form action="liusave.asp" method="POST">

<p><textarea rows="12" name="huifu" cols="49" id="hf"></textarea><input
type="submit" value="提交" name="B1"><input type="reset" value="重置"
name="B2"><input type="hidden" value="站长回复：" name="yc"><input name="id"
type="hidden" id="id" value="<%=id%>" /></p>

</form>

<p>　</td>

</tr>

</table>

</div>



</body>



</html>

<%

else

response.Redirect("denglu.asp")

end if%>
保存文件，命名为huifu.asp

第十六步：建立一个新HTML文件，在文件内加入代码：



<%@LANGUAGE="VBScript" codepage="936"%>

<!--#include file="conn.asp"-->

<%

id=request("id")

set rs=server.CreateObject("adodb.recordset")

sql="select * from main where id="&id

rs.open sql,conn,1,3

huifu=request.Form("huifu")

yc=request.Form("yc")

rs("huifu")=huifu

rs("yc")=yc

rs.update

rs.close

set rs=nothing

conn.close

set rs=nothing

response.Write"<script>alert('回复成功');location=""gl.asp"";</Script>"

%>
保存退出，命名为liusave.asp

第十七步：建立一个新的HTML文件，在文件内加入代码：



<%@LANGUAGE="VBScript" codepage="936"%>

<!--#include file="conn.asp"-->

<%

set rs=server.createobject("adodb.recordset")

id=Request.QueryString("id")

sql="select * from main where id="&id

rs.open sql,conn,2,3

rs.delete

rs.update

response.write ("<script language='javascript'>alert('删除留言成功！');location='gl.asp';</script>")


%>
保存退出，命名为DEL.asp

===================================================================================================
后台ASP编写结束，后台数据库密码编写开始。
===================================================================================================
后台做好了，当然需要帐号密码啦

第十八步：打开刚刚的da#ta.mdb数据库文件，按照老方法，使用设计器创建表—并写入如图内容，保存名为admin，关闭表。双击打开admin表，在admin下面写上你的帐户名，password下面写上你的密码保存退出。
好了，程序全部写完了，那么开始将它和你的网站系统链接吧。

===================================================================================================
留言板编写结束
===================================================================================================