Dimselectm, selectkey, selectbookmark' declares variables.

Select key = trim (request (trim ("select key"))' to get the passed selection key value and delete spaces.

Selectm=trim(request("Selectm "))' Get the passed selectm value and remove spaces.

What if? selectkey= " "？ If selected, it is empty.

Select key = Request. QueryString ("selectkey ")' uses querystring to get the passed selectkey value.

End? if

//Delete books

What if? selectm= " "？ If selectm is empty.

Selectm = request. QueryString ("selectm ")' uses querystring to get the passed selectm value.

End? if

Selectbookmark = request ("selectbookmark")' to get the passed selectbookmark value.

What if? selectbookid & lt& gt""? If selectbookid is not empty.

Conn.execute "delete? From where? shop_books？ Where is it? bookid？ In ("& select BookID &; ")"? Execute the SQL statement to delete the record with the BOOKID of selectbookid in the table shop_books.

The response. Redirect the managebook.asp program to the managebook.asp page.

End' output ends.

End? if

% & gt