liuchen.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 382 行 · 第 1/2 页

ASP
382 行
字号
12
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../top.asp"-->
<HTML><HEAD><TITLE><%=homepage_title%></TITLE>

<script language="JavaScript" src="../inc/index.js"></script>
<%
 Dim Rs,Sql,Logos,LogoCount,TmpLogos(2),t,v
 OpenDataConn
 Set Rs=Server.CreateObject("ADODB.Recordset")
 Rs.Open"select top 3 img,porf,http from logo order by id",conn,1,1
 t=0
 Do While Not Rs.Eof
   If Trim(Rs("porf"))=1 Then
   TmpLogos(t)="<a href='"&Trim(Rs("http"))&"'><img src='logo/"&Trim(Rs("img"))&"' width='176' height='54' border='0'></a>"
   Else
   TmpLogos(t)="<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""176"" height=""54"">"& _
               "<param name=""movie"" value=""logo/"&Trim(Rs("img"))&""">"& _
               "<param name=""quality"" value=""high"">"& _
               "<embed src=""logo/"&Trim(Rs("img"))&""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""176"" height=""54""></embed></object>"
   End If
 Rs.MoveNext
 t=t+1
 Loop
 Rs.Close
  For v=0 to 2
   If TmpLogos(v)="" Then
    TmpLogos(v)="<img src='images/frams_118.jpg' width='176' height='54'>"
   End If
  Next
%>

<TABLE height=26 cellSpacing=0 cellPadding=0 width=980 align=center 
background=../img/headbg4.gif border=0>
  <TBODY>
  <TR>
    <TD align=right width=35>
	<IMG height=13 src="../img/headarrow.gif" 
      width=17></TD>
    <TD align=middle width=10></TD>
    <TD class=TD_Place width=935>您现在的位置：<a href="../index.asp"><font color=#FFFFFF><%=homepage_title%> </font> </a> 
	<font color=#FFFFFF>&gt;&gt;</font> <font color=#FFFFFF>购房指南</font></TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center 
background=../img/headbg5.gif border=0>
  <TBODY>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=710>
      <TABLE height=252 cellSpacing=0 cellPadding=0 width=710 border=0>
        <TBODY>
        <TR>
          <TD vAlign=top width=352>
            <TABLE cellSpacing=0 cellPadding=0 width=352 border=0>
              <TBODY>
              <TR bgColor=#c4e0f4>
                <TD align=middle width="100%" height=26>
				<map name="FPMap01">
				<area href="liuchen_more.asp?sort=9" shape="rect" coords="312, 13, 346, 28">
				</map>
				<img border="0" src="../img/33.gif" width="355" height="33" usemap="#FPMap01"></TD>
                </TR>
              <TR bgColor=#ffffff>
                <TD align=middle width="100%" height=26>
				　</TD>
                </TR>
              </TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=352 border=1 bordercolor="#FFFFFF">
              <TBODY>
              <TR>
                <TD align=right height=26 width="355">
				<div align="center">
				<table width="350" border="0" cellpadding="0" cellspacing="0" class="main">
                    <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select top 6 * from news where sort=9  order by dnt desc"
					rs.open sql,conn,1,1
					do while not rs.eof
					%>
                    <tr > 
                      <td width="19" height="20"> <div align="center">
						<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
                      <td width="313" style="CURSOR: hand" height="20" ><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&amp;sort=9><%=left(trim(rs("topic")),18)%></a></td>
                    </tr>
                    <tr class="trline" height="1"> 
                      <td background="../ima/back.gif" colspan="2" height="1"></td>
                    </tr>
                    <%
					rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                  </table>
				</div>
				</TD>
                </TR>
              </TBODY></TABLE></TD>
          <TD width=6></TD>
          <TD vAlign=top width=352>
            <map name="FPMap1">
			<area href="liuchen_more.asp?sort=10" shape="rect" coords="316, 9, 348, 30">
			</map>
			<img border="0" src="../img/34.gif" width="355" height="33" usemap="#FPMap1"><TABLE cellSpacing=0 cellPadding=0 width=352 border=0>
              <TBODY>
              <TR>
                <TD background=../img/msd1.gif 
            height=5></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=352 border=0>
              <TBODY>
              <TR bgColor=#ffffff>
                <TD height=22>
				　</TD>
                </TR>
              </TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=352 bgColor=#FFFFFF 
            border=0>
              <TBODY>
              <TR>
                <TD align=right height=26>
				<table width="355" border="0" cellpadding="0" cellspacing="0" class="main">
                    <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select top 13 * from news where sort=10  order by dnt desc"
					rs.open sql,conn,1,1
					do while not rs.eof
					%>
                    <tr > 
                      <td width="19" height="20"> <div align="center">
						<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
                      <td width="251" style="CURSOR: hand"><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&amp;sort=10><%=left(trim(rs("topic")),19)%></a></td>
                    </tr>
                    <tr class="trline" height="1"> 
                      <td height="1" colspan="2" background="../ima/back.gif"></td>
                    </tr>
                    <%
					rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                  </table>
				</TD>
                </TR></TBODY></TABLE></TD></TR></TBODY></TABLE><script type="text/javascript"><!--
google_ad_client = "pub-1643874477780591";
google_ad_width = 708;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel = "";
//--></script>
<script type="text/javascript"
  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script><TABLE height=170 cellSpacing=0 cellPadding=0 width=714 border=0 bordercolor="#FFFFFF" bgcolor="#FFFFFF">
        <TBODY>
        <TR>
          <TD bgColor=#FFFFFF valign="top">
			<table width="578" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="4"></td>
                  <td width="355" valign="top">
            <map name="FPMap2">
			<area href="liuchen_more.asp?sort=13" shape="rect" coords="317, 8, 348, 28">
			</map>
            <img border="0" src="../img/01.gif" width="355" height="33" usemap="#FPMap2"></td>
                  <td width="12" background="../house/images/frams_145.jpg">　</td>
                  <td width="274" valign="top">
            <map name="FPMap3">
			<area href="liuchen_more.asp?sort=12" shape="rect" coords="311, 10, 343, 29">
			</map>
			<img border="0" src="../img/_14.gif" width="355" height="33" usemap="#FPMap3"></td>
                </tr>
                <tr> 
                  <td background="..fyfile/frams_143.jpg">　
                  <td valign="top" width="355">
					　<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
                    <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select top 11 * from news where sort=13  order by dnt desc"
					rs.open sql,conn,1,1
					do while not rs.eof
					%>
                    <tr> 
                      <td width="19" height="20"> <div align="center">
						<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
                      <td width="251" style="CURSOR: hand" ><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&amp;sort=13><%=left(trim(rs("topic")),20)%> </td>
                    </tr>
                    <tr class="trline" height="1"> 
                      <td colspan="2" background="../ima/back.gif" height="1"></td>
12

liuchen.asp - 源码说明

本页面展示了「房地产管理系统 vb写的,很不错!!!!!!!!!!!」中的 liuchen.asp 源码文件，采用 ASP 编程语言编写，共 382 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与房地产相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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