📄 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"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="查看资料">
<p>
<%if myid="0" then response.redirect "66hc_grdl.asp?cw=6"
dim id
cz=request("cz")
cw=request("cw")
if pagegg="" then pagegg="1"
id=request.QueryString("id")
if id="" then id="0"
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select id,name,sex,adddate,logintime from Userinfo where id="&id
npp.open rspl,conn,1,2
if npp.eof then
Response.write "对不起，查无此人<br/>尚未出生？还是已经过世？<br/>"
Else
%>
<%if cw="1" then%>
晕，自己加自己好友？<br/>难道你对你自己还不够好？<br/>
<%end if%>
<%if cw="2" then%>
拜托，对方已经是你的好友拉，不要那么热情嘛！<br/>
<%end if%>
ID：<%=ubb(npp("id"))%><br/>
昵称：<%=ubb(npp("NAME"))%><br/>
<%if myid<>npp("id") then%>
<input name="text" title="内容" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
<anchor>确定发送
<go href="addcl.asp?sb=<%=sb%>" method="post" accept-charset="utf-8">
<postfield name="txt" value="$(text)"/>
<postfield name="lid" value="<%=ubb(id)%>"/>
<postfield name="myid" value="<%=ubb(myid)%>"/>
</go>
</anchor><br/>
<%end if%>
性别：<%=ubb(npp("sex"))%><br/>
注册时间：<%=ubb(npp("ADDDate"))%><br/>
最后登陆：<%=ubb(npp("LoginTime"))%><br/>
<%if myid<>npp("id") then%>
<a href="jwhy.asp?sb=<%=sb%>&did=<%=id%>">加为好友</a> <br/>
<%end if%>
************<br/>
<%end if%>
<a href='index.asp?sb=<%=sb%>'>返回泡书首页</a>
</p>
</card>
</wml>
<%endConnection()%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -