hs.asp

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

                        <td width="43" align="center">编辑</td>
                        <td width="43" align="center">浏览</td>
                      </tr>
                      <%
		userid=session("loginid")
              dim curpage
              if request("curpage")="" then
                 curpage=1
              else
                 curpage=request("curpage")
              end if
              const numperpage=15
              xxlb=trim(request("xxlb"))
			  fangwei=trim(request("fangwei"))
			  fclx=trim(request("fclx"))
			  area=trim(request("area"))
			  opendataconn
              set rs=server.createobject("adodb.recordset")
              sql="select house.*,company.reg_type from house,company where house.id<>0  "
			  if xxlb<>""  then
			  sql=sql & " and xxlb='"&xxlb&"'"
			  end if
			  if fangwei<>"" then
			  sql=sql & " and fangwei='"&fangwei&"'"
			  end if
			  if fclx<>"" then
			  sql=sql & " and fclx='"&fclx&"'"
			  end if
			  if area<>"" then
			  sql=sql & " and area like '%"&area&"%'"
			  end if
			  sql=sql & " and company.userid=house.userid order by  dateandtime desc "
			 ' response.write sql
			 ' response.end
              rs.open sql,conn,1,1
              if rs.eof then
              response.write "<table><tr><td><br></br><center>现在还没有记录！</center><br></br></td></tr></table>"
                     response.end
              end if
            if not rs.eof then
            rs.pagesize=numperpage
            dim totalpages
            totalpages=rs.pagecount
            rs.absolutepage=curpage
            end if        
           dim count
           count=0
           do while not rs.eof and count<numperpage
              %>
                      <tr bgcolor="#666666" class="p13"> 
                        <td width="27" align="center"><input name="id" type="checkbox" class="mul2" id="id" value="<%=trim(rs("id"))%>"></td>
                        <td width="45" align="center"> <div align="center"> 
                            <%
						if rs("xxlb")="1" then
						response.write "<font color=#CC0000>出租</font>"
						elseif rs("xxlb")="2" then
						response.write "<font color=#006699>求租</font>"
						elseif rs("xxlb")="3" then
						response.write "<font color=#333333>求购</font>"
						elseif rs("xxlb")="4" then
						response.write "<font color=#0000FF>出售</font>"
						elseif rs("xxlb")="5" then
						response.write "<font color=#FF9900>合租</font>"
						elseif rs("xxlb")="6" then
						response.write "<font color=#0483BF>置换</font>"
						else
						response.write"空"
						end if
						id=trim(rs("id"))
							%>
                          </div></td>
                        <td width="62" align="center"> <% if rs("reg_type")="1" then response.write "中介" else response.write "免中介" end if%> </td>
                        <td width="62" align="center"><font color="#FF9900">&nbsp; 
                          </font><%=left(rs("fangwei"),15)%>　</td>
                        <td width="73" align="center"><%=left(rs("fclx"),15)%></td>
                        <td width="68" align="center"><%=left(rs("area"),15)%></td>
                        <td width="103" align="center"> <%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%> </td>
                        <td width="42" align="center"><%if rs("sh") = 1 then%><a href='?fyaction=sh1&id=<%=id%>' title=取消审核 onclick="{if(confirm('确定取消审核吗?')){return true;}return false;}"><font color="#66FFFF">已审</font></a>
			    <%else%>
			    <a href='?fyaction=sh&id=<%=id%>' onclick="{if(confirm('确定审核此信息吗?')){return true;}return false;}" title=审核信息>
						<font color="#FF66FF">未审</font></a><%end if%></td>
                        <td width="43" align="center"><a href="house_modi.asp?id=<%=id%>">修改</a></td>
                        <td width="43" align="center">
						<a href="../house/hs_open.asp?id=<%=id%>">浏览</a></td>
                      </tr>
                      <%
              rs.movenext       
                count=count+1
                loop
               rs.close
               set rs=nothing
               closedataconn    
              %>
                      <tr class="p13"> 
                        <td height="50" colspan="10" align="center"> &nbsp;&nbsp;&nbsp;&nbsp; 
                          <div align="center"> 
                            <% if cint(curpage)<>1 then %>
                            <a href="hs.asp?curpage=1&xxlb=<%=xxlb%>&fangwei=<%=fangwei%>&fclx=<%=fclx%>&area=<%=area%>">首页&nbsp;</a> 
                            <% else %>
                            首页&nbsp; 
                            <% end if %>
                            <% if cint(curpage)>1 then %>
                            <a href="hs.asp?curpage=<%=curpage-1%>&xxlb=<%=xxlb%>&fangwei=<%=fangwei%>&fclx=<%=fclx%>&area=<%=area%>">上一页&nbsp;</a> 
                            <% else %>
                            &nbsp;上一页 
                            <% end if %>
                            <% if cint(curpage)<>cint(totalpages) then %>
                            <a href="hs.asp?curpage=<%=curpage+1%>&xxlb=<%=xxlb%>&fangwei=<%=fangwei%>&fclx=<%=fclx%>&area=<%=area%>">&nbsp;下一页 
                            <% else %>
                            &nbsp;下一页 
                            <% end if %>
                            <% if cint(curpage)<>cint(totalpages) then %>
                            </a><a href="hs.asp?curpage=<%=totalpages%>&xxlb=<%=xxlb%>&fangwei=<%=fangwei%>&fclx=<%=fclx%>&area=<%=area%>">&nbsp;末页 
                            <% else %>
                            &nbsp;末页 
                            <% end if %>
                            </a> 
                            <input name="xxlb2" type="hidden" id="xxlb22" value="<%=xxlb%>">
                            　　第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页　 　 
                            <input name="xxlb3" type="hidden" id="xxlb3" value="<%=xxlb%>">
                            　 </div></td>
                      </tr>
                    </table>
                    <SCRIPT language=javascript>
function doDelete()
{
	if(confirm("确定要删除吗？删除后不可恢复！"))
	{
		return true;
	}
	else
	{
		return false;
	}
}
</SCRIPT>
                    <input type="submit" value=" 删 除 " name="B12" onclick="return doDelete()">
                  </form></td>
              </tr>
              <tr> 
                <td><img src="../images/httable_04.gif" width=606 height=19></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<div align="center">
<table width="778" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td><img src="../images/ht_04.gif" width="778" height="4"></td>
  </tr>
</table>
</div>
<!-- End ImageReady Slices -->
<map name="Map">
  <area shape="rect" coords="630,36,775,56" href="http://www.fyasp.com" target="_blank">
</map>
</body>
</html>