📄 lang.asp

📁 这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd"><html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<!--#include file="const.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
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
%>
<wml>
<head><meta http-equiv="Cache-Control" content="no-cache"/><meta http-equiv="content-type" content="text/html;charset=UTF-8"/>
</head>
<card id='main' title='<%=untow(Nclassname)%>'>
<p>
<% if nclassurl<>"" then 
response.write ""&ubbcodex(nclassurl)&"<br/>"
end if %> 
<img src="/hen.gif" alt="..."/><br/>
<% 
set rs = server.createobject("adodb.recordset")
sql="select * from article where Nclassid="&Nclassid&" order by articleid desc" 
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 =30
total  = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize %>
<%
        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)*30+i)&"."&untow(rs("title"))&"</a><br/> "
        end if
        if rs("articleon")=1 then
        response.write "<a href='lianjie.asp?id="&rs("articleid")&"'>"&((page-1)*30+i)&"."&untow(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%>)<%=total%>&#x6761;
<a href='#card2'>&#x8DF3;&#x9875;</a><%end if%>
<br/><img src="/hen.gif" alt="..."/>
<br/><a href='step.asp?id=<%=classid%>'><%=untow(classname)%></a>  
<br/><a href='/bbs/index.asp'>&#x793E;&#x533A;&#x9996;&#x9875;</a>
<br/><a href='index.asp'>&#x7F51;&#x7AD9;&#x9996;&#x9875;</a>
<br/><!--#include file="ad.asp"-->
<!--#include file="online.asp"--></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 + -