手机WAP编程

开发平台：
ASP/ASPX

lm_gl.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">
<%
id=dlubb(request("id"))
if id="" then id="0"
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_lm where id="&id
rs.open rsppl,conn,1,2
if rs.eof then 
response.write("&#x65E0;&#x6B64;&#x680F;&#x76EE;<br/>&#x53EF;&#x80FD;&#x4EE5;&#x88AB;&#x5220;&#x9664;<br/>")
else
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")="11" then mmlx="&#x6587;&#x4EF6;&#x83DC;&#x5355;"
if rs("lx")="10" then mmlx="&#x6587;&#x7AE0;&#x7CFB;&#x7EDF;"
if rs("brr")="0" then hhhh="&#x4E0D;&#x6362;&#x884C;"
if rs("brr")="1" then hhhh="&#x81EA;&#x52A8;&#x6362;&#x884C;"
if rs("yc")="0" then gkfs="&#x6B63;&#x5E38;&#x663E;&#x793A;"
if rs("yc")="1" then gkfs="&#x9690;&#x85CF;&#x663E;&#x793A;"
if rs("yc")="2" then gkfs="&#x5BC6;&#x7801;&#x663E;&#x793A;"
if rs("logo")="1" then xmtb="&#x6682;&#x65E0;"
if rs("logo")<>"1" then xmtb="<img src='"&rs("logo")&"' alt='图标'/>"
%>
&#x9879;&#x76EE;&#x7F16;&#x53F7;:<%=rs("id")%><br/>
&#x9879;&#x76EE;&#x7C7B;&#x578B;:<%=mmlx%><br/>
&#x9879;&#x76EE;&#x540D;&#x79F0;:<%=ubb(rs("nxn"))%><br/>
&#x540E;&#x9762;&#x6362;&#x884C;:<%=hhhh%><br/>
&#x6392;&#x5217;&#x987A;&#x5E8F;:<%=rs("pid")%><br/>
&#x9879;&#x76EE;&#x56FE;&#x6807;:<%=xmtb%><br/>
&#x516C;&#x5F00;&#x65B9;&#x5F0F;:<%=gkfs%><br/>
&#x521B;&#x5EFA;&#x65F6;&#x95F4;:<%=rs("sj")%><br/>
&#x6587;&#x672C;&#x5185;&#x5BB9;:<%=ubb(rs("txt"))%><br/>
----------<br/>
<%if rs("lx")="5" or rs("lx")="10" then%>
<a href="tjlm.asp?sb=<%=sb%>&amp;did=<%=rs("id")%>">&#x6DFB;&#x52A0;&#x9875;&#x9762;&#x9879;&#x76EE;</a><br/>
<%end if%>
<%if rs("lx")="12" then%>
<a href="tjlmok.asp?sb=<%=sb%>&amp;did=<%=rs("id")%>&amp;ok=11">&#x76F4;&#x63A5;&#x6DFB;&#x52A0;&#x6587;&#x4EF6;</a><br/>
<%end if%>
<a href="bj_lm.asp?sb=<%=sb%>&amp;id=<%=rs("id")%>&amp;fs=<%=fs%>">&#x7F16;&#x8F91;&#x9879;&#x76EE;</a>◆<a href="sc_lm.asp?sb=<%=sb%>&amp;id=<%=rs("id")%>&amp;fs=<%=fs%>">&#x5220;&#x9664;&#x9879;&#x76EE;</a><br/>
<a href="yd_lm.asp?sb=<%=sb%>&amp;id=<%=rs("id")%>&amp;fs=<%=fs%>">&#x79FB;&#x52A8;&#x9879;&#x76EE;</a><br/>
----------<br/>
<%end if%>
<%if rs("lx")="5" or rs("lx")="12" or rs("lx")="10" then%>
<%set rsl=Server.CreateObject("ADODB.Recordset")
rsppll="select * from wap_lm where lx<>500 and did="&id&" order by pid asc"
rsl.open rsppll,conn,1,2
if rsl.eof then 
response.write("&#x6682;&#x65E0;&#x4E0B;&#x7EA7;&#x83DC;&#x5355;<br/>")
else
rsl.Move(0)
dim l
l=1
do while ((not rsl.EOF) and l <=500000)
if rsl("lx")="1" then mmlxl="&#x6587;&#x672C;&#x83DC;&#x5355;"
if rsl("lx")="2" then mmlxl="&#x94FE;&#x63A5;&#x83DC;&#x5355;"
if rsl("lx")="3" then mmlxl="&#x56FE;&#x7247;&#x83DC;&#x5355;"
if rsl("lx")="4" then mmlxl="&#x56FE;&#x7247;&#x94FE;&#x63A5;"
if rsl("lx")="5" then mmlxl="&#x9875;&#x9762;&#x83DC;&#x5355;"
if rsl("lx")="6" then mmlxl="&#x9875;&#x9762;&#x5185;&#x5BB9;"
if rsl("lx")="7" then mmlxl="WML&#x9875;&#x9762;"
if rsl("lx")="8" then mmlxl="UBB&#x6807;&#x7B7E;"
if rsl("lx")="9" then mmlxl="WML&#x6807;&#x7B7E;"
if rsl("lx")="10" then mmlxl="&#x6587;&#x7AE0;&#x83DC;&#x5355;"
if rsl("lx")="11" then mmlxl="&#x6587;&#x4EF6;"%>
<a href="lm_gl.asp?id=<%=rsl("id")%>&amp;sb=<%=sb%>&amp;fs=<%=fs%>">[&#x7BA1;&#x7406;]</a>[<%=mmlxl%>]<%=rsl("pid")%>.<%=rsl("nxn")%><br/>
<%
rsl.MoveNext
l=l+1
loop
end if
%>
-----------<br/>
<%end if%>
报时:<%=time%>
</table>
</body>
</html>

						