手机WAP编程

开发平台：
ASP/ASPX

gr_zl.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>
<%
dim id
cz=request("cz")
cw=request("cw")
cnscu=request("cnscu")
pagegg=request.QueryString("pagegg")
if pagegg="" then pagegg="1"
id=usb(request.QueryString("id"))
if id="" then id="0"
t=usb(request("t"))
if t="" then tou="暂无"
if t<>"" then tou="(img)"&t&"(/img)"
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select * from cnscu_gr where id="&id
npp.open rspl,conn,1,2
if npp.eof then
   Response.write "对不起，查无此人<br/>尚未出生？还是已经过世？<br/>"
Else
grjs=npp("grjs")
nini=npp("nini")
grtx=npp("grtx")
sex=npp("grsex")
myjf=npp("myjf")
zcsj=npp("zcsj")
dlsj=npp("dlsj")
zhsj=npp("tjj")
if npp("zx")="1" then mmzzxx="[在线]"
if npp("zx")="0" then mmzzxx="[离线]"
myjb=npp("myjb")
ftsl=npp("ftsl")
szcs=npp("szcs")
csrq=npp("csrq")
dfid=npp("id")
%>
<!--#include file="xxts.asp"-->
<%if cw="1" then%>
晕，自己加自己好友？<br/>难道你对你自己还不够好？<br/>
<%end if%>
<%if cw="2" then%>
拜托，对方已经是你的好友拉，不要那么热情嘛！<br/>
<%end if%>
<img src="<%=ubb(grtx)%>" alt="加载头像"/><br/>
社区ID：<%=ubb(dfid)%><br/>
昵称：<%=ubb(nini)%><br/>
状态：<%=ubb(mmzzxx)%><br/>
<%if myid<>npp("id") then%>
表情消息:<a href="xzbq.asp?cnscu=<%=cnscu%>&amp;id=<%=id%>&amp;ddll=gr_zl.asp"><%=ubb2(tou)%></a><br/>
<input name="text" title="内容" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
<anchor>确定发送
    <go href="addcl.asp?cnscu=<%=cnscu%>" method="post" accept-charset="utf-8">
        <postfield name="txt" value="$(text)"/>
        <postfield name="lid" value="<%=ubb(id)%>"/>
        <postfield name="tou" value="<%=ubb(t)%>"/>
        <postfield name="myid" value="<%=ubb(myid)%>"/>
    </go>
</anchor><br/>
<%end if%>
性别：<%if sex="1" then%>男<%elseif sex="2" then%>女<%else%>保密<%end if%><br/>
生日：<%=ubb(csrq)%><br/>
城市：<%=ubb(szcs)%><br/>
<%
if myjf<0 then jjbb="乞丐"
if myjf<200 and myjf>=0 then jjbb="游客"
if myjf<400 and myjf>200 then jjbb="公民"
if myjf<600 and myjf>400 then jjbb="士兵"
if myjf<800 and myjf>600 then jjbb="下士"
if myjf<1000 and myjf>800 then jjbb="中士"
if myjf<1400 and myjf>1000 then jjbb="上士"
if myjf<1800 and myjf>1400 then jjbb="少尉"
if myjf<2400 and myjf>1800 then jjbb="中尉"
if myjf<3000 and myjf>2400 then jjbb="上尉"
if myjf<4000 and myjf>3000 then jjbb="大尉"
if myjf<5100 and myjf>4000 then jjbb="少校"
if myjf<6200 and myjf>5100 then jjbb="中校"
if myjf<8400 and myjf>7300 then jjbb="上校"
if myjf<9500 and myjf>8400 then jjbb="大校"
if myjf<11000 and myjf>9500 then jjbb="少将"
if myjf<12500 and myjf>11000 then jjbb="中将"
if myjf<14000 and myjf>12500 then jjbb="上将"
if myjf<15500 and myjf>14000 then jjbb="大将"
if myjf<17000 and myjf>15500 then jjbb="三军统帅"
if myjf>20000 then jjbb="超级统帅"
%>
积分：<%=ubb(myjf)%>/<%=jjbb%><br/>
财产：<%=ubb(myjb)%><img src="img/zb.gif" alt="钻"/>币<br/>
简介：<%=ubb2(grjs)%><br/>
发贴数量：<%if ftsl>0 then%><a href="tdtz.asp?tid=<%=id%>&amp;cnscu=<%=cnscu%>"><%=ubb(ftsl)%></a><%else%><%=ubb(ftsl)%><%end if%><br/>
注册时间：<%=ubb(zcsj)%><br/>
最后登陆：<%=ubb(dlsj)%><br/>
最后在线：<%=ubb(zhsj)%><br/>
<%if myid<>npp("id") then%>
<a href="jwhy.asp?cnscu=<%=cnscu%>&amp;did=<%=id%>">加为好友</a> <a href="zszb.asp?cnscu=<%=cnscu%>&amp;did=<%=id%>">赠送钻币</a><br/>
<a href="jwcr.asp?cnscu=<%=cnscu%>&amp;did=<%=id%>">加为仇人</a><br/>
<%end if%>
<%if ltmybz1<>"0" or mycjbz="1" then%>
=批量清除=<br/>
谨慎操作|不可恢复<br/>
<a href='plqc.asp?cnscu=<%=cnscu%>&amp;id=<%=id%>&amp;cz=1'>帖子</a>|<a href='plqc.asp?cnscu=<%=cnscu%>&amp;id=<%=id%>&amp;cz=5'>回复</a>|<a href='plqc.asp?cnscu=<%=cnscu%>&amp;id=<%=id%>&amp;cz=7'>封锁帖子</a><br/>
<a href='plqc.asp?cnscu=<%=cnscu%>&amp;id=<%=id%>&amp;cz=3'>加黑</a>|内线|<a href='plqc.asp?cnscu=<%=cnscu%>&amp;id=<%=id%>&amp;cz=9'>帖子解封</a><br/>
<%end if%>
************<br/>
<%end if%>
<!--#include file="w.asp"-->
</p>
</card>
</wml>                   

						