首页 > > 网络编程 > Asp编程 >

用ASP Access制作论坛教程(2)

2008-02-23 09:33:41来源：互联网 阅读 ()

新老客户大回馈,云服务器低至5折


titlenew.asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<!--#include virtual="adovbs.inc"-->
<%
　　　 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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有

上一篇：ASP应用中的应用函数

下一篇：关于session的几个补充函数

相关文章

IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设

网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源

网站联盟： 联盟新闻 联盟介绍 联盟点评 网赚技巧

行业资讯： 搜索引擎 网络游戏 电子商务 广告传媒

网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它

服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护

软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷

网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash

程序设计： Java技术 C/C++ VB delphi

网络知识： 网络协议 网络安全 网络管理 组网方案 Cisco技术

操作系统： Win2000 WinXP Win2003 Mac OS Linux FreeBSD

热门词条
sql数据库恢复php程序编程培训班php扩展开发块语言编程游戏sql建立数据库sql数据库软件下载api接口文档模板音乐api接口python连接mysql安卓编程入门mysql怎么导入数据库加工中心编程基础api 是什么mysql设置sql新建数据库python安装mysql编程app
最新资讯
热门关注
热门标签
AVPS谷歌移动友好算法POSTloadIEimg使用FTP软件COMHTTPHTMLem定义数据Classtimword
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<!--#include file="detout.asp"-->
<%
　　　 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="提交">
　　　　　　　　　　　　 　&nbsp;<input type="reset" value="清空"></td>
　　　　　　　　　　 </tr>
　　　　　　　</table>
　　　 </center>
</form>
<center><a href="title.asp">返回主题页</a></center>
</body>
</html>