📄 friendqueryview.asp
字号:
<%@ LANGUAGE=VBScript codepage ="936" %>
<%
On Error Resume Next
Response.Buffer = True
Response.CacheControl = "Private"
Sub Msg (v)
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
Response.Write "<script Language=JavaScript>alert('" & v & "');window.close();</script></body></html>"
Response.End
End Sub
nickname=Session("hxf_u_nickname")
grade=Session("hxf_u_grade")
If nickname = "" Then Msg "未登录，不能查询。"
If Int(grade) < 1 Or Int(grade) > 12 Then Msg "未登录，不能查询。"
id = Trim(Request.QueryString("id"))
pwd = Trim(Request.Form("password"))
If id = "" Or Len(id) > 10 Or Server.HTMLEncode(id) <> CStr(id) Or InStr(id, " ") <> 0 Or InStr(id, "'") <> 0 Then Msg "用户名不存在！"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "SELECT leave, username, grade, times, value, mvalue, hb, regtime, regip, lasttime, lastip, lastkick, shj, email, info FROM reginfo WHERE kill = '0' AND username = '" & id & "'"
rs.open sql, conn, 1, 1
If rs.Eof And rs.Bof Then
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Msg "用户名不存在！"
End If
v02 = rs("leave")
v03 = rs("username")
v05 = rs("grade")
v06 = rs("times")
v07 = rs("value")
v08 = rs("mvalue")
v09 = rs("hb")
v10 = rs("regtime")
v11 = rs("regip")
v12 = rs("lasttime")
v13 = rs("lastip")
v14 = rs("lastkick")
v15 = rs("email")
v16 = rs("info")
v17 = rs("shj")
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
If v02 = "1" Then
v02 = "是"
Else
v02 = "否"
End If
If Int(grade) < 12 And nickname <> id Then
qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
If qx(5) <> "1" Then
v05 = ""
Else
v05 = v05 & " 级"
End If
If qx(4) <> "4" Then
sip = Split(v11, ".")
v11 = ""
If qx(4) = "1" Then v11 = sip(0) & ".*.*.*"
If qx(4) = "2" Then v11 = sip(0) & "." & sip(1) & ".*.*"
If qx(4) = "3" Then v11 = sip(0) & "." & sip(1) & "." & sip(2) & ".*"
sip = Split(v13, ".")
v13 = ""
If qx(4) = "1" Then v13 = sip(0) & ".*.*.*"
If qx(4) = "2" Then v13 = sip(0) & "." & sip(1) & ".*.*"
If qx(4) = "3" Then v13 = sip(0) & "." & sip(1) & "." & sip(2) & ".*"
End If
Else
v05 = v05 & " 级"
End If
If v17 = "1" Then
v17 = "是"
Else
v17 = "否"
End If
spv = Split(v16, "{]")
If (spv(0) = 1 And pwd = spv(1)) Or CStr(nickname) = CStr(id) Then spv(0) = 0
n = Year(Date)
y = Month(Date)
r = Day(Date)
s = Hour(Time())
f = Minute(Time())
m = Second(Time())
If Len(y) = 1 Then y = "0" & y
If Len(r) = 1 Then r = "0" & r
If Len(s) = 1 Then s = "0" & s
If Len(f) = 1 Then f = "0" & f
If Len(m) = 1 Then m = "0" & m
sjsfm = s & ":" & f & ":" & m
sj = n & "-" & y & "-" & r & " " & sjsfm
If DateDiff("m", v12, sj) <> 0 Then v08 = 0
spv(16) = Replace(spv(16), "<br>", Chr(13) & Chr(10))
%>
<html>
<head>
<title>查询</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type=text/css>
body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}
td{font-family:宋体;font-size:9pt;}
input{font-family:宋体;font-size:9pt;background-color:buttonface;color:blue}
textarea{font-family:宋体;font-size:9pt;background-color:buttonface;color:009900}
a{font-family:'宋体';color:blue;text-decoration:none}
a:hover{font-family:'宋体';color:blue;text-decoration:underline}
</style>
</head>
<body leftmargin="4" topmargin="4">
<form name="xx" method="post" action="friendqueryview.asp?id=<%=id%>">
<table border="0" cellpadding="0" align="center" cellspacing="0">
<tr>
<td>昵称:</td>
<td>
<input type="text" size="12" value="<%=v03%>" readonly>
</td>
<td>永久:</td>
<td>
<input type="text" size="3" value="<%=v02%>" readonly>
</td>
<td align="right">级别:
<input type="text" size="5" value="<%=v05%>" readonly>
</td>
</tr>
<tr>
<td>次数:</td>
<td>
<input type="text" size="12" value="<%=v06%> 次" readonly>
</td>
<td>货币:</td>
<td colspan="2">
<input type="text" size="12" value="<%=v09%> ￥" readonly>
</td>
</tr>
<tr>
<td>累积:</td>
<td>
<input type="text" size="12" value="<%=v07%> 分" readonly>
</td>
<td>月积:</td>
<td colspan="2">
<input type="text" size="12" value="<%=v08%> 分" readonly>
</td>
</tr>
<tr>
<td>首次:</td>
<td colspan="2">
<input type="text" size="19" readonly value="<%=v10%>">
</td>
<td align="right">IP: </td>
<td>
<input type="text" readonly value="<%=v11%>" size=15>
</td>
</tr>
<tr>
<td>末次:</td>
<td colspan="2">
<input type="text" size="19" readonly value="<%=v12%>">
</td>
<td align="right">IP: </td>
<td>
<input type="text" readonly value="<%=v13%>" size=15>
</td>
</tr>
<tr>
<td>被踢:</td>
<td colspan="4">
<input type="text" size="19" readonly value="<%=v14%>"> 自动升级:<input type="text" size="3" value="<%=v17%>" readonly name="text">
<a href=javascript:history.go(0)><font color=red>新</font></a> <a href=javascript:window.close()><font color=red>关</font></a>
</td>
</tr>
</table>
<hr>
<%If spv(0) = "1" And Int(grade) <> 12 Then%>
<table border="0" align="center">
<tr>
<td align="center">此用户个人信息受密码保护，必须输入密码才允许查看<br>
请输入查看密码：
<input type="password" name="password" style="background-color:FFFFFF;color:000000;border: 1 double" maxlength="20" size="23">
<input type="submit" name="Submit" value="送出" style="background-color:FFFFFF;color:000000;border: 1 double">
<script Language=JavaScript>
window.resizeTo(330,220);
</script>
</td>
</tr>
</table>
<%Else%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>性别:</td>
<td>
<input type="text" size="2" value="<%=spv(2)%>" readonly>
</td>
<td> OICQ:</td>
<td>
<input type="text" size="11" value="<%=spv(3)%>" readonly>
</td>
<td> ICQ:</td>
<td>
<input type="text" size="11" value="<%=spv(4)%>" readonly>
</td>
</tr>
</table>
<table border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td>电子信箱:</td>
<td>
<input type="text" readonly size="37" value="<%=v15%>">
</td>
</tr>
</table>
<table border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td>主页名称:</td>
<td>
<input type="text" readonly size="37" value="<%=spv(5)%>">
</td>
</tr>
</table>
<table border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td>主页地址:</td>
<td>
<input type="text" readonly size="37" value="<%=spv(6)%>">
</td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>邮编:</td>
<td>
<input type="text" size="9" value="<%=spv(7)%>" readonly>
</td>
<td> 国家或地区:</td>
<td>
<input type="text" size="17" value="<%=spv(8)%>" readonly>
</td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>省份:</td>
<td>
<input type="text" size="5" value="<%=spv(9)%>" readonly>
</td>
<td> 县市:</td>
<td>
<input type="text" size="5" value="<%=spv(10)%>" readonly>
</td>
<td> 地址:</td>
<td>
<input type="text" size="13" value="<%=spv(11)%>" readonly>
</td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>职业:</td>
<td>
<input type="text" size="15" value="<%=spv(12)%>" readonly>
</td>
<td> 电话:</td>
<td>
<input type="text" size="17" value="<%=spv(13)%>" readonly>
</td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>BP机:</td>
<td>
<input type="text" size="15" value="<%=spv(14)%>" readonly>
</td>
<td> 手机:</td>
<td>
<input type="text" size="17" value="<%=spv(15)%>" readonly>
</td>
</tr>
</table>
<table border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td>
<textarea rows="4" cols="44" readonly wrap="VIRTUAL"><%=spv(16)%></textarea>
</td>
</tr>
</table>
<script Language=JavaScript>
window.resizeTo(330,425);
</script>
<%End If%>
</form>
<div id="Layer1" style="position:absolute; left:-800px; top:-800px; width:0px; height:0px; z-index:1">
<input type=button name=btc value='关闭(Q)' accesskey='q' onClick="top.window.close();">
</div>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -