ASP功能强大，尤其是其方便的数据库连接功能格外引人注目。利用ADO，只需要寥寥数行代码就可以写出非常好的Web数据库应用程序。
下面是一个“在线商场”系统实例，主页面显示最新产品的前九条信息；系统管理员通过输入帐号和密码，正确登录后方可进入数据维护（录入）。 一、主页（界面）程序
主页界面如^52asp01^所示。
下面是主页的源代码，文件名为Index.asp：
<%sql="SELECT * FROM info order by data desc"
Set Conn = Server.CreateObject（"ADODB.Connection"）
Conn.Open "shop"
set rs=conn.execute（sql）
set cmd=server.createobject（"ADODB.command"）
Set RS = Server.CreateObject（"ADODB.RecordSet"）
cmd.commandtext=sql
cmd.commandtype=1
set cmd.activeconnection=conn
rs.open cmd，，1，1
RS.PageSize = 9
RS.AbsolutePage =1%>
在线购物
alt="title1.jpg （26355 字节）">
cellpadding="0">
cellpadding="0">
cellpadding="0">
alt="title1_1.jpg （8001 字节）">
bordercolor="#C0C0C0">
<%RowCount = rs.PageSize
do While Not RS.EOF and rowcount > 0 %>
<%set rs = nothing
set Conn = nothing
set cmd=nothing
%> 二、数据维护程序实例
数据维护（录入）界面如^52asp02^所示，程序文件名为sjtj.asp。
源代码如下：
<%
if request.form（"bt"）<>"" then
set conn=server.createobject（"adodb.connection"）
conn.open "shop"
sql="insert into info（bt，nr，data） values（＇"&request.form（"bt"）&"＇，＇"&request.form（"nr"）&"＇，＇"&now（）&"＇）"
set rs=conn.execute（sql）
conn.close
end if %>
数据添加
color="#000080">
cellpadding="0">
|广而告之| |用户订单| |商品添加| |邮件列表|
%>
三、新用户注册程序
新用户注册界面如^52asp03^所示，程序文件名user_inser.asp。
源代码如下：
<%
name=request.form（"name"）
userid=request.form（"userid"）
pass1=request.form（"pass1"）
pass2=request.form（"pass2"）
idcard=request.form（"idcard"）
phone=request.form（"phone"）
fax=request.form（"fax"）
email=request.form（"email"）
adders=request.form（"adders"）
post=request.form（"post"）
if name<>"" and userid<>"" and idcard<>"" and phone<>"" and fax<>"" and email<>"" and adders<>"" and post<>"" then
set conn=server.createobject（"adodb.connection"）
conn.open "shop"
sql="insert into user_info（name，userid，pass，idcard，phone，fax，email，adders，post，data） values（＇"&name&"＇，＇"&userid&"＇，＇"&pass1&"＇，＇"&idcard&"＇，＇"&phone&"＇，＇"&fax&"＇，＇"&email&"＇，＇"&adders&"＇，＇"&post&"＇，＇"&now（）&"＇）"
set rs=conn.execute（sql）
conn.close
response.redirect"main.asp"
end if %>
新用户注册－－在线购物
<%if name<>"" or userid<>"" or idcard<>"" or phone<>"" or fax<>"" or email<>"" or adders<>"" or post<>"" then%> 请填完所有表中所有选项
alt="title1.jpg （26355 字节）">
alt="title1_1.jpg （8001 字节）">
height="16" alt="Paw.gif （121 字节）">
height="55" alt="title1_2.jpg （7652 字节）">
