📄 user.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%if Session("MM_Username")="" then Response.Write "<script Language=Javascript>alert('您已空闲时间超过5分钟或尚未登陆。');location.href = 'javascript:close();';</script>"%>
<!--#include file="myzb.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_myzb_STRING
Recordset1.Source = "SELECT * FROM usero WHERE dengluming='"&Request("b6")&"'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=(Recordset1.Fields.Item("dengluming").Value)%>的详细资料</title>
<style type="text/css">
<!--
.mm_botton{
border-top: #c4cccc 3px double;
border-right: #acb5b5 3px double;
border-bottom: #6f7777 3px double;
border-left: #acb5b5 3px double;
background: url(images/background_form_element.gif) #fefefe repeat-x;
font:12px tahoma;
padding-top:3px;
padding-bottom:3px;
padding-left:3px;
padding-right:5px;
text-decoration: none;
color:#666666;
}
.mm_botton:link{
color:#666666;
}
.mm_botton:hover{
border-top: #aedf9a 3px double;
border-right: #94da78 3px double;
border-bottom: #6ab94b 3px double;
border-left: #94da78 3px double;
text-decoration:none;
color:#999999;
}
.style1 {color: #660099}
body,td,th {
font-size: 12px;
}
body {
background-image: url(../images/bg.gif);
}
-->
</style>
</head>
<body>
<table width="308" border="1" align="center">
<tr>
<td width="27%" align="right" valign="baseline">登陆名</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("dengluming").Value)%></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">年龄</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("nianling").Value)%></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">性别</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("xingbie").Value)%></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">单位</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("danwei").Value)%></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">QQ</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("qq").Value)%></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">E-mail或MSN</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("mail").Value)%></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">电话</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("tel").Value)%></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">头像</td>
<td align="left" width="73%"><img src="<%=(Recordset1.Fields.Item("face").Value)%>"></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">注册时间</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("zcsj").Value)%></td>
</tr>
<tr>
<td width="27%" align="right" valign="baseline">最后登陆时间</td>
<td align="left" width="73%"><%=(Recordset1.Fields.Item("zhdl").Value)%></td>
</tr>
</table>
<table width="378" border="0">
<tr align="center" valign="middle">
<th width="195" scope="col"><input name="Submit" type="submit" class="mm_botton" onClick="javascript:history.go(-1);" value="返回上一页"></th>
<th width="173" scope="col"> <input name="Submit" type="submit" class="mm_botton" onClick="window.open('../fmsg.asp?b6=<%=(Recordset1.Fields.Item("dengluming").Value)%>','callwindow','top=0,left=0,width=500,height=200,status=no,resizable=no,scrollbars=no')" value="给他发短信"></th>
</tr>
</table>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -