Dreamweaver MX 2004做信息公告系统(4)详细内容…

2008-02-23 07:04:14来源：互联网阅读 ()

　　我们现在开始来做公告系统的详细内容页，通过预览首页我们已经看到了在首页的公告标题链接上给出了一个?g_ID=xxx的参数来链接到详细内容页面showgg.asp，我们要做的就是获取这个参数值并通过该值来调用数据库的内容。

　　1、在“文件面板”中打开showgg.asp页，在“绑定”面板中点击“ ”号，选择“记录集(查询)”，在弹出的记录集窗口中按下图进行设置：

　　这里和首页建立的记录集差不多，区别就是这里用了“筛选”，因为我们要根据传递来的URL参数选择相应的记录(URL参数就是showgg.asp?g_ID=xxx中的g_ID，而xxx则是该参数的值)。因为筛选后的记录只有一条，所以就没有必要再“排序”了。

　　提示：ASP中，URL参数的值是通过语句 Request.QueryString("参数名") 来获取的。

　　也可以用 Request.QueryString() 来获取所有的参数。

　　2、按照刚才用过的方法把相应的字段绑定到页面上，绑定完成后的页面效果如下图：

　　但是这其中有一个比较特殊，那就是“附件”：{rsggshow.g_filename}，在这个字段的上面要做一个链接，链接的不是一个具体静态的页面，而是从数据库中动态的获取地址。我们用下面的方法实现这一点。

　　4、选中页面上的{rsggshow.g_filename}，点击属性面板中的“链接”后面的文件夹图标选择链接文件，在弹出的选择文件对话框中选择“数据源”，在从下面的“域”中选择“g_fileurl”，点击确定返回。

　　然后在下面的目标中选择“_blank”，我们让它在新窗口中打开。这样动态的链接就做好了。

5、还有一个特殊的部分，就是网页的标题我们也要从数据库中读取。这个需要在代码视图下完成。切换到代码视图，找到<title>部分，把g_title绑定到相应的位置。

　　6、相关附件这一行还有一点就是只能在有附件的时候才显示，如果没有附件的话这一行要隐藏起来，这样才够人性化嘛。切换到代码视图，找到这一行。

在这一行的<tr>和</tr>之外加上这样的语句：

<% If (rsggshow.Fields.Item("g_filename").Value)<>"" Then%>
<tr>
.........(原来的内容)
</tr>
<% End If %>

　　做一个判断，如果附件名为空则就不显示这一行了。这样详细页面的大部分内容已经完成了，你可以从浏览器中预览首页，然后点击相应的标题看看详细页的完成情况了。多点几次你就会发现，那里的点击计数根本就没有变化。呵呵，那是因为我们还没有做点击计数嘛。好了，马上就来做这个。

　　7、在“绑定”面板上点击“ ”号，在菜单中选择“命令（预存过程）”。

　　8、在弹出的“命令”窗口中，名称填入“uphits”(可以自定义)，连接选择conn，类型选择“更新”，在SQL框中输入：

UPDATE GongGao
SET g_hits = g_hits 1
WHERE g_ID = rID

在“变量”后点击“ ”号，添加一个变量，名称为“rID”(和上面SQL语句中的最后一个一致)，运行值填写： Request.QueryString("g_ID")

　　这样就在这个页面添加了一个每访问一次g_hits就加1的命令，就实现了点击计数的功能了。但是这样并不完美，因为每次我们访问页面看到的都是上一次的计数，比如数据库中计数为0的话，你第一次打开它就直接显示0，可是你明明已经点击过了啊，应该是1才对。所以要在点击显示的代码中加上一个1：

　　9、在设计数据库的时候大家就看到了，我专们设计了一个g_url的字段。这个字段的作用就是做一个URL转向，我们可以在公告的标题上直接链接到另一个URL地址而不用打开详细页面。有人会说这个简单啊，直接像做附件的链接一样在index.asp中就做一个动态链接嘛。当然我没有说这个方法不行，不过如果这样的话，又该怎样计算点击数呢？

所以我用了另一个方法来解决这个问题，在showgg.asp的<html>标记之前加上这样一段代码：

<%
If (rsggshow.Fields.Item("g_url").Value)<>"" Then
Response.Redirect(rsggshow.Fields.Item("g_url").Value)
End If
%> 这里也做了一个判断，如果g_url字段不为空的话就转到g_url所在的网址。Response.Redirect(A) 的意思是转到A这个页面。不过一定要注意，这一段代码一定要在点击计数的的代码之后。这样又出现一个问题，在index.asp上点击标题后，如果g_url不为空，则就会转到g_url的页面，如果要返回首页岂不是只能点后退按钮？能不能用弹出窗口？当然是可以的，我们再打开index.asp，在代码视图中找到标题链接的那一段代码，在<a>标签中加入如下代码：

<%If (rsgg.Fields.Item("g_url").Value)<>"" Then %>target="_blank"<% End If %>这一句我就不解释了，看不懂的只有拖出去了…… 啊，终于把详细页也做完了。哎，好像不太对，预览的时候为什么会觉得怪怪的？噢，发现问题了，详细内容页面中的公告内容都显示为一个段落了，原来的空格和换行都不在了。这样也太不美观了吧！所以一定要解决这个问题。

　　10、在showgg.asp的代码视图中，在<html>标签之前加上这样一段：

<%
Function HTMLcode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, "&#", "&#")

fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), " ")

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有