<!--#include file="../inchuayuwebrlzywzhyweb/CONN.ASP"-->
<!--#include file="../inchuayuwebrlzywzhyweb/cls_huayuweb()^191563631.asp"-->

<title>留言操作</title>
<%oa.chkadmin()%>
<%
id=oa.sqlrequest("id")
if id="" or not isnumeric(id) then oa.msgshow("非法操作！")
set rs=oa.execute("select id from c_guestbook where id="&id)
if rs.eof then oa.msgshow("非法操作！")
rs.close
select case oa.act
       case "sh"
	        call sh
	   case  "zd"
	        call zd
end select
'是否前台显视
sub sh
set rs=oa.execute("select sh from c_guestbook where id="&id)
if rs(0)=0 then
oa.execute("update c_guestbook set sh=1 where id="&id)
else
oa.execute("update c_guestbook set sh=0 where id="&id)
end if
oa.msgopenshow("操作成功！")
rs.close
end sub
'是否置顶
sub zd
set rs=oa.execute("select zd from c_guestbook where id="&id)
if rs(0)=0 then
oa.execute("update c_guestbook set zd=1 where id="&id)
else
oa.execute("update c_guestbook set zd=0 where id="&id)
end if
rs.close
oa.msgopenshow("操作成功！")
end sub


%>

