搞好了~~~不知道这样科学吗?
xing_new_class_id=cint(request.querystring("id"))
if request.Form("id")="" then
founderr=true
Response.Write("<script language=javascript>alert('你必须指定操作的对象!');history.back(1);</script>")
else
if not isInteger(request.form("id")) then
founderr=true
Response.Write("<script language=javascript>alert('非法的分类id参数。');history.back(1);</script>")
end if
end if
if founderr then
call diserror()
response.End
end if
sql="select * from [xing_new_class] where xing_new_class_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
conn.execute("delete from [xing_new_list] where xing_new_class_id in ("&xing_new_class_id&")")
set rs=nothing
response.redirect "?xing=newclass"