<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><b><% = Homepage_title%> - <font color="#FF0000">发布信息</font></b></td> </tr> <tr>
<td><table width="100%" border="0" align="center" cellspacing="2" cellpadding="2"> <tr>
<td width="65">信息类别：</td>
<td>
<selectname="d_cataid"size="1" style="background-color:#ECF3FF;">
<option value="">--> 请选择 <--</option>
<%Call GetNewsCata()%>
</select> </td>
<td>信息标题：</td>
<td><input type="text" name="d_title" size="67" class="button1"></td>
<td valign="top">信息内容：</td>
<textareaname="d_content"style="display:none"></textarea> <iframeID="eWebEditor1"src="../WebEditor/ewebeditor.asp?id=d_content&style=s_newssystem&savefilename=d_savefilename&savepathfilename=d_savepathfilename"frameborder="0"scrolling="no" width="550" HEIGHT="350"></iframe> </td></tr>
此文件中用到了Header("增加信息")，Footer()等函数所以引用了DBClass.inc.asp文件。此代码将管理员发布的信息及信息各部份内容（包括文字、数字、图片地址信息）存入数据库中，再经过前面的代码调用使之在前面界面显示。
管理员还可对已发表的信息、栏目、帐号（只有系统管理员可）、密码进行修改、删除、查询等操作，这里就不再详细介绍。
4.3 后台留言管理模块
4.3.1 后台留言界面设计
4.3.2 各页面信息显示与代码设计
⑴游客留言浏览
任一游客可留言进行浏览，留言信息进行分页显示，游客可对页码的选择来查看各页面的留言信息。
①留言信息显示页面为book.asp,其中引用了conn.asp文件，此文件是利用Server对象的CreatObject方法，建立一个数据库存取组件的Connection对象实例db，代码如下：
<%
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("mydb/db.mdb")
set db= Server.CreateObject("ADODB.Connection")
db.Open connstr
%>
其中Server.Mappath是server对象的一个方法，它可以将该文件的相对路径转换成绝对路径。第一句中前一项是数据库的类型，后一项是物理路径。
②book.asp建立数据集，获得留言数据在页面显示的条数与页码进行页码显示，用server对象createobject方法建立recordset对象rs，用rs对象open方法、sql语句获得按id降序排列的记录集，用rs 的pagesize方法设置e_page（每页显示的留言数），request对象的querystring方法设置pagenum（留言页数），具体代码如下：
<%
set rs=server.createobject("adodb.recordset")
sql="select * from guestbook order by id desc"
rs.open sql,db,3,2
dim pagenum
dim e_page
e_page=5 '每页显示留言数
rs.pagesize=e_page
ifrequest.querystring("pagenum")=""or request.querystring("pagenum")=0 then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>
③判断是否有公告，是否有留言信息，用server对象createobject方法建立recordset对象rsn，用rsn对象open方法、sql语句获得notice表中的记录集，判断notice字段是否为空，为空则提示无公告，有则用=rsn("notice")方法在页面显示，具体代码如下：
公告：
<%
set rsn=server.createobject("adodb.recordset")
sql="select * from notice"
rsn.open sql,db,1,1
if rsn("notice")<>"" then
%>
<%=rsn("notice")%>
<%else%>
还没有任何公告！
<%
end if
rsn.close
set rsn=nothing
%>
留言：
<%
if rs.eof and rs.bof then
%>
还没有任何留言！
<%else%>
<%=rs("name")%>
…
<%end if%>
③游客选择发表留言则链接到guestbook.asp页面进行表单提交，提交的内容交给save.asp处理连接数据库存入数据。实现代码如下：
<%
iname=request.Form("name")
…
icontent=Server.HTMLEncode(request.form("content"))
%>
<%
If request.form("name")<>"" and request.form("title")<>"" and request.form("content")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from guestbook where (id is null)"
rs.open sql,db,1,3
rs.addnew
rs("show")=ishow
rs("ip")=request.servervariables("remote_addr")
rs.update
rs.close
set rs=nothing
db.close
set db=nothing
else
response.write"<SCRIPT language=JavaScript>alert('呢称、标题和内容为必填信息！');"
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共10页: 上一页 [1] [2] [3] [4] [5] 6 [7] [8] [9] [10] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：