手机WAP编程

开发平台：

ASP/ASPX

zszb.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"-->
<!--#include file="cnscucsb.asp"-->
<wml><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <head>
<meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="钻币赠送">
<p>
<!--#include file="xxts.asp"-->
<%
Did=request("Did")
id=request("id")
cw=request("cw")
zbsl=request("zbsl")
if zbsl="" then zbsl="0"
js=zbsl*0.2
%>
<%if cw="7" then%>
自己给自己转币？要手续费的哦<br/>
<%end if%>
<%if cw="6" then%>
最高为9999枚钻币<br/>
<%end if%>
<%if cw="5" then%>
最低为10枚钻币<br/>
<%end if%>
<%if cw="1" then%>
金额不能为空！<br/>
<%end if%>
<%if cw="2" then%>
ID不能为空！<br/>
<%end if%>
<%if cw="3" then%>
金额不能为空。<br/>
<%end if%>
<%if cw="4" then%>
您没有那么多钱啊!<br/>
<%end if%>
现在您有:<%=myjb%>钻币<br/>
<%if js<>"" then%>
本次手续费预计为:<%=js%>
<br/>
<%end if%>
<%if did="" then%>
输入对方ID<br/><input name="id<%=minute(now)%><%=second(now)%>" format='*N' maxlength="10" value="<%=id%>" size="8" emptyok="false"/><br/>
<%else%>
送给ID:<%=did%><br/>
<%end if%>
钻币数量：<br/>
<input name="name<%=minute(now)%><%=second(now)%>" format='*N' maxlength="10" value="<%=zbsl%>"/>
<br/>
<anchor>确认提交
    <go href="zszbcl.asp?did=<%=did%>&amp;cnscu=<%=cnscu%>" method="post" accept-charset="utf-8">
        <postfield name="zbsl" value="$(name<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="id" value="$(id<%=minute(now)%><%=second(now)%>)"/>
    </go>
</anchor><br/>
<anchor>计算手续费
    <go href="zszb.asp?did=<%=did%>&amp;cnscu=<%=cnscu%>" method="post" accept-charset="utf-8">
        <postfield name="zbsl" value="$(name<%=minute(now)%><%=second(now)%>)"/>        
        <postfield name="id" value="$(id<%=minute(now)%><%=second(now)%>)"/>
    </go>
</anchor><br/>
赠送须收取手续费%20
<br/><!--#include file="w.asp"-->
</p>
</card>
</wml>

						