一个BBS的源代码(三)

【 tulaoshi.com - ASP 】

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

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

%



<TABLE align=center border=0 cellPadding=1 cellSpacing=0 width=650
<TR
<TD class="menu"
<A href="/"飞林庄</A-&gt;<A href="<%= ASP_FILE_NAME %<% If KeyWord < "" Then Response.Write "?Keyword=" & KeyWord %"经验交流</A-&gt;怎样输出图像</TD
</TR
</TABLE
<TABLE align=center border=0 cellPadding=8 cellSpacing=0 width=650
<TR
<TD bgColor=#000000
<%
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
%
<P<FONT color=#66ff99序号</FONT：<FONT color=#6699ffE<%= Which %</FONT<BR
<FONT color=#66ff99作者</FONT：<%= Server.HTMLEncode( RecBBS.Fields("作者") ) %<BR
<FONT color=#66ff99题目</FONT：<%= Server.HTMLEncode( Title ) %<BR
<FONT color=#66ff99时间</FONT：<%= RecBBS.Fields("时间") %<BR
<BR
<PRE
<%= Server.HTMLEncode( RecBBS.Fields("内容") ) %
</PRE
</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
%
<P<FONT color=#66ff99序号</FONT：<FONT color=#6699ff<%= ID %</FONT<BR
<FONT color=#66ff99作者</FONT：<%= Server.HTMLEncode( RecReply.Fields("作者") ) %<BR
<FONT color=#66ff99题目</FONT：<%= Server.HTMLEncode( RecReply.Fields("题目") ) %<BR
<FONT color=#66ff99时间</FONT：<%= RecReply.Fields("时间") %<BR
<BR
<PRE
<%= Server.HTMLEncode( RecReply.Fields("内容") ) %
</PRE
</P
<%
RecReply.MoveNext
If RecReply.EOF Then Exit Do
Loop
RecReply.Close

End If
%
</TD
</TR
</TABLE
<TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650
<TR
<TD class=menu
<FORM action="<%= ASP_FILE_NAME %" method=post
<INPUT type=hidden id=Job name=Job value=Reply
账号：<INPUT id=Userid name=Userid maxLength=30 size=30
密码：<INPUT id=Password maxLength=30 name=Password size=30 type=password<BR
题目：<INPUT id=Title maxLength=80 name=Title size=72 value="回复：<%= Title %"<BR
<TEXTAREA cols=80 id=Content name=Content rows=10</TEXTAREA<BR
<INPUT type=submit value=" 回 复 "
</FORM
<P
选中文章：
<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
%
</SELECT<BR
<INPUT id=Email maxLength=80 name=Email size=40
<INPUT type=button id=MailBack name=MailBack value="寄