📄 read.asp
字号:
<%
Option Explicit
dim conn,connpic,DBPath
dim rs_lar,rspic,rs_apply,rs_friend
dim user_id,sql,willstr
dim picid,cur,pics
'叛断Session变量是否超时
if isempty(session("user_id")) or session("user_id")="" then
response.redirect "timeout.htm"
end if
user_id=request("user_id")
'-----------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id=" & user_id
rs_lar.open sql,conn,3,2
Set connpic = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("pic.mdb")
connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rspic = Server.CreateObject("ADODB.Recordset")
sql="select * from pic where user_id=" & user_id
rspic.open sql,connpic,1,1
set rs_apply=server.createobject("adodb.recordset")
sql="select * from apply where for_id=" & user_id & " and user_id=" & session("user_id")
rs_apply.open sql,conn,1,1
if not(rs_apply.eof and rs_apply.bof) then
willstr=rs_lar("netname") & "已向您发出交友请求"
end if
rs_apply.close
set rs_apply=nothing
set rs_friend=server.createobject("adodb.recordset")
sql="select * from friend where (for_id=" & session("user_id") & " and user_id=" & user_id & ") or (for_id=" & user_id & " and user_id=" & session("user_id") & ")"
rs_friend.open sql,conn,1,1
if not(rs_friend.eof and rs_friend.bof) then
willstr=rs_lar("netname") & "是您的好友"
end if
rs_friend.close
set rs_friend=nothing
set rs_apply=server.createobject("adodb.recordset")
sql="select * from apply where user_id =" & session("user_id") & " and for_id=" & user_id
rs_apply.open sql,conn,1,1
if not(rs_apply.eof and rs_apply.bof) then
willstr="您已向" & rs_lar("netname") & "发出交友请求"
end if
rs_apply.close
set rs_apply=nothing
if rspic.eof and rspic.bof then
picid=1
cur=1
else
rspic.pagesize=1
cur=request("cur")
if cur="" or clng(cur)<1 then cur=1
if clng(cur)>rspic.pagecount then cur=rspic.pagecount
rspic.absolutepage=cur
picid=rspic("id")
end if
pics=rspic.recordcount
%>
<html>
<head>
<LINK href="pic/gufeng.css" rel=stylesheet>
<script language="JavaScript" src="pic/fade_image.js"></script>
<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></script>
<script language="JavaScript">
<!--
function MM_showHideLayers() { //v3.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
obj.visibility=v; }
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
//-->
</script>
</head>
<body topmargin="0" leftmargin="0">
<tr>
<td width="100%">
<!--#include file="hand.htm" --></td>
</tr> </table>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table cellspacing=0 cellpadding=0 width=777 border=0 height="20">
<tbody>
<tr>
<td width=222 bgcolor=#ffce94></td>
<td width=50 bgcolor=#ffd2a6></td>
<td width=50 bgcolor=#ffd2a6></td>
<td width=50 bgcolor=#ffd2a6></td>
<td width=50 bgcolor=#ffdcb9></td>
<td width=50 bgcolor=#ffe4ca></td>
<td width=50 bgcolor=#ffebd7></td>
<td width=50 bgcolor=#fff1e6></td>
<td width=50 bgcolor=#fff7f0></td>
<td width=50 bgcolor=#fffaf4></td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="776" height="1" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="100%" height="66" bgcolor="#FCFCFC">
<p align="center"> <font color="white"> </font>
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center">
<p align="center"><font color="white">
<!--------------------->
</font>
<div id="layer2" style="width: 765; height: 216; position: absolute; left: 11; top: 222; z-index: 1; visibility: hidden">
<table border="0" width="761" height="216" cellspacing="0" cellpadding="0">
<tr bordercolor="#FFFFFF">
<td width="624" valign="top" align="left">
<div align="center">
<center>
<table border="0" width="122%" height="181" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="151" valign="top" align="center"><a href="" onclick="return false" ><img name="big" src="display.asp?id=<%=picid%>" onclick="MM_showHideLayers('layer2','','hide');MM_showHideLayers('layer','','show');MM_showHideLayers('layer1','','show');return false;" border="0"></a>
</td>
</tr>
<tr>
<td width="100%" height="12" valign="top" align="center"> </td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</div>
<font color="white"> </font>
<div id="layer" style="width: 768px; height: 682px; position: absolute; left: 8px; top: 190px; z-index: 0; visibility: visible">
<!------------------------------------------------------------------------------------------------------------------------------>
<!--------------------------------------------------------------------------------------------->
<table border="0" width="750" height="216" cellspacing="0" cellpadding="0" align="left">
<tr>
<td width="6" height="210" valign="middle"> </td>
<td width="712" height="216" valign="top" bgcolor="#F1F1F1" style="border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F4">
<!------------------------------------------------------------------------------------------>
<table border="1" width="706" height="15" cellspacing="0" cellpadding="0">
<tr>
<td width="21" height="8"><font color="#F1F1F1">1</font></td>
<td width="678" height="8" colspan="5"> </td>
<td></td>
</tr>
<tr>
<td width="21" height="6"><font color="#F1F1F1">w</font></td>
<td width="678" height="6" colspan="5"><%=rs_lar("name")%><b><font color="#000000">个人档案</font></b></td>
<td></td>
</tr>
<tr>
<td width="21" height="223" valign="top"><font color="#000000" size="2">___</font></td>
<td width="39" height="212" valign="top">
<!--------------------------------------------------------------------------------------------->
<font color="#F1F1F1">w </font>
<table border="0" width="74%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#F1F1F1" valign="bottom" align="center">
<font color="#000000" size="2">
<%if pics<>0 then%>
<a href="read.asp?user_id=<%=user_id%>&cur=<%=cur-1%>" title="查看上一张相片">←</a>
<%end if%>
<%if cur=1 then%>
<%if pics=0 then%>
还没有上传相片
<%else%>
有相片<%=pics%>张
<%end if%>
<%else%>
第<%=cur%>张
<%end if%>
<%if pics<>0 then%>
<a href="read.asp?user_id=<%=user_id%>&cur=<%=cur+1%>" title="查看下一张相片">→</a>
<%end if%>
<br>
<br>
</font> </td>
</tr>
<tr>
<td width="100%"> <a href="" onclick="return false"><font color="#000000" size="2"><img name="small" border="0" src="display.asp?id=<%=picid%>" width="100" height="135" onclick="MM_showHideLayers('layer2','','show');MM_showHideLayers('layer','','hide');MM_showHideLayers('layer1','','hide');"></font></a>
</td>
</tr>
<tr>
<td width="100%"><font color="#000000" size="2">
<%if rs_lar("sex")="女" then%>
芳龄
<%else%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -