<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="ChkURL.asp"-->
<%
if request.cookies(Forcast_SN)("key")<>"" and request.cookies(Forcast_SN)("key")<>"super"  then
   aaas=0
	set urs=server.createobject("adodb.recordset")
	sql="select * from "& db_User_Table &" where "& db_User_Name &"='"&Request.cookies(Forcast_SN)("username")&"'"
	urs.open sql,ConnUser,1,3
	if urs.bof or urs.eof then
		aaas=0
	end if
	IF Request.cookies(Forcast_SN)("passwd")<>urs(db_User_Password) THEN
		aaas=0
	END IF
	if urs(db_User_bookgl)="0"  then 
	   aaas=1
	 end if
	urs.close
	set urs=nothing
end if 

if request.cookies(Forcast_SN)("key")="super" or aaas=1 then
	reviewid=cint(request("reviewid"))
	conn.execute "delete from "& db_Review_Table &" where reviewid="&reviewid
	conn.close
	set conn=nothing
	response.redirect "GuestBook.asp"
else
	Show_Err("ÄúÎÞÈ¨É¾³ý´ËÁôÑÔ£¡<br><br><a href='javascript:history.back()'>·µ»Ø</a>")
	response.end
end if
%>