delsoft.asp

超简单的下载系统

<!--#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='editlist.asp'>请返回</a>"
else 
rs.delete 
response.write "软件已经删除<br>"
response.write "<a href='editlist.asp'>请返回</a>"
end if 
%>