用Access制作一个功能完善的论坛（源程序）
时间:2007-12-23 来源:不详 作者:迈克DB
</td>
</tr>
</table>
</body>
</head>
<%
Response.End
end sub
%>
Listing 4.0 - discusslogo.
-------------------------------------------
<html>
<head><title>logo</title></head>
<body bgcolor="darkgreen" marginheight=0 topmargin=0>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr>
<td>
<font face="Arial" size="2" color="#ffffff"><b>Microsoft Access Forum</b></font>
</td>
</tr>
</table>
</body>
</html>
Listing 5.0 - message.
------------------------------------
<!-- #INCLUDE FILE="discussfuncs." -->
dedecms.com
<%
id = TRIM( Request( "id" ) )
IF id = "-1" THEN id = ""
page = TRIM( Request( "pg" ) )
%>
<html>
<head><title>message</title></head>
<body bgcolor="#ffffff">
<%
IF id = "" THEN
%>
<table width="100%" height="100%" cellpadding=0 cellspacing=0 border=0>
<tr>
<td valign="center" align="center">
<font face="Arial" size="3" color="blue">
<b>Select a message to read by clicking on one of the subjects above</b>
</font>
</td>
</tr>
</table>
<%
ELSE
readyDBCon
SET RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.CursorType = adOpenStatic
RS.Open "select * FROM messages WHERE m_id=" & id & " OR m_reply=" & id & " order by m_id" 织梦内容管理系统
mCount = 0
WHILE NOT RS.EOF
%>
<table width="100%" border=0 cellpadding=2 cellspacing=0 bgcolor="yellow">
<tr>
<td>
<b>Author:</b> <%=showUser( RS( "m_email" ) )%>
</td>
<td align="right">
<b>Date Posted:</b> <%=RS( "m_entrydate" )%>
</td>
</tr>
<tr>
<td colspan=2>
<b>Subject:</b> <%=Server.HTMLEncode( RS( "m_subject" ) )%>
</td>
</tr>
</table>
<table width="100%" cellpadding=4 cellspacing=0 border=0>
<tr>
<td>
<font face="Arial" size="2">
上一篇：Access数据库操作中出现的怪现象 下一篇：用asp处理access数据库
文章评论
共有位Admini5网友发表了评论 查看完整内容