手机WAP编程

开发平台：

ASP/ASPX

Wapls_moneypay.asp：源码内容

							﻿<%
'==================================
'=文 件 名：wapls_moneypay.asp
'=适用版本：蓝色世纪WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.songfr.cn
'=文件功能：会员下载消费处理
'=文件作者：蓝色阳光
'=发行时间：2007-02-01
'==================================
moneypay=rsv("moneypay")
if user_system<>0 and rsv("user_view")<>0 then
if session("userlogin")=user_session then
if rsv("user_view")=1 then '普通会员
	sql="select * from wapls_user where lock=0 and name='"&session("name")&"'and passed=1"
	set rs2=server.createobject("adodb.recordset")
	rs2.open sql,conn,1,3
	if not rs2.eof then
		if rs2("user_money")-moneypay<0 then
			response.redirect "wapls_404.asp?id=28"
		else
			rs2("user_money")=rs2("user_money")-moneypay
			rs2.update
		end if
	else
			response.redirect "wapls_404.asp?id=8"
	end if
	rs2.close:set rs2=nothing
elseif rsv("user_view")=2 then 'VIP会员
	sql="select * from wapls_user where lock=0 and name='"&session("name")&"'and passed=1"
	set rs2=server.createobject("adodb.recordset")
	rs2.open sql,conn,1,3
	if not rs2.eof then
		if rs2("user_money")-moneypay<0 then
			response.redirect "wapls_404.asp?id=28"
		elseif rs2("user_type")<>2 then
			response.redirect "wapls_404.asp?id=29"
		else
			rs2("user_money")=rs2("user_money")-moneypay
			rs2.update
		end if
	else
			response.redirect "wapls_404.asp?id=8"
	end if
	rs2.close:set rs2=nothing
end if
%>

						