📄 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/global.asa")
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("friend/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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>查看个人档案</title>
<style>
<!--
.x:link { color: white; text-decoration: none }
.x:visited { color: white; text-decoration: none }
.x:active { color: red; text-decoration: none }
.x:hover { color: red;text-decoration:nome}
tr { font-size: 9pt }
td { font-size: 9pt }
body { font-size: 9pt }
a:link { color: blue; text-decoration: none }
a:visited { color: blue; text-decoration: none }
a:active { color: red; text-decoration: none }
a:hover { color: red; text-decoration: none }
-->
.put {
BORDER-RIGHT: #f7e0e0 1px solid; BORDER-TOP: #f7e0e0 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7e0e0 1px solid; COLOR: #000000; BORDER-BOTTOM: #f7e0e0 1px solid; BACKGROUND-COLOR: #fef7f7
}
BODY {
SCROLLBAR-FACE-COLOR: #ee9999; SCROLLBAR-HIGHLIGHT-COLOR: #fef7f7; SCROLLBAR-SHADOW-COLOR: #fef7f7; SCROLLBAR-3DLIGHT-COLOR: #fef7f7; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #fef7f7; SCROLLBAR-DARKSHADOW-COLOR: #fef7f7
}
</style>
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v3.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); return x;
}
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; }
}
//-->
</script>
</head>
<body topmargin="0" bgcolor="#F4D5D5">
<div id="layer2" style="position: absolute; left: 7; top: 27; width: 765; height: 216; 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" title=点击返回><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>
<div id="layer" style="position: absolute; left: 11; top: 0; width: 765; height: 374; z-index: 0; visibility: visible">
<!--#include file=top.asp -->
<table border="1" width="750" height="216" cellspacing="0" cellpadding="0" align="left" bgcolor="#FFF4F4" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="6" height="210" valign="middle"> </td>
<td width="28" height="210" valign="top" bgcolor="#FFCC99"> <font size="2"> </font>
</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="0" width="706" height="15" cellspacing="0" cellpadding="0">
<tr>
<td width="21" height="8" bgcolor="#FFF4F4"> </td>
<td width="678" height="8" colspan="5" bgcolor="#FFF4F4"></td>
</tr>
<tr>
<td width="21" height="6" bgcolor="#FFF4F4"></td>
<td width="678" height="6" colspan="5" bgcolor="#FFF4F4"><font color="#000080"><u><b><%=rs_lar("name")%>个人档案 </b></u></font></td>
</tr>
<tr>
<td width="21" height="223" valign="top" bgcolor="#FFF4F4">___</td>
<td width="39" height="212" valign="top" bgcolor="#FFF4F4">
<table border="0" width="74%" bgcolor="#669900" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" bgcolor="#F1F1F1" valign="bottom" align="center">
<%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%> <font color="#FF9900">还没有上传相片</font>
<%else%> <font color="#FF9900">有相片<font color="red"><%=pics%></font>张</font>
<%end if%> <%else%> <font color="#FF9900">第<font color="red"><%=cur%></font>张</font>
<%end if%> <%if pics<>0 then%><a href="read.asp?user_id=<%=user_id%>&cur=<%=cur+1%>" title="查看下一张相片">→</a><%end if%>
</td>
</tr>
<tr>
<td width="100%"> <a href="" onclick="return false" title=点击放大><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');"></a>
</td>
</tr>
<tr>
<td width="100%"><font color="#FFFFFF"> <%if rs_lar("sex")="女" then%>芳龄<%else%>年龄<%end if%>：<%=rs_lar("age")%></font></td>
</tr>
<tr>
<td width="100%"><font color="#FFFFFF"> 学历：<%=rs_lar("education")%></font></td>
</tr>
<tr>
<td width="100%"><font color="#FFFFFF"> 星座：<%=rs_lar("star")%></font></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -