您现在的位置： 
107: <input type="hidden" name="Banner<% = i %>" value="<% = datas(0,i)%>">
108: </td>
109: <td class="tsize"><input type="text" name= "ClassifyInfo<% = i %>" Value="<% = datas(1,i) %>" size="60"></td>
110: </tr>
111: <% next %>
112: <tr><td align="center" bgcolor=Tan colspan="4" >
113: <input type="hidden" Name="Amount" Value="<% = I %>">
114: <Input type="Submit" Name="Submit" Value="确定修改">
115: <Input type="Submit" Name="Submit" Value="确定删除">
116: <Input type="Submit" Name="Reset" Value="重新修改">
117: </td></tr>
118: <% end if %>
119: </table>
120: <P>
121: <table Border=1 border=0 cellpadding=1 cellspacing=1 align="center" width="80%">
122: <tr><td colspan="2" align="Center" bgcolor="tan"> <font color=MediumBlue>新增分类</font></td></tr>
123: <tr>
124: <td class="tsize" width="10%" bgcolor=Tan>类别编号</td>
125: <td class="tsize" width="80%" bgcolor=Tan align= "left">类别名称</td>
126: </tr>
127: <tr bgcolor=CornflowerBlue>
128: <td class="tsize" width="10%"><input type="text" name="NewClassifyNo" Value="" size="10" maxlength=4></td>
129: <td class="tsize" width="80%"><input type="text" name="NewClassifyInfo" Value="" size="60"></td>
130: </tr>
131: <tr><td align="center" bgcolor=Tan colspan="2" > <Input type="Submit" Name="Submit" Value="确定新增"></td></tr>
132: </table>
133: </Form>
134: </BODY>
135: <% end sub %>
程序说明
第66~82行：从“产品类别”表中，取出所有的产品类别相关信息。
第99~118行：如果表记录不为空，则将所有的产品类别以HTML表格的形式显示在浏览器上，同时为每一条记录加入“修改”及“删除”的复选框。
第121~132行：产生可以输入新的产品类别信息的字段、按钮。在单击“确定新增”按钮后，将会执行表的写操作。并且，如果前端菜单系统的执行画面被更新过，则新的产品类别将自动出现在浏览器上。
15-7 产品上架
“产品上架”？事实上，对于数据库系统而言，这只是将一项新的产品加入到“产品基本信息”表中而已。这个子系统将会用到“产品基本信息”、“产品类别”和“币别信息”三个表。以下是这个子系统的执行结果、程序段以及程序说明如下：
ProductCreate.asp 程序段
01: <%
02: Response.Expires = 0
03: 'Bypass="Yes"
04: Public datas
05: if trim(request.QueryString("methods")) = "refresh" then
06: datainputs
07: else
08: if trim(request.form("productno")) <> "" then
09: ' response.write request.form("productno")
10: CreateProducts
11: else
12: datainputs
13: end if
14: end if
15: %>
程序说明
第8行：判断管理员是否单击了“确定送出”按钮。如果确定发生了这个动作时，则会调用自定义函数“CreateProducts”，执行将窗体的信息写入表。否则，则只是执行产生输入数据的窗体而已。
ProductCreate.asp 程序段
34: <center class="ChiDingTitle"><产品信息新增系统 >
35:
36:
37: <%
38: Set OBJConn = Server.CreateObject("ADODB.Connection")
39: OBJConn.Open "Trade", "test", "test1"
40: On Error Resume Next
41: SQL = "Select * From 产品类别 order by 类别编号"
42: Set Rs = OBJConn.Execute(SQL)
43: datas = rs.getrows(500)
44: SQL = "Select * from 币别信息 order by 币别代号"
45: Set Rs = OBJConn.Execute(SQL)
46: if not rs.eof then
47: datas1 = rs.getrows(500)
48: else
49: showinfo "请先新增币别！","currency.asp",1
50: end if
51: objconn.close
52:
53: %>
54:
55: <form method='post' >
56: <table border="1" bgcolor="tan">
57: <tr>
58: <td width='65' class='ChiDingSt02' bgcolor="tan">产品代号</td>
59: <td Colspan="2"><input type='text' name='productno' value ='' MaxLength="6"></td>
60: <td class='ChiDingSt02' bgcolor="tan">新上市？ <input type=checkbox Name="NewArrival" Checked></td>
61: </tr>
62: <tr>
63: <td class='ChiDingSt02' bgcolor="tan">类别设置</td>
64: <td colspan="3" class='ChiDingSt02' bgcolor="tan">
65: <select name="Classify" id=select1>
66: <% for i = 0 to ubound(datas,2) %>
67: <option value="<%= Datas(0,I) %>"><% = datas(0,I) & " -- " & datas(1,I) %></option>
68: <% next %>
69: </select>
70: </td>
71: </tr>
72: <tr>
73: <td class='ChiDingSt02' bgcolor="tan">产品名称</td>
74: <td colspan="3"><input type='text' name='productname' value='' size="30"></td>
75: </tr>
76: <tr>
77: <td class='ChiDingSt02' bgcolor="tan">产品简述</td>
78: <td colspan="3"><textarea cols=50 rows=4 name='specify'> </textarea></td>
79: </tr>
80: <tr><td class='ChiDingSt02' bgcolor="tan">币别</td><td>
81: <select name="currency">
82: <option value='请选择币别' selected>请选择币别</option>
83: <%
84: for i = 0 to ubound(datas1,2)
85: response.write "<option value='" & datas1(0,i) & "'>" & datas1(1,i) & "</option>"
86: ' 由系统信息自动取出的
87: next
88: %>
89: </select>
90: </td>
91: <td class='ChiDingSt02' bgcolor="tan">
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
