手机WAP编程

开发平台：

ASP/ASPX

xhzl.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"-->
<%
ltid=request("ltid")
ltidbbzz=request("ltid")
set objgbrr=Server.CreateObject("ADODB.Recordset")
  ssql="select * from cnscu_gr where cstr(id)="&myid
  objgbrr.open ssql,conn,1,1
%>
<%
cw=request("cw")
cz=request("cz")
sxzb=myjf*1
%>
<%if cw="5" then%>
该昵称以被使用！<br/>
<%end if%>
本次修改所需：<%=sxzb%>钻币<br/>
您现在有：<%=myjb%>钻币<br/>
<%if sxzb>myjb then%>
钻币不足，无法修改<br/>
<%else%>
社区昵称：<br/>
<input name="name<%=minute(now)%><%=second(now)%>" maxlength="10" value="<%=ubb(objgbrr("nini"))%>"/><br/>
个人介绍：<br/>
<input name="grjs<%=minute(now)%><%=second(now)%>" maxlength="500" value="<%=ubb(objgbrr("grjs"))%>"/><br/>
<%if objgbrr("grsex")="3" then%>
您的性别<select name='xb<%=minute(now)%><%=second(now)%>' value='1'>
<option value="1">男性</option>
<option value="2">女性</option>
<option value="3">保密</option>
</select><br/>
<%end if%>
所在城市：<br/>
<input name="szcs<%=minute(now)%><%=second(now)%>" maxlength="500" value="<%=ubb(objgbrr("szcs"))%>"/><br/>
您的生日：<br/>
<input name="csrq<%=minute(now)%><%=second(now)%>" maxlength="500" value="<%=ubb(objgbrr("csrq"))%>"/><br/>
注意：生日要严格按要求写！<br/>
如1988-2-3，2005-1-30<br/>
错误格式将修改失败<br/>
<anchor title="确定修改">[确定修改]
<go href="xhzlcl.asp?cnscu=<%=cnscu%>&amp;cz=1&amp;ltid=<%=ltid%>" method="post" accept-charset='utf-8'>
<postfield name="name" value="$(name<%=minute(now)%><%=second(now)%>)"/>
<postfield name="grjs" value="$(grjs<%=minute(now)%><%=second(now)%>)"/>
<postfield name="grxb" value="$(xb<%=minute(now)%><%=second(now)%>)"/>
<postfield name="szcs" value="$(szcs<%=minute(now)%><%=second(now)%>)"/>
<postfield name="csrq" value="$(csrq<%=minute(now)%><%=second(now)%>)"/>
<postfield name="sxjb" value="<%=sxzb%>"/>
</go>
</anchor><br/>
<%end if%>
+++++++++<br/>
<a href="hy.asp?cnscu=<%=cnscu%>">会员中心</a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>

						