繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用Access制作一个功能完善的论坛（源程序）
- ASP
- 一段ASP 伪静态代码
- asp的程序能实现伪静态化的方法
- 实例讲解实现抓取网上房产信息的ASP程序
- [图]Flash+ASP实现电子互动地图在线标注功能
- asp下多个域名后缀同时查询的域名查询系统
- 用ASP实现对ORACLE数据库的操作
- 用ASP做的DNS LOOKUP程序
- 用存储过程、GetRows()、抽取10万条数据的速度测试
- asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
- ASP+JS三级联动下拉菜单[调用数据库数据]
- 用ASP实现距指定日期的倒记时程序源码
- 详细讲解ASP脚本循环语句
- ASP中如何判断一个字符是不是汉字
- 将ACCESS转化成SQL2000要注意的问题
- Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
- 在ASP中使用均速分页法提高分页速度的方法
- ASP+COM不得不注意的问题
- ASP生成动态flash的工具与介绍
- 用asp实现的数据库中存取文件的代码
- asp的通用数据分页类
ASP 中的 用Access制作一个功能完善的论坛（源程序）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 229 ::
收藏到网摘: n/a
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.asp
-----------------------------------
<html>
<head><title>Discussion</title></head>
<frameset rows="30,*">
<frame frameborder="no" scrolling="no" src="discusslogo.asp" marginheight=2 marginwidth=5>
<frame name="topframe" src="discussframes.asp">
</frameset>
</html>
-----------------------------------------
Listing 2.0 - discussframes.asp
-------------------------------------------------
<!-- #INCLUDE FILE="discussfuncs.asp" -->
<%
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.asp"
END IF
IF subject = "" THEN
showError "You did not enter a subject for your message", "post.asp"
END IF
IF message = "" THEN
showError "You did not enter a message", "post.asp"
END IF
IF INSTR( email, "." ) = 0 OR INSTR( email, "@" ) = 0 THEN
showError "You did not enter a valid email address", "post.asp"
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>
<frameset rows="300,*">
<frame marginheight="3" marginwidth="5" frameborder="no" scrolling="yes" src="messagelist.asp?
pg=<%=page%>">
<frame name="message" marginwidth="0" marginheight="0" frameborder="no" scrolling="auto"
src="message.asp?id=<%=addm%>&pg=<%=page%>">
</frameset>
</html>
------------------------------------------------------
Listing 3.0 - discussfuncs.asp
-------------------------------------------------------
<%
dbPath = "d:\discuss.mdb"
messagesApage = 5
''''''''''''''''''''
' Define Constants
''''''''''''''''''''
adOpenStatic = 3
adLockOptimistic = 3
'''''''''''''''''''''''''''
' Declare Global Variables
'''''''''''''''''''''''''''
DIM Con
SUB readyDBCon
IF Con = "" THEN
Set Con = Server.CreateObject( "adodb.Connection" )
Con.Open &qu
评论 (0) All
