一个BBS的源代码(三)
一个BBS的源代码(三),一个BBS的源代码(三)
'=============================
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-><A href="<%= ASP_FILE_NAME %<% If KeyWord < "" Then Response.Write "?Keyword=" & KeyWord %"经验交流</A->怎样输出图像</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="寄