您的位置:首页精文荟萃软件资讯 → ASP技术在论坛中的运用五(吐血推荐!!!!)

ASP技术在论坛中的运用五(吐血推荐!!!!)

时间:2004/10/7 19:04:00来源:本站整理作者:蓝点我要评论(0)


            
             
              
             
            

               
               

            



            qBoard.asp列出了某个版面下的所有的主题,在点击了主题名称后就会进入相应的主题文章列表。这个列表的是由qTopic.asp这个ASP脚本来实现的。Qtopic.asp的代码在本质上几乎和qBoard.asp没有区别,只是在各自的细节上有所区别,这儿也不打算再多讲了。

   在点击了文章列表中的文章标题后,会进入文章内容浏览页article.asp:

  < %

  articleid=request("articleid")

  Set conn = Server.CreateObject("ADODB.Connection")

  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

  Set cmd = Server.CreateObject("ADODB.Command")

  Set cmd.ActiveConnection = conn

  cmd.CommandText = "按id查询文章"

   ReDim param(0) ' 声明

  param(0) = CLng(articleid) ' Cint 不可忽略

  Set rs = cmd.Execute( ,param )

  author=rs("作者id")

   title=rs("标题")

   data=rs("日期")

   rate=rs("推荐度")

   boardid=rs("看板id")

   topicid=rs("主题id")

   boardname=rs("看板名")

   topicname=rs("主题名")

   content=rs("内容")

  content=replace(content,vbCrlf,"< /p>< p>")

  content="< p>" & content & "< /p>"

  

   这是一个要注意的地方,在内容字段中包含的是Memo类型的文本,其中可以包含回车符。在HTML的显示中,必须要把回车赋(也就是vbCrlf常量)换成HTML的段落符号。这样在段落与段落的衔接处,就不会打乱原来输入时的格式。如果要设计的更好些,可以通过CSS来重定义< P>标签,设定其test-indent属性,就可以实现每段开头空格了。

  

  '把点击次数加一

  sql="Update 内容表 Set 点击次数=点击次数+1 Where ID=" & articleid

  conn.execute sql

  

   这儿有一个SQL语句,没当页面被显示的时候,会把相应的表中点击次数字段加一,这样就能够对文章浏览的次数做出统计,并可按顺序排名。在执行条语句的时候,我奇怪的发现:本来在SQL语句中,嵌入的变量名应该加上单引号以与区别,但在这儿的articleid变量上我并没有加单引号,居然也能够通过,而我以前这样写从来都是会引发错误的,不知是不是由于新版本的ADO的缘故。

  

  set cmd=nothing

  %>

  < html>

  < head>

  < title>Untitled Document< /title>

  < meta http-equiv="Content-Type" content="text/html; charset=utf-8">

  < /head>

  

  < body bgcolor="#E9E9E4">

  < table width="89%" border="0" cellspacing="0" cellpadding="0" align="center">

   < tr bgcolor="#CCCCCC">

   < td>作者:< font color="#FF3366">< a href="qauthor.asp?author=< %=author%>"> < %=author%> < /a>< /font> 发表日期:< font color="#FF3333">< %=data%>< /font>

   看板:< font color="#FF3333">< a href="qboard.asp?boardid=< %=boardid%>"> < %=boardname%>< /a>< /font> 板主推荐:< font color="#FF3333">#rate#< /font>< /td>

   < /tr>

   < tr bgcolor="#CCCCCC">

   < td>标题:< font color="#FF3333">< %=title%>

   主题:< a href="qtopic.asp?topicid=< %=topicid%>"> < %=topicname%> < /a> < /font>< /td>

   < /tr>

   < tr valign="top">

   < td>

   < hr>

   < font color="#FF3366">文章内容: < /font>< br>

   < br>

   < font color=blue>< %response.write content%>< /font>

   < br>

   < br>

   < /td>

   < /tr>

   < tr valign="top">

   < td height="18">

   < table width="50%" border="0" cellspacing="0" cellpadding="0" align="right" bgcolor="#CCCCCC">

   < tr>

   < td width="0%"> < /td>

   < td width="65%">关于此话题< a href="submit.asp?topicid=< %=topicid%>&boardid=< %=boardid%>">发表评论< /a>< /td>

  这个链接允许网友对此评论的话题发表自己的见解,这是下一个模块要讲的内容了,这儿且按下不表。

   < /tr>

   < /table>

   < /td>

   < /tr>

  < /table>

  < /body>

  < /html>

  

  < %

  set rs=nothing

  conn.close

  set conn=nothing

  %>

  到此,文章显示部分也完成了。下面再来看看文章发表部分是如何实现的。

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本