liuchen_detail.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 279 行

ASP
279 行
字号 
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<%OpenDataConn
newsid=RtnReplaceInt(trim(request("newsid")),0)
set rs=server.createobject("adodb.recordset")
sql="select * from news where newsid="&newsid&""
rs.open sql,conn,1,1
if rs.eof then 
   response.write "找不到该信息，该信息已能已被删除!"
   response.end
end if
if not rs.eof then
title=rs("topic")
conn.execute "update news set hit=hit+1 where newsid="&newsid&""
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=title%>-<%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK 
href="../img/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 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>&gt;&gt; 
	<a href="liuchen.asp"><font color="#FFFFFF">购房指南</font></a>&gt;&gt;</font><FONT color=#ffffff>购房须知</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>
<div align="center">
<TABLE height=980 cellSpacing=0 cellPadding=0 width=970 border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=259 height=733 rowspan="2">
      <TABLE class=out3s_green height="100%" cellSpacing=0 cellPadding=0 
      width=255 bgColor=#7cb721 border=0>
        <TBODY>
        <TR>
          <TD vAlign=top>
            <TABLE cellSpacing=0 cellPadding=0 width="75%" align=center 
border=0>
              <TBODY>
              <TR>
                <TD colspan="2">
				<p style="line-height: 22px">
				<img border="0" src="../img/25.gif" width="252" height="41"></TD></TR>
              <TR>
                <form name="form1" method="get" action="newhouse_show.asp">
                      <tr> 
                        <td width="25%" height="20" align="right"><font color="#FFFFFF">区域&nbsp;</font></td>
                        <td width="75%" height="20"> <SPAN class=P9><FONT color=red> 
                          <%
                          set rscyte=server.CreateObject("adodb.recordset")
						  sqlcyte= "select * from cyte"
						  rscyte.Open sqlcyte,conn,1,1
						  %>
                          <select name="fangwei" id="id"  class="inp">
                            <option value="">-- 请选择 --</option>
                            <%do while not rscyte.eof%>
                            <option value="<%=rscyte("cyte")%>"><%=rscyte("cyte")%></option>
                            <%
								rscyte.movenext
								loop
								rscyte.close
								set rscyte=nothing
								%>
                          </select>
                          </FONT></SPAN></td>
                      </tr>
                      <tr> 
                        <td height="20" align="right"><font color="#FFFFFF">价格&nbsp;</font></td>
                        <td height="20"> <input name="price1" type="text" id="price1" size="5">
                         <font color="#FFFFFF"> - </font>
                          <input name="price2" type="text" id="price2" size="5">
                         <font color="#FFFFFF"> 元</font></td>
                      </tr>
                      <tr> 
                        <td height="20" align="right"><font color="#FFFFFF">楼盘</font></td>
                        <td height="20"> <input name="HouseName" type="text" id="HouseName" size="14"> 
                        </td>
                      </tr>
                      <tr> 
                        <td height="20" align="right" valign="bottom"><font color="#FFFFFF">开发商</font></td>
                        <td height="20" valign="bottom"> <input name="Developer" type="text" id="Developer" size="14"> 
                        </td>
                      </tr>
                      <tr> 
                        <td height="20" colspan="2" valign="bottom"> 
						<p align="center">&nbsp;&nbsp; 
                            <a href="javascript:document.form1.submit();">
						<img src="../images/frams_86.jpg" width="53" height="23" border="0"></a> </td>
                      </tr>
                    </form></TR>
              <TR>
                <TD colspan="2">
				<p align="center">
				<img border="0" src="../img/26.gif" width="252" height="41"></TD></TR>
              <TR>
                <TD colspan="2">
				<table width="200" border="0" cellpadding="0" cellspacing="0" bgcolor="#7CB721">
                    <%
 Set Rs2=Server.CreateObject("ADODB.Recordset")
 						  sqlcyte1 = "select top 10 * from newhouse order by click desc"
						  rs2.Open sqlcyte1,conn,1,1
					 Do While Not Rs2.Eof
					%>
                    <tr> 
                      <td width="22" align="center">
						<img border="0" src="../img/arr_w1.gif" width="9" height="9"></td>
                      <td width="100"><a href=newhouse_detail2.asp?HID=<%=Trim(Rs2("HID"))%>><font color=#ffffff><%=getStr(Trim(Rs2("housename")),7)%></font></a></td>
                      <td width="78"><font color="#FFFFFF"><%=Trim(Rs2("AvgPrice"))%>元/m<sup>2</sup></font></td>
                    </tr>
                    <%
					 Rs2.MoveNext
					 Loop
					 Rs2.Close
					%>
                  </table>
					</tr>
				</table>
				</TD></TR>
                </table></td>
    <TD vAlign=top width=710>
      
