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

📄 toppic.asp

📁 房地产管理系统 vb写的,很不错!!!!!!!!!!!
💻 ASP
字号:
<!--#include file="inc/conn1.asp"-->
<HTML><HEAD>
<LINK href=css/style.css type=text/css rel=stylesheet><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0" oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
<TABLE width="116" border="0" bgcolor="#FFFFFF">
  <TBODY>
   <% 
                          OpenDataConn()
                         sqlTDH="select * from Newhouse order by HID desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sqlTDH,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "<p align='center'>没有楼盘</p>"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
    <td width="0" valign="top"> 
    <TD width="106" align=center valign="top"><a href="javascript:;" class="linkone" onClick="javascript:window.open('house/newhouse_detail2.asp?HID=<%=Trim(Rs("HID"))%>','newhouse','width=600,height=500,top=50,left=200,scrollbars=yes');"> 
      <IMG src="fyfile/<%=replace(trim(Rs("simg")),",","")%>" alt="<%=rs("housename")%>" height=80 width=104 border=1 style="BORDER-LEFT-COLOR: #000000; BORDER-BOTTOM-COLOR: #000000; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #000000; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-COLOR: #000000; BORDER-BOTTOM-STYLE: solid"></A><br> 
        <a href="javascript:;" class="linkone" onClick="javascript:window.open('house/newhouse_detail2.asp?HID=<%=Trim(Rs("HID"))%>','newhouse','width=600,height=500,top=50,left=200,scrollbars=yes');"><%=rs("housename")%></a></td>
                     <% i=i+1
                        if i>=1000 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %>                              
                            </tr>
                            </table></body>
</html>

⌨️ 快捷键说明

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