<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->

<%call head()
Call saycarda("删除记录")%>

<%
if keys<>1 then 
Response.write"很抱歉!您没有权限删除拜访!请返回!!!!"
else
 conn.Execute"delete from [baifang]"
 conn.Execute"delete from [usbook] where usid="&myid
Response.write"拜访记录清除成功!!!"
end if

%>

<!--#include file="fanhui.asp"-->
<%Call headsay()%>