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

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

<%
if keys<>1 then 
Response.write"很抱歉!您没有权限删除拜访!请返回!!!!"
else

dim connxy,connstr
connstr="DBQ="+server.mappath("/bbs/xy/#saytk")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set connxy=server.createobject("ADODB.CONNECTION")
connxy.open connstr

 
 connxy.Execute"delete from jiudian"
Response.write"许愿记录清除成功!!!"

 

end if

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