⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 default.asp

📁 asp交友程序1.0版 ,本程序使用的核心为蓝芒asp交友程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
                    </td>
                </tr>
            </table>
            <table border="0" width="100%" bgcolor="#A5EF00">
                <tr>
                    <td width="151"><table
                                                 border="0" cellspacing="1" width="100%"
                                                 height="1" bordercolor="white">
                                                    <tr>
                                                        <td height="20" bgcolor="#A5EF00"><p
                                                             align="center"><font
                                                             face="Wingdings"
                                                             color="black">1 </font><font color="#FFFFFF">最新网友(前10位)</font></td>
                                                    </tr>
                                                    <tr>
                                                        <td height="23" bgcolor="white">            <table border="0" width="100%" cellspacing="0" cellpadding="0">           
              <tr>           
                <td width="20%" bgcolor="#000000">           
                  <p align="center"><font color="#FFFFFF">性别</font></p>           
                </td>           
                <td width="63%" bgcolor="#000000">           
                  <p align="left"><font color="#FFFFFF">网名</font></p>           
                </td>           
                <td width="17%" bgcolor="#000000"><font color="#FFFFFF">人气</font></td>           
              </tr>           
            <%i=1%>           
            <%do while not(rs_new.eof) and i<11%>           
              <tr>           
                <td width="20%" align="center"><%=rs_new("sex")%></td>           
                <td width="63%" align="left">           
                  <p align="left"><a href="read.asp?user_id=<%=rs_new("user_id")%>"><%=rs_new("netname")%></a></td>           
                <td width="17%" align="center"><%=rs_new("renqi")%></td>           
              </tr>           
            <%i=i+1%>           
            <%rs_new.movenext%>           
            <%loop%>           
            <%rs_new.close%>           
            </table>           
</td>
                                                    </tr>
                                                </table></td>
                </tr>
            </table>
      <!--------------->           
      <table><tr><td></td></tr></table>           
            <p>
            <div id="layer1" style="width:430px; height:239px; position:absolute; left:175px; top:157px; z-index:1;">
      <table border="0" width="430" cellspacing="0" cellpadding="0">        
        <tr>        
          <td width="228" valign="top">  
          <%Set connpic = Server.CreateObject("ADODB.Connection")    
          DBPath = Server.MapPath("pic.mdb")    
          connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath          
          if rs_girl.eof and rs_girl.bof then%>        
            <table border="0" width="213" cellspacing="0" cellpadding="0">        
              <tr>        
                <td width="128" valign="top" rowspan="7"><img border="0" src="image/lanmang.gif" width="90" height="120"></td>        
                <td width="85"><font color="#FFFFFF">&nbsp;</font></td>        
              </tr>        
              <tr>        
                <td width="85"></td>        
              </tr>        
              <tr>        
                <td width="85"><font color="black"> </font></td>  
              </tr>  
              <tr>  
                <td width="85"></td>  
              </tr>  
              <tr>  
                <td width="85"></td>  
              </tr>  
              <tr>  
                <td width="85"><font color="black"> </font></td>  
              </tr>  
              <tr>  
                <td width="85"><font color="black"> </font></td>  
              </tr>  
            </table>  
          <%else  
          Set rs_pic = Server.CreateObject("ADODB.Recordset")  
          sql="select * from pic where user_id=" & rs_girl("user_id")  
          rs_pic.open sql,connpic,1,1  
          %>  
            <table border="0" width="209" cellspacing="0" cellpadding="0">  
              <tr>  
                <td width="128" valign="top" rowspan="7"><a href='read.asp?user_id=<%=rs_girl("user_id")%>'><font color="black"><img border="0" src='display.asp?id=<%=rs_pic("id")%>' width="90" height="120"></font></a></td>  
                <td width="81"><font color="black">&nbsp;</font></td>  
              </tr>  
              <tr>  
                <td width="81" bgcolor="white"><font color="black">性别:女</font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">网名:<%=rs_girl("netname")%></font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">年龄:<%=rs_girl("age")%></font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">学历:<%=rs_girl("education")%></font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">职业:<%=rs_girl("job")%></font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">来自:<%=rs_girl("home")%></font></td>  
              </tr>  
            </table>  
          <%rs_girl.close:set rs_girl=nothing%>  
          <%end if%>  
          </td>  
          <td width="202" valign="top">  
          <%if rs_boy.eof and rs_boy.eof then%>  
            <table border="0" width="206" cellspacing="0" cellpadding="0">  
              <tr>  
                <td width="127" valign="top" rowspan="7"><img border="0" src="image/lanmang.gif" width="90" height="120"></td>  
                <td width="79"><font color="black">&nbsp;</font></td>  
              </tr>  
              <tr>  
                <td width="79"></td>  
              </tr>  
              <tr>  
                <td width="79"><font color="black"> </font></td>  
              </tr>  
              <tr>  
                <td width="79"></td>  
              </tr>  
              <tr>  
                <td width="79"></td>  
              </tr>  
              <tr>  
                <td width="79" bgcolor="white"><font color="black"> </font></td>  
              </tr>  
              <tr>  
                <td width="79"><font color="black"> </font></td>  
              </tr>  
            </table>  
          <%else  
          Set rs_pic = Server.CreateObject("ADODB.Recordset")  
          sql="select * from pic where user_id=" & rs_boy("user_id")  
          rs_pic.open sql,connpic,1,1  
          %>  
            <table border="0" width="208" cellspacing="0" cellpadding="0">  
              <tr>  
                <td width="127" valign="top" rowspan="7"><a href='read.asp?user_id=<%=rs_boy("user_id")%>'><img border="0" src='display.asp?id=<%=rs_pic("id")%>' width="90" height="120"></a></td>  
                <td width="81"><font color="black">&nbsp;</font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">性别:男</font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">网名:<%=rs_boy("netname")%></font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">年龄:<%=rs_boy("age")%></font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">学历:<%=rs_boy("education")%></font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">职业:<%=rs_boy("job")%></font></td>  
              </tr>  
              <tr>  
                <td width="81"><font color="black">来自:<%=rs_boy("home")%></font></td>  
              </tr>  
            </table>  
          <%rs_pic.close:set rs_pic=nothing:set connpic=nothing  
            rs_boy.close:set rs_boy=nothing  
            end if%>  
  
          </td>  
        </tr>  
      </table>  
            </div>
