gotop.asp

asp+flash宾客留言系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
sql="select g_top from gbook where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
g_top = rs("g_top")
if g_top <> -1 then '判断是否已经置顶
conn.execute("Update gbook set g_top=-1 where id="&id)
Response.Write "&datatxt=留言已经置顶"
else
conn.execute("Update gbook set g_top=0 where id="&id)
Response.Write "&datatxt=已经取消留言置顶"
end if
rs.close
set rs = nothing
%>