一个BBS的源代码(三)

'=============================
Case "Content"
'=============================
' 显示内容

If Request("Keyword") <> "" Then KeyWord = Request("Keyword") Else KeyWord = ""

1<table align="center" border="0" cellpadding="1" cellspacing="0" width="650">
2<tr>
3<td class="menu">
4<a href="/">飞林庄</a>-&gt;<a "="" "?keyword=" &amp; KeyWord 
5```" href="```
6= ASP_FILE_NAME

If KeyWord <> " response.write="" then="">经验交流->怎样输出图像

``` ```

```

Which = Request("Which")

If IsNumeric( Which ) Then

Session("BBS_Which") = Which

' 点击数加一
Con.Execute( "UPDATE bbs SET [点击]=[点击]+1 WHERE [序号]=" & Which )

SQL = "SELECT * FROM bbs WHERE [序号]=" & Which
RecBBS.Open SQL , Con , 1
If Not RecBBS.EOF Then

Title = RecBBS.Fields("题目")
Session("BBS_WhichTitle") = Title

 1<p><font color="#66ff99">序号</font>：<font color="#6699ff">E```
 2= Which 
 3```</font><br/>
 4<font color="#66ff99">作者</font>：```
 5= Server.HTMLEncode( RecBBS.Fields("作者") ) 
 6```<br/>
 7<font color="#66ff99">题目</font>：```
 8= Server.HTMLEncode( Title ) 
 9```<br/>
10<font color="#66ff99">时间</font>：```
11= RecBBS.Fields("时间") 
12```<br/>
13<br/>
14<pre>

= Server.HTMLEncode( RecBBS.Fields("内容") )

1</pre>
2</p>

End If
RecBBS.Close

SQL = "SELECT * FROM bbsreply WHERE [原文]=" & Which
RecReply.Open SQL , Con , 3

AllID = "E" & Which

Do While Not RecReply.EOF

ID = RecReply.Fields("序号")
AllID = AllID & ":" & ID

 1<p><font color="#66ff99">序号</font>：<font color="#6699ff">```
 2= ID 
 3```</font><br/>
 4<font color="#66ff99">作者</font>：```
 5= Server.HTMLEncode( RecReply.Fields("作者") ) 
 6```<br/>
 7<font color="#66ff99">题目</font>：```
 8= Server.HTMLEncode( RecReply.Fields("题目") ) 
 9```<br/>
10<font color="#66ff99">时间</font>：```
11= RecReply.Fields("时间") 
12```<br/>
13<br/>
14<pre>

= Server.HTMLEncode( RecReply.Fields("内容") )

1</pre>
2</p>

RecReply.MoveNext
If RecReply.EOF Then Exit Do
Loop
RecReply.Close

End If

1</td>
2</tr>
3</table>

 1<table align="center" border="0" cellpadding="7" cellspacing="0" width="650">
 2<tr>
 3<td class="menu">
 4<form action="```
 5= ASP_FILE_NAME 
 6```" method="post">
 7<input id="Job" name="Job" type="hidden" value="Reply"/>   
 8账号：<input id="Userid" maxlength="30" name="Userid" size="30"/>   
 9密码：<input id="Password" maxlength="30" name="Password" size="30" type="password"/><br/>   
10题目：<input id="Title" maxlength="80" name="Title" size="72" value="回复：```
11= Title 
12```"/><br/>
13<textarea cols="80" id="Content" name="Content" rows="10"></textarea><br/>
14<input type="submit" value=" 回 复 "/>
15</form>
16<p>   
17选中文章：   
18<select id="Which" name="Which" size="1">

WhichID = Split( AllID , ":" )

For Each ID In WhichID
Response.Write "<option value="
Response.Write ID & ">" & ID
Response.Write "</option>"
Next

 1</select><br/>
 2<input id="Email" maxlength="80" name="Email" size="40"/>
 3<input id="MailBack" name="MailBack" onclick="window.open('```
 4= ASP_FILE_NAME 
 5```?Job=Send&amp;Which=' + Which.value + '&amp;Email=' + Email.value , '_self')" type="button" value="寄回信箱"/>
 6<input id="Modify" name="Modify" onclick="window.open('```
 7= ASP_FILE_NAME 
 8```?Job=Modify&amp;Which=' + Which.value , '_self')" type="button" value="修改"/>
 9<input id="Delete" name="Dalete" onclick="window.open('```
10= ASP_FILE_NAME 
11```?Job=Delete&amp;Which=' + Which.value , '_self')" type="button" value="删除"/>
12</p>
13</td>
14</tr>
15</table>

Published At2005-12-17 23:02 UTC

Categories with Web编程

Tagged with