</p>
      <!--------------->           
           
           
  <tr>           
    <td width="772" colspan="3">           
      <p align="center"><a href="adminlogin.asp">[管理入口]</a></td>           
  </tr>           
        <tr>
    <td width="772" colspan="3">           
                <p align="center"><img src="file:///C|/PROGRAM%20FILES/NAMO/WEBEDITOR%204/lib/ClipArt/Animations/Bars/bar_green.gif" width="420" height="10" border="0" alt="bar_green.gif"></p>
</td>           
        </tr>
</table>           
<map name="FPMap1">
<area shape="rect" coords="381, 4, 446, 18" href="sendphoto.asp">
<area shape="rect" coords="283, 4, 357, 18" href="register.asp"
 target="_blank">
<area shape="rect" coords="190, 4, 264, 18" href="list.asp">
<area shape="rect" coords="8, 2, 71, 16" href="your.asp">
<area shape="rect" coords="102, 4, 168, 18" href="no.htm">
</map><map name="FPMap2">
<area shape="rect" coords="336, 3, 361, 17" href="http://www.go88.net/wzsky/erso">
<area shape="rect" coords="296, 3, 321, 17" href="http://go88.net/wzsky/music">
<area shape="rect" coords="256, 4, 281, 18" href="http://go88.net/wzsky/bbs">
<area shape="rect" coords="213, 3, 238, 17" href="http://go88.net/wzsky/picknet">
<area shape="rect" coords="172, 3, 197, 17" href="http://go88.net/wzsky/club">
<area shape="rect" coords="131, 4, 156, 18" href="http://go88.net/wzsky/web">
<area shape="rect" coords="48, 4, 73, 18" href="http://go88.net/wzsky/game" target="_top">
<area shape="rect" coords="7, 4, 32, 18" href="http://www.wzsky.com" target="_top">
<area shape="rect" coords="90, 3, 115, 17" href="http://go88.net/wzsky/soft">
</map><!------------------------------------------------------------------------------------------------------------------------------>           
<!--#include file="sky.htm"-->           
</body>           
           
</html>           
<%set conn=nothing%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -