106:         <td class="tsize"><% = datas(0,i) %>

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">&lt;产品信息新增系统 &gt;

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]  ...  下一页 >>