手机WAP编程

开发平台：

ASP/ASPX

Wapls_up.asp：源码内容

							<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'==================================
'=文 件 名：wapls_up.asp
'=适用版本：蓝色世纪WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.songfr.cn
'=文件功能：网站上部分
'=文件作者：蓝色阳光
'=发行时间：2007-02-01
'==================================
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
</head>
<!--#include file="wapls_conn.asp"-->
<!--#include file="Wapls_online.asp"-->
<%
dim sqlmb
Set rsmb=Server.CreateObject("Adodb.Recordset")
		Sqlmb = "select * from wapls_mb where mb_id="&mb
		rsmb.open sqlmb,conn,1,1
if not (rsmb.bof and rsmb.eof)  then 
	mbcolumn=rsmb(3)
	mblink=rsmb(6)
	mb_err=rsmb("mb_err")
	mb_user=rsmb("mb_user")
	mb_Diary=rsmb("mb_Diary")
	mb_gb=rsmb("mb_gb")
	mb_logo=rsmb("mb_logo")
	mb_search=rsmb("mb_search")
	mb_other=rsmb("mb_other")
dim column
columnmb=split(mbcolumn,"|||@@@|||")
	mb_news=columnmb(0)
	mb_soft=columnmb(1)
	mb_pic=columnmb(2)
	mb_music=columnmb(3)
	mb_atr=columnmb(4)
dim linkmb
linkmb=split(mblink,"|||@@@|||")
	mb_link=linkmb(0)
	mb_linksm=linkmb(1)
end if
Rsmb.close
set rsmb=nothing
Response.Expires = -1  
Response.ExpiresAbsolute = Now() - 1  
Response.cachecontrol = "no-cache" 
Dim s
randomize timer
s=Int((8999)*Rnd +1000)
%>

						