手机WAP编程

开发平台：

ASP/ASPX

ts_lm.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 and lx=1 or lx=3 or lx=9 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="文本菜单"
if rs("lx")="2" then mmlx="链接菜单"
if rs("lx")="3" then mmlx="图片菜单"
if rs("lx")="4" then mmlx="图片链接"
if rs("lx")="5" then mmlx="页面菜单"
if rs("lx")="6" then mmlx="页面内容"
if rs("lx")="7" then mmlx="WML页面"
if rs("lx")="8" then mmlx="UBB标签"
if rs("lx")="9" then mmlx="WML标签"
if rs("lx")="10" then mmlx="自助WML"
%>
<a href="lm_gl.asp?id=<%=rs("id")%>&amp;sb=<%=sb%>&amp;fs=<%=fs%>">[管理]</a>[<%=mmlx%>]<%=rs("pid")%>.<%=rs("nxn")%><br/>
<%
rs.MoveNext
j=j+1
loop
end if
%>
</table>
</body>
</html>

						