del_house.asp

一个关于房产的asp程序

<!--#include file=../efwmanager/include/config.asp-->
<!--#include file=../share/conn_view.asp-->
<!--#include file=../efwmanager/include/function.asp-->
<!--#include file=../efwmanager/include/access_zj.asp-->

<%
	dim checkbox,strSql
	checkbox=request("checkbox")

	if checkbox="" then %>

<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("您未选择要删除的记录!")
Sub window_onload
window.history.back
End Sub
-->
</SCRIPT>

	<% response.end
	 end if

checkbox=replace(checkbox," ","")
checkbox=replace(checkbox,","," or id=")

if session("house")="hack" then
   strSql="delete from [house_hack] where id=" & checkbox
end if
if session("house")="hire" then
   strSql="delete from [house_hire] where id=" & checkbox
end if
if session("house")="sell" then
   strSql="delete from [house_sell] where id=" & checkbox
end if
if session("house")="buy" then
   strSql="delete from [house_buy] where id=" & checkbox
end if
	conn.execute(strSql)
        response.redirect "view_house.asp?house=" & session("house")

%>