📄 lookuser.asp
字号:
<%@ Language=VBScript %>
<% option explicit%>
<!--#include file="adovbs.asp"-->
<!--#include file="conn.asp" -->
<%
dim copyright
dim Aff
Dim strSQL
Dim List,IDS,counter
IDS=Request("ID")
IF IDS="" Then
REsponse.Write "错误！丢失信息！"
Response.End
End If
Aff = Chr(34)
'set list=server.createobject("adodb.recordset")
'list.Open "select * from list where id="+cint(Request.Querystring("IDS")) ,conntmp,1
'list.open strSQL,conntmp,adOpenKeySet,adLockPessimistic
'数据错误处理
'counter=list("counter")
'counter=counter + 1
'strSQL="SELECT * FROM List ID="+cint(Request.Querystring("IDS"))
'strSQL =strSQL & " Order by ID"
'set list=server.createobject("ADODB.RECORDSET")
'list.open strSQL,conntmp,3,2
strSQL="SELECT * FROM List WHERE "
strSQL=strSQL & " ID LIKE '"&request("id")&"'"
strSQL =strSQL & " Order by ID DESC"
set list=server.createobject("adodb.recordset")
list.open strSQL,conntmp,adOpenKeySet,adLockPessimistic
if list.eof and list.bof then
Response.WRite "错误！没有当前用户！"
Response.End
End If
'if list.eof and list.bof then
' Response.WRite "错误！没有当前用户！"
' Response.End
'End if
counter=list("counter")
counter=counter+1
list("counter")=counter
list.update
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>个人信息</title><style>
<!--
#tipBox {position: absolute;
width: 160px;
z-index: 100;
border: 1pt black solid;
font-family:宋体;
font-size: 9pt;
background: ffffdf;
visibility: hidden}
a:link {color:#000000;text-decoration: none}
a:visited {color:#000000;text-decoration: none}
a:active {color:#000000;text-decoration: none}
a:hover {color:red;text-decoration: none}
-->
</style>
</head>
<body>
<form method="POST" action="index.asp" >
<div align="center">
<input name=action type=hidden value=search>
<center>
<table border="1" width="600" cellspacing="0" cellpadding="3" bgcolor="#998CD2" bordercolor="#988CD8">
<tr>
<td width="100%">
<p align="center">您注册的信息</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" width="600" bgcolor="#F8EBD1" cellspacing="0" cellpadding="3" bordercolor="#988CD8" style="font-family: 宋体; font-size: 9pt" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="66" align="center"><a href=index.asp?action=search>⊙-朋友列表</a></td>
<td width="66" align="center"><a href="add.asp">⊙-朋友加入</a></td>
<td width="66" align="center"><a href="userre.asp"><a href="userre.asp">⊙-修改资料</a></td>
<td width="66" align="center"><a href="sf.asp?Keys=Login">⊙-管理入口</a></td>
<td width="66" align="center"><a href="admsearch.asp?keys=admsearch">⊙-高级搜索</a></td>
<td width="220" align="center"><font color="#996600">现有</font><font color="#FF6600">
<!--#include file="zongshu.asp" -->
</font><font color="#996600">位朋友加入</font></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" width="600" cellspacing="0" style="font-family: 宋体; font-size: 9pt" cellpadding="3" bordercolor="#988CD0" height="272">
<tr>
<td width="590" bgcolor="#988CD0" colspan="2" height="12">这是您的登陆结果</td>
</tr>
<!-- <tr>
<td width="590" colspan="2" bgcolor="#EEF1F7" height="12">photo...</td>
</tr> -->
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">姓名：</td>
<td width="433" height="12"><%=List("name")%></td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">性别：</td>
<td width="433" height="12"><%=list("sex")%></td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">信箱：</td>
<td width="433" height="12"> <a href=mailto:<%=list("mail")%>><%=list("mail")%>
</td>
</tr>
<%If list("url")<>"" Then%>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">主页：</td>
<td width="433" height="12"><a href=<%=list("URL")%> target="_blank"><%=list("urL")%></td>
</tr>
<%End If%>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">联系方法：</td>
<td width="433" height="12"> <%If list("icq_img")<>"" and list("icqnum")<>"" Then
If list("icq_img")="icq.gif" Then
%><img src=icq.gif>ICQ:<%=list("icqnum")%> <%Else%> <img src=oicq.gif>OICQ:<%=list("icqnum")%>
<%End If%> <%End IF%> </td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">生日：</td>
<td width="433" height="12"><%=list("years")%>年<%=list("mons")%>月<%=list("days")%>日</td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">联系电话：</td>
<td width="433" height="12"><%=list("likes")%></td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="11">联系地址：</td>
<td width="433" height="11"><%=list("address")%></td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">简短留言：</td>
<td width="433" height="12"><%=list("doc")%></td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">成员方式：</td>
<td width="433" height="12"><%=list("mode")%></td>
</tr>
<tr>
<td width="582" colspan="2" bgcolor="#CCCCFF" height="25">
<p align="center">
<input class="p9" type="submit" value=" 返回交友列表 ">
</p>
</td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>
<%List.CLose%>
<%Response.End%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -