shopa_keydelete.asp

vb的一个事例,简单了一点,但实用的一个电子超市系统

<!--#include file="shop$db.asp"-->
<!--#include file="shopa_tools.asp"-->
<%
'*************************************************************************
' Shop administration only
' used to delete on record from one table
'*************************************************************************
ShopCheckAdmin
AdminPageHeader
dim conn
dim rs
dim strID
dim strconn
dim strDelete
which=request.querystring("which")
idfield=request.querystring("idfield")
dbtable=request.querystring("table")
database=request.querystring("database")
OpenDB  conn,database
sql = "DELETE FROM " & dbtable & " WHERE " & idfield & "=" & which
response.write sql
conn.execute(sql)
If  err.number>0 then
         response.write "VBScript Errors Occured:" & "<P>"
         response.write "Error Number=" & err.number & "<P>"
         response.write "Error Descr.=" & err.description & "<P>"
         response.write "Help Context=" & err.helpcontext & "<P>" 
         response.write "Source=" & err.source & "<P>"
         response.write "SQLState=" & err.sqlstate & "<P>"
end if
if conn.errors.count> 0 then
        response.write "Database Errors Occured" & "<P>"
        response.write SQLstmt & "<P>"
        for counter= 0 to conn.errors.count
          response.write "Error #" & conn.errors(counter).number & "<P>"
          response.write "Error desc. -> " & conn.errors(counter).description & "<P>"
        next
else
        response.write "<B><br>Everything Went Fine. Record is deleted now!</b>"
        response.write "<br>" & SQLstmt
end if
set conn = nothing
AdminPageTRailer
%>