pingu.asp

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

ASP
594 行
字号
123
              </TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
    <TD vAlign=top>
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR></TR>
        <TR>
          </TR></TBODY></TABLE>
      <div align="right">
      <TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0>
        <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> <font color="#FFFFFF"><b>评估师信息</b></font></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>
      </div>
      <TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
        <TBODY>
        <TR>
          <TD></TD></TR></TBODY></TABLE>
      <div align="right">
      <TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=705 border=0>
        <TBODY>
        <TR>
            <td width="705" align="center" valign="top">  
					<TABLE cellSpacing=0 cellPadding=0 width=700 align=center 
              border=0><TBODY>
              <TR bgColor=#efefef>
                <td width="578" align="center" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <tr style="line-height:2px;"> 
                      <td>　</td>
                    </tr>
                  </table>
                  <table width="705" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9F2D7" class="main">
                    <tr> 
                      <td height="25" colspan="7" class="p13"> <table width="98%" height="25" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
                          <tr> 
                            <td><div align="left">　<span class="p13"> <font color="#FF711B"><strong>住宅物业评估</strong></font>　　<a href="pingu_add.asp?pgtype=%D7%A1%D5%AC%CE%EF%D2%B5%C6%C0%B9%C0" class="linkone">[我要评估] 
                                </a></span> </div></td>
                            <td width="100"> <div align="center"><a href="pingu_more.asp?pgtype=%D7%A1%D5%AC%CE%EF%D2%B5%C6%C0%B9%C0" class="linkone">More&gt;&gt;</a></div></td>
                            <td width="30">　</td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr bgcolor="#FAE4A3"> 
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">物业名称</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">地理位置</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">户型</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">价格（万元）</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">提交时间</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">评估师</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">状态</font></div></td>
                    </tr>
                    <%
									  
									  set rs=server.CreateObject("adodb.recordset")
									  sql="select top 6 * from pinggu where pgtype='住宅物业评估' "
									  rs.open sql,conn,1,1
									  count=0
									  do while not rs.eof
									  If count mod 2=0 Then
		                               bgcolor="#FEFAEE"
		                              Else
		                               bgcolor="#FFFFFF"
		                             End If
									  %>
                    <tr bgcolor="<%=bgcolor%>" onMouseOver="this.style.backgroundColor='#FEEAD3';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'"> 
                      <td width="15%" height="25"> <div align="center"><%=trim(rs("wuyename"))%></div></td>
                      <td width="15%" height="25"> <div align="center"><%=trim(rs("area"))%></div></td>
                      <td width="15%" height="25"> <div align="center"><%=trim(rs("huxing"))%></div></td>
                      <td width="15%" height="25"> <div align="center"><%=trim(rs("price"))%></div></td>
                      <td width="15%" height="25"> <div align="center"> 
                          <%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%>
                        </div></td>
                      <td width="15%" height="25"> <div align="center"> 
                          <%
