📄 detail.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<%
TitleID = CLng(Request("TitleID"))
SQL = "Select * From Titles Where TitleID=" & TitleID
Set rs = GetMdbRecordset( "News.mdb", SQL )
If rs Is Nothing Or rs.EOF Then
Response.Redirect "Title.asp?Msg=此一讨论主题已被删除!"
End If
%>
<HTML>
<BODY BACKGROUND="../b01.jpg">
<H2 Align=Center>集思广益 VB 讨论组 - 讨论看板!</H2>
<!------------------------------>
<!-- 以下为「讨论主题」的显示 -->
<!------------------------------>
<TABLE Width="100%"><TR><TD Align=Center bgColor=#000080>
<FONT Color=#FFFFFF Size=+1><B>讨 论 主 题</B></FONT></TD></TR></TABLE>
<%
Words = Replace( "" & rs("Words"), Chr(13), "<BR>" )
Email = "<A HREF=mailto:" & rs("Email") & ">" & rs("Email") & "</A>"
%>
<CENTER><TABLE>
<TR><TD><B>作者:</B><%=rs("Name")%><B> Email:</B><%=Email%>
<B> 日期:</B><%=Month(rs("CreateDate"))%>/<%=Day(rs("CreateDate"))%>
</TD></TR>
<TR><TD><B>主题:</B><%=rs("Subject")%></TD></TR>
<TR><TD BgColor=Cyan><%=Words%></TD></TR>
</Table></CENTER>
<!------------------------------>
<!-- 以下为「讨论看板」的显示 -->
<!------------------------------>
<%
SQL = "Select * From Details Where TitleID=" & TitleID
SQL = SQL & " Order By DetailID Desc"
Set rsDetail = GetMdbRecordset( "News.mdb", SQL )
If Not rsDetail.EOF Then
%>
<TABLE Width="100%"><TR><TD Align=Center bgColor=#000080>
<FONT Color=#FFFFFF Size=+1><B>讨 论 看 板</B></FONT></TD></TR></TABLE>
<%
While Not rsDetail.EOF
Words = Replace( "" & rsDetail("Words"), Chr(13), "<BR>" )
Email = "<A HREF=mailto:" & rsDetail("Email") & ">" & rsDetail("Email") & "</A>"
%>
<CENTER><TABLE>
<TR><TD NOWARP><B>作者:</B><%=rsDetail("Name")%><B> Email:</B><%=Email%>
<B> 日期:</B><%=Month(rsDetail("NewsDate"))%>/<%=Day(rsDetail("NewsDate"))%>
</TD></TR>
<TR><TD><B>主题:</B><%=rsDetail("Subject")%></TD></TR>
<TR><TD BgColor=Cyan><%=Words%></B></TD></TR>
</Table></CENTER><hr>
<%
rsDetail.MoveNext
Wend
End If
%>
<!-------------------------------->
<!-- 以下为「参与讨论」输入窗体 -->
<!-------------------------------->
<TABLE Width="100%"><TR><TD Align=Center bgColor=#000080>
<FONT Color=#FFFFFF Size=+1><B>参 与 讨 论</B></FONT></TD></TR></TABLE>
<FORM action=DetNew.asp method=POST>
<Input Type=Hidden Name=TitleID Value=<%=Request("TitleID")%>>
<CENTER><TABLE Border="0">
<TR><TD>姓名：</TD>
<TD><INPUT Type=Text Size="30" name="Name" Value=<%=Session("Name")%>></TD></TR>
<TR><TD>Email：</TD>
<TD><INPUT Type=Text Size="30" name="Email" Value=<%=Session("Email")%>></TD></TR>
<TR><TD>主题：</TD>
<TD><INPUT Type=Text Size="60" name="Subject"></TD></TR>
<TR><TD>内容：</TD>
<TD><TEXTAREA name="Words" rows="8" cols="60"></TEXTAREA></TD></TR>
</TABLE>
<INPUT Type="submit" value=" 送出讨论内容 "></CENTER>
</Form>
<HR><FONT Color=Red><%=Request("Msg")%></FONT>
<A HREF="Title.asp">返回讨论组主画面</A>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -