SQL成绩管理系统.docVIP

本文配套程序下载地址：无忧无虑毕设网()-大学生毕业设计站,免费毕业设计论文,无忧无虑毕设网大学生毕业设计,出售各类毕业设计源码,论文,程序源码,网站源码,免费视频教程,我们将竭诚为您服务！ 第7章 设 计 实 例 7.1.3 查看主题 在forum.asp文件中实现查看讨论主题的功能。该页面以分页形式显示当前已有的讨论主题，每页显示5个主题，每个主题以超链接形式显示，可以通过单击某个的主题来查看详细的讨论内容并发表意见，也可以通过单击页面下部的超链接在不同页面之间跳转，如图7.1所示。如果检测到articles表中不包含任何记录，则显示“当前没有讨论主题！”，此时可以通过单击页面上部的“发表新帖”链接进入发起主题的页面（newTheme.asp）。 forum.asp % @ LANGUAGE = VBScript % HTML HEAD TITLE查看讨论主题/TITLE /HEAD BODY !-- #include virtual = /adovbs.inc -- P【A HREF = newTheme.asp TITLE = 发起新的讨论主题发表新帖/A】/P HR COLOR = red SIZE = 1 NOSHADE DIV ALIGN = center % Dim cnn, rst, sSQL, currentPage, rowCount, i currentPage = Request.QueryString(currentPage) If currentPage = Then currentPage = 1 End If Set cnn = Server.CreateObject(ADODB.Connection) Set rst = Server.CreateObject(ADODB.Recordset) cnn.ConnectionString = PROVIDER=SQLOLEDB;DATA SOURCE=Abc; _ UID=sa;PWD=123;DATABASE=test cnn.Open Set rst = cnn.Execute(articles, , adCmdTable) 若articles表为空，表示当前没有讨论主题 If rst.EOF Then Response.Write PB当前没有讨论主题！/B/P Response.End End If 关闭当前记录集 rst.Close rst.CursorType = adOpenStatic rst.PageSize = 5 将SQL SELECT语句存放到字符串中 按照时间顺序排列记录，使后来发起的主题排在前面 sSQL = SELECT * FROM articles ORDER BY issue_time DESC 重新打开记录集 rst.Open sSQL, cnn 设置当前页号 rst.AbsolutePage = CInt(currentPage) rowCount = 0 % TABLE BORDER = 0 CELLPADDING = 2 CELLSPACING = 2 WIDTH = 100% TR BGCOLOR = #0084CA TH作者/THTHIP地址/THTH主题/TH TH发表时间/THTH浏览次数/THTH回复次数/TH /TR TR % While Not rst.EOF And rowCount rst.PageSize % TR BGCOLOR = #D9F2FF TD% = rst(author) %IMG SRC=% = rst(pic_path) %/TD TD% = rst(ip_addr) %/TD TDA HREF = replyTheme.asp?id=% = rst(art_id) % % = rst(theme) %/A/TD TD% = rst(issue_time) %/TD TD% = rst(view_times) %/TD TD% = rst(reply_times) %/TD /TR % rowCount = rowCount + 1 rst.MoveNext Wend % /TABLE P当前主题数% = rst.RecordCount %nbsp; 每页% = rst.PageSize %个主题nbsp; 当前页次：% = currentPage %/% = rst.PageCount %页nbsp; % For i = 1 To rst.PageCount 如果 i 等于当前页号，则以红色文本显示 i 的值 If i = CInt(currentPage) Then % [FONT COLOR =