您现在正在浏览：站长之家 >> 数据库 >> 详细内容

用Access制作一个功能完善的论坛（源程序）

时间:2007-12-23 来源:不详作者:迈克DB

To view a live demonstration of this forum, click View Demo.
To create this forum on your server, you will need to create a Microsoft Access Database named
discuss.mdb. You will also need to create a single table in this database named messages that has the
following fields:

m_id -- An autonumber field
m_email -- A text field
m_subject -- A text field
m_message -- A Memo field
m_entrydate -- A Date/Time field with default value of NOW()
m_numReplies -- A Number field with default value of 0
m_reply -- A Number field with default value of -1

Listing 1.0 - discuss.

-----------------------------------
<html>
<head><title>Discussion</title></head>
<frameset rows="30,*">
<frame frameborder="no" scrolling="no" src="discusslogo." marginheight=2 marginwidth=5>
<frame name="topframe" src="discussframes."> 内容来自dedecms
</frameset>
</html>
-----------------------------------------

Listing 2.0 - discussframes.
-------------------------------------------------

<%
page = TRIM( request( "pg" ) )
addm = TRIM( request( "addm" ) )
email = TRIM( request( "email" ) )
subject = TRIM( request( "subject" ) )
message = TRIM( request( "message" ) )

IF addm <> "" THEN
IF email = "" THEN
showError "You did not enter your email address", "post."
END IF
IF subject = "" THEN
showError "You did not enter a subject for your message", "post."
END IF
IF message = "" THEN
showError "You did not enter a message", "post."

END IF
IF INSTR( email, "." ) = 0 OR INSTR( email, "@" ) = 0 THEN
showError "You did not enter a valid email address", "post."
END IF

readyDBCon
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.CursorType = adOpenStatic
RS.LockType = adLockOptimistic
RS.Open "SELECT * FROM messages WHERE 1<>1", Con
RS.AddNew
RS( "m_email" ) = email
RS( "m_subject" ) = subject
RS( "m_message" ) = message
RS( "m_reply" ) = addm
RS.Update
RS.Close
IF addm <> "-1" THEN
Con.Execute "UPDATE messages SET m_numreplies = m_numreplies 1 WHERE m_id=" & addm
END IF
END IF
%>
<html>
<head><title>frameset</title>