打印本文 打印本文  关闭窗口 关闭窗口
ASP与SQL网站数据库程序设计(16)
作者:.. 文章来源:科学出版社 点击数: 更新时间:2004/1/25 1:09:56
160:             <% else %>

161:                 <input type=checkbox name='New-Arrival<% = j %>'>

162:             <% end if %>

163:             </td>

164:         </tR>

165:         <tr><td colspan='5'> </td></tr>

166:        

167:         <%

168:         next

169:     end if

170: %>

171: <tr>

172: <td colspan=5 align=center><input type=submit name= "Submit" value="修改确认"> 

173: <input type=reset name="reset" value="清除选择">

174: </table>

175:

176: <% end function %>

程序说明

92~96行:判断管理员使用的是“单一产品代号的指定”或是“根据产品类别”的方式,向SQL 表查询相关的产品基本信息。

100~176行:根据SQL Query 查询结果的Recordset记录集合,配合“For…Next”循环的使用,将所有与设置条件相符的记录内容,逐条输出到浏览器上。

ProductModify.asp 程序段

180: <%

181: Function ProductsModify

182: if Session("Recordes") >= 0 Then

183:

184:    for i =0 to Session("Recordes")

185:    if request.form("Check" & i) = "on" then

186:    if request.form("CurrencyType" & I) = "" then

187:    Strings = "尚未设置使用的币别\n产品更新程序无法完成!"

188:    call showInfo(Strings,"",0)

189:    end if

190:    SQL = "Update 产品基本信息 Set "

191:    SQL = SQL & "产品名称='" & request.form("ProductName" & I ) & "', "

192:    SQL = SQL & "产品简述='" & request.form ("SpecificationNo" & I ) & "' "

193:    SQL = SQL & "Where 产品代号='" & request.form("Products" & I ) & "'"

194:    Set Rs = OBJConn.Execute(SQL)

195:    SQL = "Update 产品基本信息 Set "

196:    SQL = SQL & "币别='" & request.form("CurrencyType" & I ) & "',"

197:    SQL = SQL & "单价='" & request.form("price" & i ) & "',"

198:    SQL = SQL & "交货期='" & request.form("Delivery" & i ) & "',"

199:    SQL = SQL & "备注='" & request.form("Memo" & i ) & "'"

200:    if request.form("newarrival" & i ) = "on" then

201:    SQL = SQL & ",新上市=1"

202:    else

203:    SQL = SQL & ",新上市=0"

204:    end if

205:    SQL = SQL & " Where 产品代号='" & request.form ("Products" & I ) & "'"

206:    Set Rs = OBJConn.Execute(SQL)

207: 'response.write sql & "<br>"

208:    end if

209:

210:    next

211:    Strings = "产品数据已经更新完成!"

212:    URLs = "/ProductModify.asp?ClassifyNo=" & request.form ("ClassifyNo")

213:    call showinfo (Strings , Urls,0)

214: end if

215: End Function

216: %>

程序说明

本段程序代码的主要功能在于读取管理员所更新的产品基本信息的各项字段内容,产生合适的 SQL Query 内容,并且执行该更新的SQl Query 内容。

186~189行:判断是否设置了单项产品的使用币别。如果没有设置币别,将不允许更新产品的基本信息。

190~206行:设置并且执行更新后的产品基本信息所使用的 SQL Query

211~213行:显示更新完成的信息,同时将网页转向,并且设置为目前正在浏览的产品类别。

 << 上一页  [11] 



打印本文 打印本文  关闭窗口 关闭窗口