userid=trim(rs("pgren"))
set ts=server.createobject("adodb.recordset")
sql="select * from pinguren where userid='"&userid&"'"
ts.open sql,conn,1,1
if not ts.eof then
youname=trim(ts("youname"))
end if
ts.close
set ts=nothing
response.write youname
%>
                        </div></td>
                      <td width="15%" height="25"> <div align="center"> 
                          <% if trim(rs("ispingu"))="1" then response.write "已评估" else response.write "未评估" end if%>
                        </div></td>
                    </tr>
                    <%
									  rs.movenext
									  count=count+1
									  loop
									  rs.close
									  set rs=nothing
									  %>
                  </table>
                  <table width="251" height="20" border="0" cellpadding="0" cellspacing="0" class="main">
                    <tr> 
                      <td width="251">　</td>
                    </tr>
                  </table>
                  <table width="705" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9F2D7" class="main">
                    <tr> 
                      <td height="25" colspan="5" class="p13"><div align="left"><font color="#FF0000"><strong>　<font color="#FF711B">商业物业评估</font></strong></font>　　<a href="pingu_add.asp?pgtype=%C9%CC%D2%B5%CE%EF%D2%B5%C6%C0%B9%C0" class="linkone">[我要评估] 
                          </a> </div></td>
                      <td height="25" colspan="2" class="p13"><div align="center"><a href="pingu_more.asp?pgtype=%C9%CC%D2%B5%CE%EF%D2%B5%C6%C0%B9%C0" class="linkone">More&gt;&gt;</a></div></td>
                    </tr>
                    <tr bgcolor="#FAE4A3"> 
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">物业名称</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">地理位置</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">户型</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">价格（万元）</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">提交时间</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">评估师</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">状态</font></div></td>
                    </tr>
                    <%
									  
									  set rs=server.CreateObject("adodb.recordset")
									  sql="select top 6 * from pinggu where pgtype='商业物业评估' "
									  rs.open sql,conn,1,1
									  do while not rs.eof 
									  %>
                    <tr bgcolor="<%=bgcolor%>" onMouseOver="this.style.backgroundColor='#FEEAD3';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'"> 
                      <td width="15%" height="25"> <div align="center"><%=trim(rs("wuyename"))%></div></td>
                      <td width="15%" height="25"> <div align="center"><%=trim(rs("area"))%></div></td>
                      <td width="15%" height="25"> <div align="center"><%=trim(rs("huxing"))%></div></td>
                      <td width="15%" height="25"> <div align="center"><%=trim(rs("price"))%></div></td>
                      <td width="15%" height="25"> <div align="center"> 
                          <%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%>
                        </div></td>
                      <td width="15%" height="25"> <div align="center"> 
                          <%
userid=trim(rs("pgren"))
set ts=server.createobject("adodb.recordset")
sql="select * from pinguren where userid='"&userid&"'"
ts.open sql,conn,1,1
if not ts.eof then
youname=trim(ts("youname"))
end if
ts.close
set ts=nothing
response.write youname
%>
                        </div></td>
                      <td width="15%" height="25"> <div align="center"> 
                          <% if trim(rs("ispingu"))="1" then response.write "已评估" else response.write "未评估" end if%>
                        </div></td>
                    </tr>
                    <%
									  rs.movenext
									  count=count+1
									  loop
									  rs.close
									  set rs=nothing
									  %>
                  </table>
                  <table width="251" height="20" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width="251">　</td>
                    </tr>
                  </table>
                  <table width="705" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9F2D7" class="main">
                    <tr> 
                      <td height="25" colspan="5" class="p13"><div align="left"><span class="p13"><font color="#FF0000"><strong>　<font color="#FF711B">工业物业评估</font></strong></font>　　<a href="pingu_add.asp?pgtype=%B9%A4%D2%B5%CE%EF%D2%B5%C6%C0%B9%C0" class="linkone">[我要评估] 
                          </a></span> </div></td>
                      <td height="25" colspan="2" class="p13"><div align="center"><a href="pingu_more.asp?pgtype=%B9%A4%D2%B5%CE%EF%D2%B5%C6%C0%B9%C0" class="linkone">More&gt;&gt;</a></div></td>
                    </tr>
                    <tr bgcolor="#FAE4A3"> 
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">物业名称</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">地理位置</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">户型</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">价格（万元）</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">提交时间</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">评估师</font></div></td>
                      <td width="15%" height="25" class="p13" bgcolor="#E7F7E6"> <div align="center"><font color="#FF711B">状态</font></div></td>
                    </tr>
                    <%
									  
									  set rs=server.CreateObject("adodb.recordset")
									  sql="select top 6 * from pinggu where pgtype='工业物业评估' "
									  rs.open sql,conn,1,1
									  do while not rs.eof 
									  %>
                    <tr onMouseOver="this.style.backgroundColor='#FEEAD3';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'"> 
                      <td width="15%" height="25" bgcolor="<%=bgcolor%>"> 
                        <div align="center"><%=trim(rs("wuyename"))%></div></td>
                      <td width="15%" height="25" bgcolor="<%=bgcolor%>"> 
                        <div align="center"><%=trim(rs("area"))%></div></td>
                      <td width="15%" height="25" bgcolor="<%=bgcolor%>">
123

pingu.asp - 源码说明

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

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

⌨️ 快捷键说明

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