作者:不详 上传日期:2008-01-02
讲解：
1、<!--#include file="admin_conn.asp"-->此句是说将conn.asp这个文
件包含到这个网页；
2、<form>到</form>这个之间的是说此间使用的表单的对象。表单是用来
收集数据的。
3、Response.write(“注册成功！”)此句的功能是：在注册完全成功后写出“注册成功”四个字；
4、rs.Open sql,conn,1,3‘请注册这边的3，如果不是3，那将不能进行
插入操作；
5、rs.Addnew只进行插入，如果没有进行rs.Update操作，插入不进成功
。这也是许多初学者经常出错的地方。
（6）下面我将对新闻的读取操作做一些研究后的说明。由于新闻的内容
是在/ DBASE/#shop.mdb这个数据库中，（7）所以我们也得重新建立连接
。连接的代码如下：（文件名（8）为：Comm\CONN.ASP）
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&
Server.MapPath("DBASE/#shop.mdb")
%>
讲解：
所有与数据库的连接都可以使用此语句。同时也说明一点，
Server.MapPath是获得服务器的地址的。
（9）当连接后，（10）就可以直接在前台使用相应的代码读取新闻了。
读取新闻的核心代码是：
<!--#include file="Comm/conn.asp"-->
<table width="100%"border="0" cellspacing="0" cellpadding="0"><%
'*************新闻板块
'判断日期是否过期，和是否设定在线！
sqlprom = "select top 9 NewsId,NewsTitle,PubDate from News where
newsclass='网站动态'and online=true and date()<OffDate and
date()>=PubDate order by Pubdate desc"
set rsnews=Server.CreateObject("ADODB.RecordSet")
rsnews.open sqlprom,conn,1,1
%>
<%
if rsnews.eof and rsnews.bof then
response.write "<tr><td height=50 align=center>最近没有促销信
息</td></tr>"
else
Do while Not rsnews.eof
%>
<tr><td>
<a href="news_detail.asp?NewsId=<%=Cstr(rsnews("NewsId"))%>"
target="_blank"><%
if len(rsnews("NewsTitle"))>15 then
response.write left(rsnews("NewsTitle"),15)&"..."
else
Response.write rsnews("NewsTitle")
end if
%>
</a></td></tr>
<%
rsnews.movenext
loop
end if
set rsnews=nothing
%>
共 3 页 1 [2] 3 下一页