<table border="0" width="710" id="table10" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center"><TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table3">
              <TBODY>
              <TR>
                <TD></TD></TR></TBODY></TABLE>
		<TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0 id="table7">
			<TBODY>
				<TR>
					<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
					<TD width=150 background=../img/news4a.gif>
					<IMG height=9 
            src="../img/arr_w2.gif" width=9> <b>
					<a href="liuchen.asp" class="linkone"><font color=#FFFFFF><!--#include file="../admin/sort2.asp"--></font></a></b></TD>
					<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
					<TD background=../img/news5a.gif>&nbsp;&nbsp; </TD>
					<TD width=5>
					<IMG height=30 src="../img/news3a.gif" 
        width=5></TD>
				</TR>
			</TBODY>
		</TABLE>
		</td>
	</tr>
	<tr>
		<td align="center"><TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table3">
              <TBODY>
              <TR>
                <TD></TD></TR></TBODY></TABLE>
		<div align="right">
			<TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=705 border=0 id="table2">
        <TBODY>
        <TR>
          <TD vAlign=top>
            <table width="705" border="0" cellpadding="0" cellspacing="0" class="main">
    <tr> 
      <td height="29" class="black">
<table width="680" height="181" border="0" align="center" cellpadding="0" cellspacing="1" class="main">
  <tr> 
    <td height="46" colspan="2" align="center" class="p12">
	<p style="line-height: 330%"><font color="#339900" size="3"><strong><%=title%></strong></font></td>
  </tr>
  <tr> 
    <td height="19" colspan="2" align="center" class="p12"> <div align="right">
		文章<font color="#000000">类型： 
        <!--#include file="../admin/sort.asp"-->
        　　 　　　　　加入时间：<%=rs("dnt")%></font></div></td>
  </tr>
  <tr> 
    <td height="1" colspan="2" align="center" bgcolor="#999999" class="p12"></td>
  </tr>
  <tr> 
    <td height="36" colspan="2" valign="top" align=center><table width="99%" height="19" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
        <tr>
          <td valign="top">
		  <%
		  if rs("imgname")<>"" then
		   dim myimg,aryimg
		  myimg=trim(Rs("imgname"))
		  aryimg=split(myimg,",")
		  for i=0 to ubound(aryimg)-1
		  %>
		  <div align="center"><img src="../pic/<%=aryimg(i)%>" alt=""></div><br>
		  <%
		  next
		  end if%></td>
        </tr>
        <tr> 
          <td valign="top" width=690><span> <%=rs("comment")%> </span></td>
        </tr>
        <tr> 
          <td><script type="text/javascript"><!--
google_ad_client = "pub-1643874477780591";
google_ad_width = 705;
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></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td width="46%" height="28" align="right" class="p12"> <div align="center"><font color="#000000"> 
        <%
										  addr0=request.servervariables("server_name")
                                          addr1=request.servervariables("url")
                                          url="http://"&addr0&addr1&"?newsid="&newsid
										  %>
        &nbsp;&nbsp;　　<img src="../ima/print_icon.gif" width="20" height="18"><span class="black"><a href="javascript:window.print()"><font color="#CC0000">打印该页</font></a></span></font></div></td>
    <td width="54%" align="right" class="p12"><div align="center">
		<font color="#000000">出处：<%=rs("fromw")%></font></div></td>
  </tr>
  <tr> 
    <td height="28" align="right" class="p12">　</td>
    <td align="right" class="p12">　</td>
  </tr>
</table>
<%
rs.close
%>
</body>
</html>
<%
 Set Rs=Nothing
 CloseDataConn
%>
		</td>
    </tr>
  </table>
            <TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table5">
              <TBODY>
              <TR>
                <TD></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=708 
            background=../img/bomgreen2.gif border=0 id="table6">
              <TBODY>
              <TR>
                <TD width=20>
				<IMG height=27 src="../img/bomgreen1.gif" 
                  width=13></TD>
                <TD align=right>
				　</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></div>
	</td>
	</tr>
</table>
      
</TD></TR>
              </TBODY></TABLE></div>
</TD></TR></TBODY></TABLE></TD>
    <TD vAlign=top>
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>
      <TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
        <TBODY>
        <TR>
          <TD></TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>

liuchen_detail.asp - 源码说明

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

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

⌨️ 快捷键说明

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