手机WAP编程

开发平台：

ASP/ASPX

admin_lbfs.asp：源码内容

							<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html>
<!--#include file="admin_sb.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head><body><body bgcolor="#fcefff">
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_lm where lx<>500 and did=0 order by pid asc"
rs.open rsppl,conn,1,2
if rs.eof then 
response.write("<br/>")
else
pag=30
dim page,maxpage
page=cint(request.QueryString("page"))
if page="" or page<1 then page=1
maxpage=int((rs.recordcount-1)/pag)+1
if page>maxpage then page=maxpage
rs.Move((page-1)*pag)
dim l
l=1
do while ((not rs.EOF) and l <=cint(pag))
if rs("lx")="1" then mmlx="&#x6587;&#x672C;&#x83DC;&#x5355;"
if rs("lx")="2" then mmlx="&#x94FE;&#x63A5;&#x83DC;&#x5355;"
if rs("lx")="3" then mmlx="&#x56FE;&#x7247;&#x83DC;&#x5355;"
if rs("lx")="4" then mmlx="&#x56FE;&#x7247;&#x83DC;&#x5355;"
if rs("lx")="5" then mmlx="&#x9875;&#x9762;&#x83DC;&#x5355;"
if rs("lx")="6" then mmlx="&#x9875;&#x9762;&#x5185;&#x5BB9;"
if rs("lx")="7" then mmlx="WML&#x9875;&#x9762;"
if rs("lx")="8" then mmlx="UBB&#x6807;&#x7B7E;"
if rs("lx")="9" then mmlx="WML&#x6807;&#x7B7E;"
if rs("lx")="10" then mmlx="&#x6587;&#x7AE0;&#x83DC;&#x5355;"
%>
<a href="lm_gl.asp?id=<%=rs("id")%>&amp;sb=<%=sb%>&amp;fs=<%=fs%>">[&#x7BA1;&#x7406;]</a>[<%=mmlx%>]<%=rs("pid")%>.<%=rs("nxn")%><br/>
<%
rs.MoveNext
l=l+1
loop
if page*pag<rs.recordcount then response.write("<a href='admin_lbfs.asp?fs="&fs&"&amp;sb="&sb&"&amp;page=" & page+1 & "'>&#x4E0B;&#x4E00;&#x9875;</a>")
if page>1 then response.write("<a href='admin_lbfs.asp?fs="&fs&"&amp;sb="&sb&"&amp;page=" & page-1 & "'>&#x4E0A;&#x4E00;&#x9875;</a>")
end if
rs.close
set rs=nothing
%>
</table>
</body>
</html>

						