<!--#include file="../conn/conn1.asp"-->
<!--#include file="inc.asp"-->
<% 
dim sql
dim id
dim linkid
dim linkshid
dim linkindex
blid=request("blid")
id=request("id")
linkid=request("linkid")
linkshid=request("linkshid")
linkindex=request("linkindex")
linktwo=request("linktwo")
if id<>"" then
sql="delete from gbook where id="&id
conn.execute sql
conn.close
set conn=nothing
Response.Write "<script language=javascript>{window.alert('留言删除成功！');window.location.href='gbookgl.asp';}</script>"
elseif linkid<>"" then
sql="delete from link where id="&linkid
conn.execute sql
conn.close
set conn=nothing
Response.Write "<script language=javascript>{window.alert('友情链接删除成功！');window.location.href='linkgl.asp';}</script>"
elseif linktwo<>"" then
conn.execute("update link set flag=0 where id="&linktwo&"")
conn.close
set conn=nothing
Response.Write "<script language=javascript>{window.alert('友情链接次页成功！');window.location.href='linkgl.asp';}</script>"
elseif linkindex<>"" then
conn.execute("update link set flag=1 where id="&linkindex&"")
conn.close
set conn=nothing
Response.Write "<script language=javascript>{window.alert('友情链接首页成功！');window.location.href='linkgl.asp';}</script>"
elseif linkshid<>"" then
conn.execute("update link set cflag=1 where id="&linkshid&"")
conn.close
set conn=nothing
Response.Write "<script language=javascript>{window.alert('友情链接审核成功！');window.location.href='linkgl.asp';}</script>"
end if 
%>
