手把手教你使用VB来创建ASP组件5
作者:
来源:
日期:2005-1-20
五、ASP程序的编写
(1) ListCdInformation.asp 程序
这个程序实现的是检索数据库,把检索的结果显示为一张表,使用了刚才我们定义的组件。它打开表,然后列举每一张CD的信息。
<%
Dim Cd_Info
Set Cd_Info= Server.CreateObject("CD.CD_Handle")
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>CD信息列表</TITLE>
</HEAD>
<BODY>
<B><P ALIGN="center">CD信息列表</P></B>
<TABLE BORDER="2" CELLSPACING="1">
<TR>
<TD><P ALIGN="center">CD编号</TD>
<TD><P ALIGN="center">CD名</TD>
<TD><P ALIGN="center">作者</TD>
<TD><P ALIGN="center">价格</TD>
<TD><P ALIGN="center">CD简介</TD>
</TR>
<TR></TR>
<%DIM ID
Dim Name
Dim Author
Dim Price
Dim Information
'初始化CD列表
Cd_Info.OpenDB
While Cd_Info.IsEof =False
Cd_Info.NextCD ID,Name,Author,Price,Information
%>
<TR>
<TD><%=ID%></TD>
<TD><%=Name%></TD>
<TD><%=Author%></TD>
<TD><%=Price%></TD>
<TD><%=Information%></TD>
<TD><Form Name = "Delete" METHOD ='POST' ACTION ="DeleteCdInformation.asp?id=<%=ID%>">
<INPUT TYPE "SUBMIT" VALUES="删除此条" NAME="DELETE2">
</FORM>
</TD>
</TR>
<%
Wend
%>
</TABEL>
<FORM NAME="ADD" METHOD ="POST" ACTION="AddCDInformation.asp">
<input type ="submit" value="添加一条CD信息" Name="ADD2">
</FORM>
</body>
</html>