📄 gr_zl.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="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="66hcsb.asp"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="查看资料">
<p>
<%
dim id
cz=request("cz")
cw=request("cw")
glsb=request("glsb")
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 66hc_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?glsb=<%=glsb%>&id=<%=id%>&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?glsb=<%=glsb%>" 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%>&glsb=<%=glsb%>"><%=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?glsb=<%=glsb%>&did=<%=id%>">加为好友</a> <a href="zszb.asp?glsb=<%=glsb%>&did=<%=id%>">赠送钻币</a><br/>
<a href="jwcr.asp?glsb=<%=glsb%>&did=<%=id%>">加为仇人</a><br/>
<%end if%>
<%if ltmybz1<>"0" or mycjbz="1" then%>
=批量清除=<br/>
谨慎操作|不可恢复<br/>
<a href='plqc.asp?glsb=<%=glsb%>&id=<%=id%>&cz=1'>帖子</a>|<a href='plqc.asp?glsb=<%=glsb%>&id=<%=id%>&cz=5'>回复</a>|<a href='plqc.asp?glsb=<%=glsb%>&id=<%=id%>&cz=7'>封锁帖子</a><br/>
<a href='plqc.asp?glsb=<%=glsb%>&id=<%=id%>&cz=3'>加黑</a>|内线|<a href='plqc.asp?glsb=<%=glsb%>&id=<%=id%>&cz=9'>帖子解封</a><br/>
<%end if%>
************<br/>
<%end if%>
<!--#include file="w.asp"-->
</p>
</card>
</wml> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -