手机WAP编程

开发平台：
ASP/ASPX

wlist.asp：源码内容
							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <%
mmmm=usb(request("mmmmm"))
id=usb(request("id"))
bs=usb(request("bs"))
if bs="" then kkk="sj"
if bs="1" then kkk="rq"
if id="" then id="0"
set rss=Server.CreateObject("ADODB.Recordset")
rsspl="select * from wap_lm where id="&id
rss.open rsspl,conn,1,2
if rss.eof then 
nxn="出错了"
else
nxn=ubb(rss("nxn"))
txt=ubb(rss("txt"))
mm=ubb(rss("mm"))
yccl=ubb(rss("yc"))
dq=ubb(rss("dq"))
if dq="" then dq="left"
end if
%>
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card id="main" title="<%=nxn%>">
<p align="<%=dq%>">
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_lm where lx<>500 and did<>0 and yc<>1 and did="&id&" order by "&kkk&" desc"
rs.open rsppl,conn,1,2
if rs.eof then 
response.write("栏目建设中...<br/>")
else
if mm="0" or mm=mmmm then%>
<%if bs="1" then%>
<a href='wlist.asp?id=<%=request("id")%>&amp;page=<%=request("page")%>'>最新</a>|最热<br/>
<%elseif bs="" then%>
最新|<a href='wlist.asp?id=<%=request("id")%>&amp;page=<%=request("page")%>&amp;bs=1'>最热</a><br/><%end if%>
<%If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then	
	Page = 1
	Else
	Page = CINT(Request.QueryString("Page"))
End If
	rs.pagesize =10
	total  = rs.RecordCount
	rs.absolutepage=page
	mypagesize = rs.pagesize 
rs.Move(0)
dim j
j=1
do while ((not rs.EOF) and j <=10)%>
<%=j+(page*10)-10%>
<%if rs("lx")="1" then%>
<%=ubb(rs("txt"))%>
<%elseif rs("lx")="2" then%>
<a href="<%=ubb(rs("txt"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="3" then%>
<img rsc="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/>
<%elseif rs("lx")="4" then%>
<a href="<%=ubb(rs("url"))%>"><img rsc="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/></a>
<%elseif rs("lx")="5" then%>
<a href="list.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="6" then%>
<a href="view.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="7" then%>
<a href="wml.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="8" then%>
<%=ubb1(rs("txt"))%>
<%elseif rs("lx")="9" then%>
<%=rs("txt")%>
<%elseif rs("lx")="10" then%>
<a href="wml.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
<%end if%>
<%if rs("brr")="1" then%><br/><%end if%>
<%
rs.MoveNext
j=j+1
loop
end if
end if%>
<%if page<rs.pagecount   then%>
<a href='wlist.asp?id=<%=request("id")%>&amp;page=<%=page+1%>&amp;bs=<%=bs%>'>下页</a>
<%end if%>
<%if page>1 then%>   
<a href='wlist.asp?id=<%=request("id")%>&amp;page=<%=page-1%>&amp;bs=<%=bs%>'>上页</a>
<%end if%>
<%if rs.pagecount>1 then%>
(<%=page%>/<%=rs.pagecount%>/<%=total%>)<br/>
第<input type="text" name="pages" format="*N" size="2" value="<%=page+1%>"/>
<anchor>跳页<br/>
<go href='wlist.asp?id=<%=request("id")%>' accept-charset='utf-8'>
<postfield name='page' value='$(pages)'/>
</go>
</anchor>
<%end if%>
<%if mm<>"0" and mm<>mmmm then%>
加密页面！请输入正确密码！<br/>
请输入密码<br/>
<input name="nnmm" title="密码" type="text" maxlength="100" /><br/>
<anchor>
[确定提交]
<go href="list.asp?id=<%=id%>&amp;mkl=<%=time%>&amp;bs=<%=bs%>" method="post" accept-charset="utf-8">
        <postfield name="mmmmm" value="$(nnmm)"/>
    </go>
</anchor>
<%end if%>
<!--#include file="w.asp"-->
</p></card></wml>

						