手机WAP编程

开发平台：

ASP/ASPX

admin_lb.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
rs.Move(0)
dim j
j=1
do while ((not rs.EOF) and j <=500000)
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;&#x94FE;&#x63A5;"
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;"
if rs("lx")="11" then mmlx="&#x6587;&#x4EF6;"
if rs("lx")="12" then mmlx="&#x6587;&#x4EF6;&#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
j=j+1
loop
end if
%>
</table>
</body>
</html>

						