?? 66hc_sh.asp
字號:
?<!--#include file="../66hc.asp"--><!--#include file="admin.asp"-->
<card id="main" title="審核管理" >
<p>
<%
set rs0=server.createobject("ADODB.Recordset")
Sql0="select * from [66hc_url] where [zt]<>1 order by [66hc_id] desc"
rs0.open Sql0,conn,1,1
rs0.PageSize=20
page=CLng(Request("page"))
if page<1 then
page=1
End if
if page>rs0.pagecount then
page=rs0.pagecount
End if
if rs0.recordcount=0 then
response.write("暫無內容<br/>")
else
rs0.absolutepage=page
if page=1 then
bihao=0
else
bihao=page*pag-pag
End if
For i=1 to pag
bihaocont=bihaocont+1
if rs0("zt")=0 then ozt="[待審]"
if rs0("zt")=1 then ozt="[正常]"
if rs0("zt")=2 then ozt="[封鎖]"
%>
<%=bihao+bihaocont%>.<a href='url.asp?sb=<%=sb%>&id=<%=rs0("66hc_id")%>'><%=ubb(rs0("66hc_name"))%></a><%=ozt%><br/>
<%if rs0("zt")<>1 then%><a href='<%=ubb(rs0("66hc_url"))%>'>審核</a>|<a href='tg.asp?sb=<%=sb%>&id=<%=rs0("66hc_id")%>&page=<%=page%>&url=66hc_sh'>通過</a>|<%end if%><a href='fs.asp?sb=<%=sb%>&id=<%=rs0("66hc_id")%>&page=<%=page%>&url=66hc_sh'>封鎖</a>|<a href='sc.asp?sb=<%=sb%>&id=<%=rs0("66hc_id")%>&page=<%=page%>&url=66hc_sh'>刪除</a><br/>
<%
rs0.Movenext
if rs0.EOF then Exit for
Next
End if
response.write "(" & Page & "/" & rs0.PageCount & ")" & "共" & rs0.RecordCount & "个"
If Page<rs0.PageCount then
Response.Write "<a href='66hc_sh.asp?sb="&sb&"&o="&o&"&page=" & (page+1) & "'>[下頁]</a>"
End if
If page>1 then
Response.Write " <a href='66hc_sh.asp?sb="&sb&"&o="&o&"&page=" & (page-1) & "'>[上頁]</a>"
End if
rs0.close
set rs0=nothing
%><br/>
----------<br/>
<a href="d_i.asp?sb=<%=sb%>">返回管理首頁</a><br/>
<a href="/?sb=<%=sb%>">返回網站首頁</a><br/>
報時:<%=time%>
</p></card></wml>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -