del.asp

来自「不支持软件分类」· ASP 代码 · 共 21 行

<!--#include file="conn.asp"-->
<% 
dim delid
delid=request("id")
if isnumeric(delid)=0 or delid="" then
response.write"没有选择想要删除的软件"
response.end
end if
set rs=server.createobject("adodb.recordset") 
sql="select*from download where id=" & delid
rs.open sql,conn,1,3
if rs.eof and rs.bof then 
response.write "该软件不存在<br>" 
response.write "<a href='edit.asp'>请返回</a>"
else 
rs.delete 
response.write "软件已经删除<br>"
response.write "<a href='edit.asp'>请返回</a>"
end if 
%>