ASP动态网页设计第7章.docx

资源描述

ASP动态网页设计第7章.docx

《ASP动态网页设计第7章.docx》由会员分享，可在线阅读，更多相关《ASP动态网页设计第7章.docx（91页珍藏版）》请在冰点文库上搜索。

ASP动态网页设计第7章.docx

ASP动态网页设计第7章

第7章设计实例

7.1.3查看主题

在forum.asp文件中实现查看讨论主题的功能。

该页面以分页形式显示当前已有的讨论主题，每页显示5个主题，每个主题以超链接形式显示，可以通过单击某个的主题来查看详细的讨论内容并发表意见，也可以通过单击页面下部的超链接在不同页面之间跳转，如图7.1所示。

如果检测到articles表中不包含任何记录，则显示“当前没有讨论主题！

”，此时可以通过单击页面上部的“发表新帖”链接进入发起主题的页面（newTheme.asp）。

------------forum.asp------------

<%@LANGUAGE="VBScript"%>

查看讨论主题

--#includevirtual="/adovbs.inc"-->

【发表新帖】

Dimcnn,rst,sSQL,currentPage,rowCount,i

currentPage=Request.QueryString（"currentPage"）

IfcurrentPage=""Then

currentPage=1

EndIf

Setcnn=Server.CreateObject（"ADODB.Connection"）

Setrst=Server.CreateObject（"ADODB.Recordset"）

cnn.ConnectionString="PROVIDER=SQLOLEDB;DATASOURCE=Abc;"&_

"UID=sa;PWD=123;DATABASE=test"

cnn.Open

Setrst=cnn.Execute（"articles",,adCmdTable）

'若articles表为空，表示当前没有讨论主题

Ifrst.EOFThen

Response.Write"

当前没有讨论主题！

Response.End

EndIf

'关闭当前记录集

rst.Close

rst.CursorType=adOpenStatic

rst.PageSize=5

'将SQLSELECT语句存放到字符串中

'按照时间顺序排列记录，使后来发起的主题排在前面

sSQL="SELECT*FROMarticlesORDERBYissue_timeDESC"

'重新打开记录集

rst.OpensSQL,cnn

'设置当前页号

rst.AbsolutePage=CInt（currentPage）

rowCount=0

作者IP地址主题

发表时间浏览次数回复次数

<%WhileNotrst.EOFAndrowCount

<%=rst（"author"）%>>

<%=rst（"ip_addr"）%>

id=<%=rst（"art_id"）%>'>

<%=rst（"theme"）%>

<%=rst（"issue_time"）%>

<%=rst（"view_times"）%>

<%=rst（"reply_times"）%>

rowCount=rowCount+1

rst.MoveNext

Wend

当前主题数<%=rst.RecordCount%>

每页<%=rst.PageSize%>个主题

当前页次：

<%=currentPage%>/<%=rst.PageCount%>页

Fori=1Torst.PageCount

'如果i等于当前页号，则以红色文本显示i的值

Ifi=CInt（currentPage）Then

[<%=i%>]

'如果i不等于当前页号，则以超链接形式显示i的值

Else

[

currentPage=<%=i%>"><%=i%>]

EndIf

7.1.4发表主题

文件newTheme.asp给出了发表讨论主题时所用到的表单，如图7.2所示。

在查看讨论主题页面（forum.asp）中单击“发表新帖”链接可以进入该页面。

访问者可以在这里输入作者姓名、要发起讨论的主题和内容，并选择自己所喜欢的头像，然后通过单击提交按钮将这些信息提交给文件saveTheme.asp进行处理。

------------newTheme.asp------------

<%@LANGUAGE="VBScript"%>

Dimfso,fld,f,i

Setfso=Server.CreateObject（"Scripting.FileSystemObject"）

Setfld=fso.GetFolder（Server.MapPath（"./Images"））

i=1

发起新主题

发起讨论主题

作者

VALUE=<%=Request.Form（"txtAuthor"）%>>

主题

VALUE=<%=Request.Form（"txtTheme"）%>>

图像

<%ForEachfInfld.Files%>

<%Ifi=1ThenResponse.WriteSpace

（1）&"CHECKED"%>>

i=i+1

内容

<%=Request.Form（"txtContent"）%>