📄 lang.asp

📁 admin/admin.asp是WAP的后台管理登陆页面
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<%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")
nclassup=rs("nclassup")
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 %>
<% if nclassup=1 and session("nameup")<>"" then %>
<a href='mobileup.asp?aid=<%=classid%>&amp;bid=<%=nclassid%>'>上传文件</a><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
	response.write "<a href='list.asp?id="&rs("articleid")&"'>"&((page-1)*10+i)&"."&untow(rs("title"))&"</a><br/> "
        end if
        if rs("articleon")=1 then
        response.write "<a href='lianjie.asp?id="&rs("articleid")&"'>"&((page-1)*10+i)&"."&untow(rs("title"))&"</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><br/>"
        end if
%>
<%
i=i+1
rs.movenext
loop
end if 
%>
<%if page>1 then%>   
<a href='lang.asp?classid=<%=classid%>&amp;nclassid=<%=Nclassid%>&amp;page=<%=page-1%>'>&#x4E0A;&#x9875;&lt;&lt;</a>
<%end if%>
<%if page<rs.pagecount   then%>
<a href='lang.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/>-------------
<%
  set rsguang=server.createobject("adodb.recordset")
  rsguang.open "select id,title from guanggao where classid='a"&Nclassid&"'",conn,1,1
if rsguang.bof and rsguang.eof then
response.write ""
else
response.write "<br/><a href='vguang.asp?id="&rsguang("id")&"'>"&rsguang("title")&"</a>*"
end if
rsguang.close
%>
<br/><a href='step.asp?id=<%=classid%>'><%=untow(classname)%></a>  
<br/><a href='index.asp'>&#x8FD4;&#x56DE;&#x9996;&#x9875;</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='lang.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 + -