网上商城毕业论文(18)

图4-13

以下是在商品维护表里进行操作以及修改成功后的ASP程序：

<%

dim strsql

set rs=server.createobject("adodb.recordset") strsql="select * from product" rs.open strsql,cn,3,3

if request.form("hidact")="submit" then %>

<!--include file="validate.asp"--> <%

if errormsg="" then while not rs.eof

if request.form("chk" & rs.fields("mpno"))="1" then

strsql="delete * from product where mpno=" & rs.fields("mpno") cn.execute strsql else

strsql="update product set"

strsql =strsql & vbcrlf & "mpnum=" & cint(request.form("txt" & rs.fields("mpno")))

strsql =strsql & vbcrlf & "where mpno="& rs.fields("mpno") cn.execute strsql end if

rs.movenext wend

response.write"<p align=""center"">修改成功 !</p>" end if end if