在线购物

HTML与ASP脚本的混合编程实例夏文 1998年第52期 17版 ASP功能强大，尤其是其方便的数据库连接功能格外引人注目。利用ADO，只需要寥寥数行代码就可以写出非常好的Web数据库应用程序。下面是一个“在线商场”系统实例，主页面显示最新产品的前九条信息；系统管理员通过输入帐号和密码，正确登录后方可进入数据维护（录入）。 #1 一、主页（界面）程序主页界面如^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%> 在线购物

<%RowCount = rs.PageSize do While Not RS.EOF and rowcount > 0 %> <% RowCount = RowCount - 1 RS.MoveNext Loop %>

" style="text-decoration: none"><%=rs（"bt"）%>

本网站由XXXXXXXXXXXXXXXX公司　联合制作
重庆XXXXXXXXXXXXX工作室
　
1998.11.1
　
　
　

<%set rs = nothing set Conn = nothing set cmd=nothing %> #1 二、数据维护程序实例数据维护（录入）界面如^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 %> 数据添加

#1 三、新用户注册程序新用户注册界面如^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 %> 新用户注册－－在线购物

<%else%> <%end if%>

<%if name<>"" or userid<>"" or idcard<>"" or phone<>"" or fax<>"" or email<>"" or adders<>"" or post<>"" then%> 请填完所有表中所有选项

本网站XXXXXXXXXXXXXXXXXXXX公司　联合制作
重庆XXXXXXXXXXXX工作室

1998.11.1