?? read.asp

?? 用ASP寫的ASP交友系統
?? ASP
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
<%
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_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" leftmargin="0">


<table align="center" border="0" cellPadding="0" cellSpacing="0" height="20" width="777">
  <tr>
    <td width="100%">
      <table border="0" cellpadding="0" cellspacing="0" width="777" height="21" bgcolor="#FFF4C8" background="pic/di.GIF">
        <tr>
          <td width="23%" height="19"><img border="0" src="pic/htt.GIF" width="227" height="20"></td>
          <td width="33%" height="19">　</td>
          <td width="3%" height="19" align="center">□</td>
          <td width="8%" height="19" align="center"><a href="my.asp">關于我們</a></td>
          <td width="3%" height="19" align="center">□</td>
          <td width="8%" height="19" align="center"><a href="../book">本站留言</a></td>
          <td width="3%" height="19" align="center">□</td>
          <td width="8%" height="19" align="center"><a href="javascript:window.external.AddFavorite('http://www.644000.net',%20'酒鄉網友聯盟')">添加收藏</a></td>
          <td width="3%" height="19" align="center">□</td>
          <td width="8%" height="19" align="center"><a href="#" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.644000.net');">設為首頁</a></td>
        </tr>
      </table>
      <div align="center">
        <center>
        <table border="0" cellpadding="0" cellspacing="0" width="777" height="90" bgcolor="#F9C700">
          <tr>
            <td width="100%" height="88">
              <div align="center">
                <table border="0" cellpadding="0" cellspacing="0" width="777">
                  <tr>
                    <td width="243" align="left"><img border="0" src="pic/logo.GIF" width="240" height="70"></td>
                    <td width="12" align="left"></td>
        </center>
                    <td width="500" align="center" valign="middle">
                      <p align="center"><!--Banner-->
<script src="http://www.644000.net/guanggao/banner.asp"></script>
<!--Banner --></p>
                  </td>
        <center>
                    <td width="14" align="center"></td>
                  </tr>
                </table>
              </div>
            </td>
          </tr>
        </table>
        </center>
      </div>
      <div align="center">
        <center>
        <table border="0" cellpadding="0" width="777" bgcolor="#FFF4C8" height="20" cellspacing="0">
          <tr>
            <td width="4%" align="center"><img border="0" src="pic/tou.GIF" width="28" height="20" style="filter:alpha(opacity=40)" onMouseOver="fade_in(this);" onMouseOut="fade_out(this);"></td>
            <td width="10%" align="center"><a href="default.asp"><img border="0" src="logo/1.gif"></a></td>
            <td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
            <td width="10%" align="center"><a href="reg.asp"><img border="0" src="logo/2.gif"></a></td>
            <td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
            <td width="10%" align="center"><a href="register.asp"><img border="0" src="logo/3.gif"></a></td>
            <td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
            <td width="10%" align="center"><a href="your.asp"><img border="0" src="logo/4.gif"></a></td>
            <td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
            <td width="10%" align="center"><a href="list.asp"><img border="0" src="logo/5.gif"></a></td>
            <td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
            <td width="10%" align="center"><a href="sendphoto.asp"><img border="0" src="logo/6.gif"></a></td>
            <td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
            <td width="10%" align="center"><a href="jh" target="_blank"><img border="0" src="logo/7.gif"></a></td>
            <td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
            <td width="10%" align="center"><a href="http://www.644000.net/bbs" target="_blank"><img border="0" src="logo/8.gif"></a></td>
          </tr>
        </table>
        </center>
      </div>
    </td>
  </tr>
</table>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="777">
    <tr>
      <td width="100%" bgcolor="#FFFFFF">
        <table border="0" cellpadding="0" cellspacing="0" width="777" height="20">
          <tr>
            <td width="6%" bgcolor="#EABB00" height="20">　</td>
            <td width="6%" bgcolor="#F0C000" height="20">　</td>
            <td width="6%" bgcolor="#FFCD06" height="20">　</td>
            <td width="6%" bgcolor="#FFD21E" height="20">　</td>
            <td width="6%" bgcolor="#FFD52D" height="20">　</td>
            <td width="7%" bgcolor="#FFDA46" height="20">　</td>
            <td width="7%" bgcolor="#FFDE5B" height="20">　</td>
            <td width="7%" bgcolor="#FFDE59" height="20">　</td>
            <td width="7%" bgcolor="#FFDE59" height="20">　</td>
            <td width="7%" bgcolor="#FFDF62" height="20">　</td>
            <td width="7%" bgcolor="#FFE168" height="20">　</td>
            <td width="7%" bgcolor="#FFEA95" height="20">　</td>
            <td width="7%" bgcolor="#FFEFB0" height="20">　</td>
            <td width="7%" bgcolor="#FFF9DD" height="20">　</td>
            <td width="7%" bgcolor="#FFFDF0" height="20">　</td>
          </tr>
        </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">
&nbsp;  
</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: 765; height: 570; position: absolute; left: 13; top: 182; 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"> &nbsp;&nbsp; </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">&nbsp;</td>
          <td width="678" height="8" colspan="5">&nbsp;</td>
                        <td></td>
        </tr>
12 下一頁
?? 文件大小 727 K
?? 上傳用戶 foreverNewcomer
?? 所屬分類源碼/資料
??? 相關標簽

#ASP
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? read.asp

?? 快捷鍵說明
