html5留⾔板⽹页设计,⽹页设计制作-留⾔板
制作留⾔板
1、留⾔板分为填加留⾔、保存留⾔、显⽰留⾔、管理留⾔等模块。显⽰留⾔页⾯应为系统默认页⾯或⾸页，管理页⾯由站长进⾏回复与删除管理。
2、⽂件说明：default.asp(留⾔显⽰页⾯)显⽰留⾔按时间的降序排列。
add.asp(添加留⾔页⾯)将留⾔信息存⼊数据库。
admin.asp(管理页⾯)显⽰留⾔并提供站长回复和删除功能。
del.asp(删除页⾯)
reply.asp(站长回复页⾯)
login.asp(管理登陆页⾯)
html网页设计的标题error.htm(登陆错误页⾯)
3、(1)建⽴数据库board.mdb(message admin两个表)message表的字段变量：name、subject、content、oicq、homepage、time、email、reply；admin表的字段变量：admin、password
其中time的默认值：now();reply的默认值：“---尚⽆回复---”content、reply字段类型为备注型，name、subject、content为必添字段。
(2)设置ODBC系统DSN，并指定数据库路径。
4、编辑default.asp,
(1) 先建⽴conn.asp连接⽂件。
(2)、建⽴记录集，打开绑定⾯板选择记录集
记录集名为rsGuestBook，连接选择　conn，数据表选择message并按ID字段降序排列。
(3)、绑定数据，打开绑定⾯板，将姓名、留⾔的动态数据绑定到相应位置(插⼊到相应位置)。
(4)、图⽚连接效果，A、选择图⽚点击link右边的"浏览⽂件"图标弹出"选择⽂件"对话框选择　"数据源"弹出记录集的全部变量，选择相应变量进⾏连接；B、选择图⽚，在绑定⾯板点击动态数据"name"，点击"绑定"，选择"img.alt"，在替代框内填加说明⽂字。
(5)、添加重复区域⾏为，选择要做重复区域的表格(留⾔数据)，打开服务器⾏为的重复区域。
(6)、填加导航(打开服务器⾏为，插⼊动态⽂本)；
(7)、填加记录集导航信息(打开插⼊菜单选择应⽤程序对象插⼊记录集导航条)；
５、编辑add.asp
(1)、验证表单(⾏为-->检查表单)；
(2)、Insert Record 服务器⾏为；然后页⾯跳转到default.asp
６、编辑admin.asp，建⽴记录集rsGuestBook.
(1)、绑定动态数据；
(2)、选中“站长回复”⽂字，选择服务器⾏为>转到详细页；详细页链接:"reply.asp"，传递参数值为:"ID";
(3)、将rsGuestBook记录集中的"ID"动态数据绑定到CheckBox的Value上。选中CheckBox，将CheckBox的Nmae:"ID"；将该表单的"动作"设为"del.asp"并将删除按钮的按钮名称设为空；
(4)、添加重复区域⾏为。
(5)、填加导航(打开服务器⾏为，插⼊动态⽂本)；
(6)、填加记录集导航信息(打开插⼊菜单选择应⽤程序对象插⼊记录集导航条)。
７、编辑del.asp
(1)、打开绑定⾯板>命令选项菜单
名称:commDel；连接:conn；类型：删除;SQL:DELETE FROM message
WHERE strCondition；变量名:strCondition；运⾏时值为Replace(Request.Form,"&","or"
(2)、打开代码在最后⼀⾏填加：Response.Redirect("admin.asp")
8、编辑reply.asp
(1)、建⽴记录集rsGuestBook；利⽤Admin.asp传递的ID号取记录;
(2)、进⾏数据绑定(姓名；标题；回复)；
(3)、利⽤修改记录的服务器⾏为做站长回复；
9、编辑login.asp
(1)、打开服务器⾏为⾯板-->⽤户⾝份验证-->⽤户登陆
通过验证，go to:admin.asp，未通过验证，go to:error.htm;
10、为了限制⾮法⽤户的访问admin.asp、del.asp、reply.asp都要填加上述限制⾮法⽤户的服务器⾏为。打开服务器⾏为⾯板-->⽤户⾝份验证-->限制对页访问。；
11、使⽤Server.Mappath⽅法修改conn.asp
"Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("data\board.mdb")
asp+版本简单的留⾔板的制作(⼀)
前⾔：
俗话说，眼看千遍，不如⼿写⼀遍，的确，很多纯粹理论性的东西，看多了，只是有了个简单的认识，其实在具体的程序调试过程中，肯定会遇到很多很多的问题⼀直想给⼤家写个什么程序的，但是
⾖腐最近特别忙，年底了，什么事情都要结算，再加上我⼀直要想办法写⼀些⽂章来奉献给⼤家，终于抽出来⼀个下午，来做了⼀个这样的程序，结果忘记关OICQ了，很多的⽹友的信息 都没有时间回复，在这⾥向jsp(SUN企业级应⽤的⾸选)funs 和 蓝 表⽰道歉。
程序开始前的准备⼯作：
做⼀个conn连接串，未免太。。。，在asp+中MS 抄袭了 jsp(SUN企业级应⽤的⾸选) 的⼀些概念和做法，在jsp(SUN企业级应⽤的⾸选)中有l(标准化越来越近了)⽂件asp+中有config.web 把这个⽂件放到留⾔版所在的虚拟⽬录下，将连接串放在这⾥，⼤家请看我的连接串
好了，准备⼯作都做好以后，准备开始做留⾔版的录⼊部分，开始想纯粹使⽤vs7⾃代的web forms 功能，后来发现有⼀些实际使⽤的不⽅便，所以还是⽤了⼀些传统的⽅法和web forms 结合使⽤，但是这样 vs7的智能感知 功能就不能⽤了，好可惜。default.aspx 的内容如下
亲情奉献
您的呢称：
您的联系Email：
您的发⾔主题：
您的留⾔内容
呵呵，这个页⾯我⽤来测试web form 所以搞了⼀些 没名堂的 东西，呵呵：)
default.asp
-------------------------------
This is my guestbook. Use this form to submit your greeting:
MyFile = "c:\"
'Opens the guestbook file if it exists
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
IF MyFileObj.FileExists(MyFile) THEN
Set MyTextFile=MyFileObj.OpenTextFile(MyFile)
'Reads a line, and outputs it
WHILE NOT MyTextFile.AtEndOfStream
%>
WEND
'Closes the textfile
MyTextFile.Close
END IF' Does file exist
%>
----------------------------
write.asp
----------------------------
'Type in the path of the file to use. Make sure that the script has write access. MyFile = "c:\"
'Ready Scripting.FileSystemObject
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
'Opens textfile. 8 = add line to file, true = create if it doesn't exists
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 8, TRUE)
'Writes the line to the file
New_line = Request.Form("new_line")
New_line = Server.HTMLEncode(New_line)
'Adds the time and date it was posted
New_line = "Posted: " & NOW & "
" & New_line
MyOutStream.WriteLine(New_line)
'Closes the file
MyOutStream.Close
'Sends them back to the default page
Response.Redirect "default.asp"
%>
Haneng的简单留⾔板制作源程序例⼦
default.asp
-------------------------------
This is my guestbook. Use this form to submit your greeting:
MyFile = "c:\"
'Opens the guestbook file if it exists
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
IF MyFileObj.FileExists(MyFile) THEN
Set MyTextFile=MyFileObj.OpenTextFile(MyFile)
'Reads a line, and outputs it
WHILE NOT MyTextFile.AtEndOfStream
%>
WEND
'Closes the textfile
MyTextFile.Close
END IF' Does file exist
%>
-
---------------------------
write.asp
----------------------------
'Type in the path of the file to use. Make sure that the script has write access. MyFile = "c:\"
'Ready Scripting.FileSystemObject
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
'Opens textfile. 8 = add line to file, true = create if it doesn't exists
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 8, TRUE)
'Writes the line to the file
New_line = Request.Form("new_line")
New_line = Server.HTMLEncode(New_line)
'Adds the time and date it was posted
New_line = "Posted: " & NOW & "
" & New_line
MyOutStream.WriteLine(New_line)
'Closes the file
MyOutStream.Close
'Sends them back to the default page Response.Redirect "default.asp"
%>

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。