📄 uplist.asp

📁 admin/admin.asp是WAP的后台管理登陆页面
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
classid=request("classid")
Nclassid=request("Nclassid")
set rs = server.createobject("adodb.recordset")
sql="select * from ANclass where NclassID="&request("Nclassid")
rs.open sql,conn,1,1
if not rs.eof then
Nclassname=rs("Nclass")
nclassurl=rs("nclassurl")
end if
rs.close
set rs=nothing
set rs = server.createobject("adodb.recordset")
sql="select * from Aclass where id="&request("classid")
rs.open sql,conn,1,1
if not rs.eof then
classname=rs("class")
end if
rs.close
set rs=nothing
%>
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='main' title='<%=untow(Nclassname)%>'>
<p><% if nclassurl<>"" then 
response.write ""&ubbcodex(nclassurl)&"<br/>"
end if %> 
<% 
set rs = server.createobject("adodb.recordset")
sql="select * from article where Nclassid="&Nclassid&" order by ding and articleid " 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "&#x6CA1;&#x6709;&#x4EFB;&#x4F55;&#x6587;&#x7AE0;<br/>"
else
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then	
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize =10
total  = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize %>
<%=page%>/<%=rs.pagecount%>&#x9875;&#xFF0C;<%=total%>&#x6761;&#x8BB0;&#x5F55;<br/>
<%
        dim i 
	i=1
        do while not rs.eof and i<=mypagesize 
%>
<% if rs("articleon")=0 then %>
<a href='f_article.asp?id=<%=rs("articleid")%>'><%=(page-1)*10+i%>.<%=rs("title")%></a>
<a href='f_xuxe.asp?id=<%=rs("articleid")%>'>[&#x7EED;]</a> <a href='y_type.asp?id=<%=rs("classid")%>&amp;nclassid=<%=rs("nclassid")%>&amp;articleidid=<%=rs("articleid")%>'>[&#x79FB;]</a> <a href='f_del.asp?id=<%=rs("articleid")%>'>[&#x5220;]</a><br/>
<%end if%>
<% if rs("articleon")=1 then %>
<a href='f_article.asp?id=<%=rs("articleid")%>'><%=(page-1)*10+i%>.<%=rs("title")%></a> <a href='y_type.asp?id=<%=rs("classid")%>&amp;nclassid=<%=rs("nclassid")%>&amp;articleidid=<%=rs("articleid")%>'>[&#x79FB;&#x52A8;]</a> <a href='f_del.asp?id=<%=rs("articleid")%>'>[&#x5220;&#x9664;]</a><br/>
<%end if%>
<% if rs("articleon")=2 then 
response.write "<a href='softdown.asp?id="&rs("articleid")&"&amp;aid="&rs("classid")&"&amp;bid="&rs("Nclassid")&"'>"&((page-1)*10+i)&"."&c2u(rs("title"))&"</a>"
response.write "|<a href='updel.asp?id="&rs("articleid")&"&amp;aid="&rs("classid")&"&amp;bid="&rs("Nclassid")&"'>[&#x5220;&#x9664;]</a><br/>"
end if %>
<%
i=i+1
rs.movenext
loop
end if 
%>
<%if page>1 then%>   
<a href='uplist.asp?classid=<%=classid%>&amp;nclassid=<%=Nclassid%>&amp;page=<%=page-1%>'>&#x4E0A;&#x9875;&lt;&lt;</a>
<%end if%>
<%if page<rs.pagecount   then%>
<a href='uplist.asp?classid=<%=classid%>&amp;nclassid=<%=Nclassid%>&amp;page=<%=page+1%>'>&#x4E0B;&#x9875;&gt;&gt;</a>
<%end if%>
<%if rs.pagecount=0 then%>
<%else%>
(<%=page%>/<%=rs.pagecount%>)
<br/><a href='#card2'>&#x6309;&#x9875;&#x641C;&#x7D22;</a><%end if%>
<br/>-------------
<br/><a href='f_ztype.asp?id=<%=classid%>'><%=untow(classname)%></a>  
<br/><a href='f_type.asp'>文章管理</a>
<br/><a href='main.asp'>管理首页</a>
<%
rs.close
set rs=nothing
%></p>
</card>
<card id='card2' title='<%=untow(Nclassname)%>'>
<p>&#x8F93;&#x5165;&#x9875;&#x7801;:
<input name='pages' value='<%=page%>' format='*N'/>
<anchor>[&#x53BB;&#x5427;]
    <go href='uplist.asp' accept-charset='utf-8'>
        <postfield name='classid' value='<%=classid%>'/>
        <postfield name='nclassid' value='<%=Nclassid%>'/>
        <postfield name='page' value='$(pages)'/>
    </go>
</anchor></p>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -