手机WAP编程

开发平台：
ASP/ASPX

piclist.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"))
bss=usb(request("bss"))
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%>">
<%if bs="1" then%>
<a href='piclist.asp?id=<%=request("id")%>&amp;page=<%=request("page")%>&amp;bss=<%=request("bss")%>'>最新</a> 最热 
<%elseif bs="" then%>
最新 <a href='piclist.asp?id=<%=request("id")%>&amp;page=<%=request("page")%>&amp;bss=<%=request("bss")%>&amp;bs=1'>最热</a> <%end if%>
<%if bss="1" then%>
<a href='piclist.asp?id=<%=request("id")%>&amp;page=<%=request("page")%>&amp;bs=<%=request("bs")%>'>列表</a> 小图<br/>
<%elseif bss="" then%>
列表 <a href='piclist.asp?id=<%=request("id")%>&amp;bss=1&amp;page=<%=request("page")%>&amp;bs=<%=request("bs")%>'>小图</a><br/><%end if%>
<%
if len(txt)>3 then  response.write(""&txt&"<br/>")
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_lm where lx=3 and did<>0 and yc<>1 and did="&id&" order by "&kkk&" desc"
rs.open rsppl,conn,1,2
if not rs.eof then 
rs.pagesize =10
Page=Request("Page")
If Page=""  then Page=1
If Page>999  then Page=999
if cint(page)>rs.pagecount then page=clng(rs.pagecount)
	total  = rs.RecordCount
	rs.absolutepage=page
	mypagesize = rs.pagesize 
rs.Move(0)
dim j
j=1
do while ((not rs.EOF) and j <=10)
if bss="1" then response.write("<img src='"&ubb(rs("url"))&"' width='30' height='30' alt='load....'/><br/>")%>
<a href="pic.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a><br/>
<%
rs.MoveNext
j=j+1
loop%>
<%if cint(page) < rs.pagecount then%>
<a href='piclist.asp?id=<%=request("id")%>&amp;page=<%=page+1%>&amp;bs=<%=bs%>&amp;bss=<%=bss%>'>下页</a>
<%end if%>
<%if page>1 then%>   
<a href='piclist.asp?id=<%=request("id")%>&amp;page=<%=page-1%>&amp;bs=<%=bs%>&amp;bss=<%=bss%>'>上页</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>跳页
<go href='piclist.asp?id=<%=request("id")%>&amp;bs=<%=bs%>&amp;bss=<%=bss%>' accept-charset='utf-8'>
<postfield name='page' value='$(pages)'/>
</go>
</anchor>
<%end if%>
<%
else
response.write("栏目建设中。。<br/>")
end if%>
<!--#include file="w.asp"-->
</p></card></wml>

						