权限不足，你没有此功能的管理权限"
Response.end
end if
%>
<%
id=trim(Request("id"))
up=trim(Request("up"))
down=trim(Request("down"))
tpid=trim(Request("tpid"))
delid=trim(Request("delid"))
editid=trim(Request("editid"))
saveid=trim(Request("saveid"))
tpxx=trim(Request("tpxx"))
endtime=trim(Request("endtime"))
DD=trim(Request("DD"))
DDSL=trim(Request("DDSL"))
sj=date()
eendtime=date()
if ddsl<>"" and tpid<>"" then
conn.Execute "update [tp] set [ddsl]="&ddsl&" where id="&clng(tpid)
end if
sql="select * from [tp] where id="&tpid&" order by id desc"
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
title=rs("title")
endtime=rs("endtime")
ddsl=rs("ddsl")
DD=rs("DD")
if ddsl="" then ddsl=0
end if
rs.close:set rs=nothing
if delid<>"" then
conn.Execute "delete from [tptitle] where ID="&CInt(delid)
end if
if editid="" and saveid="" and tpxx<>"" then
conn.Execute "insert into [tptitle] ([tpxx],[tpid],[tps]) values('"&tpxx&"',"&tpid&",0)"
Response.Redirect "admin_tp2.asp?tpid="&tpid
elseif editid<>"" and saveid="" and tpxx="" then
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [tptitle] where id="&editid&" order by id desc",conn,1,1
if rs.recordcount<>0 then
etpxx=rs("tpxx")
end if
rs.close:set rs=nothing
elseif saveid<>"" and tpxx<>"" then
conn.Execute "update [tptitle] set [tpxx]='"&tpxx&"' where id="&clng(saveid)
Response.Redirect "admin_tp2.asp?tpid="&tpid
elseif id<>"" and up="1" then
conn.Execute "update [tptitle] set [tps]=tps+1 where id="&clng(id)
elseif id<>"" and down="1" then
conn.Execute "update [tptitle] set [tps]=tps-1 where id="&clng(id)
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [tptitle] where id="&id&" order by id desc",conn,1,3
if rs.recordcount<>0 then
if rs("tps")<0 then
rs("tps")=0
rs.update
end if
end if
rs.close:set rs=nothing
end if
%>
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [tptitle] where tpid="&tpid&" order by id asc",conn,1,1
%>