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

7.1.5保存主题

访问者发起的讨论主题及其相关信息将提交给saveTheme文件进行处理。

在该文件中，首先检查“作者”、“主题”和“内容”的值，如果其中有任何一个为空字符串，则重新定向到发起讨论主题页面。

如果这些值都不是空字符串，则连接到数据库，并将该讨论主题及其相关信息保存到articels表中。

保存数据后，可以单击链接返回论坛首页，如图7.3所示。

------------saveTheme.asp------------

<%@LANGUAGE="VBScript"%>

<%

Dimauthor,ip_addr,theme,pic_path,content

author=Trim（Request.Form（"txtAuthor"））

ip_addr=Request.ServerVariables（"REMOTE_ADDR"）

theme=Trim（Request.Form（"txtTheme"））

pic_path=Request.Form（"optPic"）

content=Trim（Request（"txtContent"））

Ifauthor=""Ortheme=""Orcontent=""Then

Server.Transfer"newTheme.asp"

EndIf

%>

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

<%

Dimid,cnn,rst,sSQL

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

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

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

cnn.Open

sSQL="INSERTarticles（author,ip_addr,theme,pic_path,content,_

view_times,reply_times）"

sSQL=sSQL&"VALUES（'"&author&"','"&ip_addr&"','"

sSQL=sSQL&theme&"','"&"Images/"&pic_path&"','"&_

content&"',0,0）"

cnn.ExecutesSQL,,adCmdText

%>

讨论主题保存成功！

【返回论坛首页】

7.1.6回复主题

为了便于访问者参加针对每个主题的讨论，主题列表中的每个主题均采取超链接形式，单击某个主题，即可查看关于该主题的讨论内容（包括原创帖子和回复帖子），此时可以针对该主题发表自己的意见，也可以通过单击相应的链接来发起新的讨论主题或者返回论坛首页。

当输入作者、主题和内容后，可以通过单击“提交”按钮将回复信息发送给Web服务器进行处理，如图7.4所示。

------------replyTheme.asp------------

<%@LANGUAGE="VBScript"%>

【发表新帖】

【返回首页】

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

<%

Dimcnn,rstArt,rstRe,sSQL,fso,fld,f,id,i

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

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

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

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

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

id=Request.QueryString（"id"）

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

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

'打开到test数据库的连接

cnn.Open

'在所选主题的浏览次数上加1

sSQL="UPDATEarticlesSETview_times=view_times+1WHEREart_id="&id

cnn.ExecutesSQL,,adCmdText

'创建原创帖子的记录集

sSQL="SELECT*FROMarticlesWHEREart_id="&id

SetrstArt=cnn.Execute（sSQL,,adCmdText）

'创建回复帖子的记录集

sSQL="SELECT*FROMrepliesWHEREart_id="&id&_

"ORDERBYreply_timeDESC"

SetrstRe=cnn.Execute（sSQL,,adCmdText）

%>

当前讨论主题：

<%=rstArt（"theme"）%>

发表于<%=rstArt（"issue_time"）%>

<%=rstArt（"author"）%>

>

IP：

<%=rstArt（"ip_addr"）%>

<%IfrstRe.EOFThen%>

当前没有回复！

<%

Else

WhileNotrstRe.EOF

%>

<%=rstRe（"author"）%>

>

IP：

<%=rstRe（"ip_addr"）%>

<%=rstRe（"theme"）%>

回复于<%=rstRe（"reply_time"）%>

<%=rstRe（"content"）%>

<%

Wend

EndIf

%>

回  复

作者

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

主题

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

>

图像

<%ForEachfInfld.Files%>

<%Ifi=1ThenResponse.WriteSpace

（1）&"CHECKED"%>>

>

<%

i=i+1

Next

%>

内容

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