tuijian.asp

可以做论坛

<% Server.ScriptTimeOut=120 %>
<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<%
if uzhiwu=100 then
IDL=request("idl")
cctj="select * from luntan where idl="&IDL
set rstj=server.createobject("adodb.recordset")
rstj.open cctj,conn,1,1
tuijian=rstj("tuijian")
if tuijian=0 then
   tuijian=1
   else
   tuijian=0
   end if
conn.Execute("update luntan set tuijian="&tuijian&",tjtime=now() where IDl="&IDL)
response.redirect "list.asp?idl="&IDL&""
else
response.write"管理员才能设置推荐 [<a href=list.asp?idl="&request("idl")&">返回</a>]"
end if
%>