用ASP Access制作论坛教程

来源：互联网 作者：west263.com 时间：2008-02-23

西部数码-全国虚拟主机10强！40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

titlenew.asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>

<%
　　　 dbpath=server.MapPath("news.mdb")
　　　 set conn=server.CreateObject("adodb.connection")
　　　 conn.open"driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
　　　 name=request("name")
　　　 Email=request("Email")
　　　 subject=request("subject")
　　　 words=request("words")
　　　 if subject="" or words="" or name="" or Email="" then
　　　　　　　outputmsg="字段不能为空，请填写完整信息！"
　　　 else
　　　　　　　set rs=server.CreateObject("adodb.recordset")
　　　　　　　rs.open "titles",conn,adopendynamic,adlockpessimistic
　　　　　　　rs.addnew
　　　　　　　　　　 rs("name")=name
　　　　　　　　　　 rs("Email")=Email
　　　　　　　　　　 rs("subject")=subject
　　　　　　　　　　 rs("words")=words
　　　　　　　　　　 rs("shu")=0
　　　　　　　rs.update
　　　　　　　outputmsg="您的主题已加入！"
　　　　　　　session("name")=name
　　　　　　　session("Email")=Email
　　　 end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="3;URL=title.asp">
</head>
<body>
<%=outputmsg%>
</body>
</html>

titleout.asp:

<%
　　　 sub titleoutput(rs)
%>
　　　 <tr bgcolor="#ffffff">
　　　　　　　<td valign="top" height="18"><%=rs("主题发布时间")%></td>
　　　　　　　<td valign="top" height="18"><a href="detail.asp?titleID=<%=rs("titleID")%>"><%=rs("主题")%></a></td>
　　　　　　　<td valign="top" height="18"><%=rs("作者")%></td>
　　　　　　　<td valign="top" align="right" height="18"><%=rs("回复篇数")%></td>
　　　　　　　<td valign="top" height="18"><%=rs("最后回复时间")%></td>
　　　 </tr>
<%
　　　 end sub
%>

detail.asp

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

[打印] [关闭]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>

<%
　　　 if not session("passed") then
　　　　　　　response.Redirect("title.asp")
　　　 end if
%>
<%
　　　 dbpath=server.MapPath("news.mdb")
　　　 set conn=server.CreateObject("adodb.connection")
　　　 conn.open"driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
　　　 titleID=request("titleID")
　　　 set rs=conn.execute("select * from titles where titleID="&clng(titleID))
　　　 if rs.eof then
　　　　　　　response.Redirect("title.asp")
　　　 else
　　　　　　　sql="select * from details where titleID="&clng(titleID)&" order by detailID desc"
　　　　　　　set rsdetail=conn.execute("select * from details where titleID="&clng(titleID)&" order by detailID")
　　　 end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
　　　 words=replace(" "&rs("words"),chr(13),"<br>")
　　　 Email="<a href="""&rs("Email")&"mailto:"&rs("Email")&""">"&rs("Email")&"</a>"
%>
<center>
　　　 <table>
　　　　　　　<tr>
　　　　　　　　　　 <td>作者：<%=rs("name")%></td>
　　　　　　　　　　 <td>Email：<%=Email%></td>
　　　　　　　　　　 <td>时间：<%=rs("createdate")%></td>
　　　　　　　</tr>
　　　　　　　<tr>
　　　　　　　　　　 <td colspan="3">主题：<%=rs("subject")%></td>
　　　　　　　</tr>
　　　　　　　<tr>
　　　　　　　　　　 <td colspan="3"><%=words%></td>
　　　　　　　</tr>
　　　 </table>
</center>
<%
　　　 while not rsdetail.eof
　　　　　　　detailoutput rsdetail
　　　　　　　rsdetail.movenext
　　　 wend
%>
<center>发表回复</center>
<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>信箱：</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>
　　　　　　　　　　 <tr>
　　　　　　　　　　　　　<td align="center" colspan="2"><input type="submit" value="提交">
　　　　　　　　　　　　　 <input type="reset" value="清空"></td>
　　　　　　　　　　 </tr>
　　　　　　　</table>
　　　 </center>
</form>
<center><a href="title.asp">返回主题页</a></center>
</body>
</html>

相关文章

上一篇：ASP应用中的应用函数
下一篇：关于session的几个补充函数

热点关注

IDC资讯虚拟主机域名注册托管租用 vps主机智能建站
网站运营建站经验策划盈利搜索优化网站推广免费资源
网站联盟联盟新闻联盟介绍联盟点评网赚技巧
行业资讯业界动态搜索引擎网络游戏门户动态电子商务广告传媒
网络编程 Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术 Web服务器 Ftp服务器 Mail服务器 Dns服务器安全防护
软件技巧其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷 Internet Explorer
网页制作 FrontPages Dreamweaver Javascript css photoshop fireworks Flash
程序设计 Java技术 C/C++ VB delphi
网络知识网络协议网络安全网络管理组网方案 Cisco技术
操作系统 Win2000 WinXP Win2003 Mac OS Linux FreeBSD

版权所有西部数码(www.west263.com)
CopyRight (c) 2002~2007 west263.com all right reserved.
公司地址：四川成都市万和路90号天象大厦4楼　邮编：610031
电话总机：028-86263408 86263960 86264018 86267838 86262244 86263408
售前咨询：总机转201 202 203 204 205 206 207 208
售后服务：总机转211 212 213 214 217 218 晚上0点以后拔分机225