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

📄 view_company.asp

📁 使用asp开发的一个标准的房地产管理系统。有销售登记
💻 ASP
字号:
<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_system.asp-->
<!--#include file=../include/access.asp-->
<!--#include file=../include/function.asp-->

<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style.css" type="text/css">
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	function GON()
	{
		var pageno;
		var strs;
		if(form1.pp.value=="")
		{
			pageno=1;
		}
		else
		{
			pageno=form1.pp.value;
		}
		strs="view_company.asp?PageNO=" + pageno;
		window.location.href=strs;
	}
//-->
</SCRIPT>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<div align="center"><br>
  <b><%if request("type")="1" then %><font size="3">房 产 中 介 信 息</font><%end if%>
  <%if request("type")="2" then %><font size="3">房 产 开 发 公 司 信 息</font><%end if%>
  <%if request("type")="3" then %><font size="3">装 潢 公 司 信 息</font><%end if%>
  <%if request("type")="4" then %><font size="3">搬 家 公 司 信 息</font><%end if%>
  <%if request("type")="5" then %><font size="3">评 估 公 司 信 息</font><%end if%>
  <%if request("type")="6" then %><font size="3">物 业 公 司 信 息</font><%end if%></b><br>
  <br>
</div>
<FORM METHOD=POST NAME="form1">
  <table width="600" border="0" cellpadding="0" cellspacing="2" class="kuan" align="center" height="49" bgcolor="#FFFFFF">
    <%
	dim strSql,rs,i,PageNo
	strSql="select * from [company] where type='" & request("type") & "'order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
	rs.PageSize=20
	PageNo=request("PageNo")
	if PageNo<1 or not isnumeric(PageNo) then
		PageNo=1
	end if
	if cint(PageNo)>rs.PageCount then
		PageNo=rs.PageCount
	end if
%>
    <tr> 
      <td background="../images/system1.gif" height="25" align="center" width="84"><font color="#FF6633" class="font"><b><font color="#FF9B59">添加日期</font></b></font></td>
      <td background="../images/system1.gif" height="25" align="center" width="270"><font color="#FF6633" class="font"><b><font color="#FF9B59">公司名称</font></b></font></td>
      <td background="../images/system1.gif" height="25" align="center" width="126"><font color="#FF6633" class="font"><b><font color="#FF9B59">电话</font></b></font><font color="#FF6633" class="font"><b></b></font></td>
      <td background="../images/system1.gif" height="25" align="center" width="43"><font color="#FF6633" class="font"><b><font color="#FF9B59">删除</font></b></font></td>
      <td background="../images/system1.gif" height="25" align="center" width="65"><font color="#FF6633" class="font"><b></b></font><font color="#FF6633" class="font"><b><font color="#FF9B59">详细资料</font></b></font></td>
    </tr>
    <%
		if rs.recordcount>0 then
		   rs.AbsolutePage =PageNo
		   for i=1 to rs.pageSize
  			  if rs.eof then exit for
  %>
    <tr bgcolor="#ECFFEC"> 
      <td class="font" align="center" valign="middle" height="26" width="84" bgcolor="#DBE7F2"><%=replace(rs("date"),right(rs("date"),8),"")%></td>
      <td class="font" align="center" valign="middle" height="26" width="270" bgcolor="#C1D6EA"><font color=<%=rs("color")%>><%=left(rs("company"),20)%></font></td>
      <td class="font" align="center" valign="middle" height="26" bgcolor="#DBE7F2" width="126"><%=left(rs("tel"),20)%><font color="#FF6633" class="font"></font></td>
      <td class="font" align="center" valign="middle" height="26" width="43" bgcolor="#C1D6EA"><a href="del_company.asp?id=<%=rs("id")%>&amp;type=<%=request("type")%>"" class="linkfont">删除</a></td>
      <td class="linkfont" align="center" valign="middle" height="26" width="65" bgcolor="#DBE7F2"><a href="change_company.asp?id=<%=rs("id")%>" class="linkfont" target="_blank" >详细资料</a></td>
    </tr>
    <%
				rs.movenext
			next
  %>
    <tr> 
      <td colspan="5" align="right" class="font"> 
               <%
			out("共 " & rs.pagecount & " 页 &nbsp;&nbsp;")
			out("当前第 " & PageNo & " 页 &nbsp;&nbsp;")
	  %>
        <a href="view_company.asp?pageno=1&amp;type=<%=request("type")%>" class="linkfont">首页</a> 
        <a href="view_company.asp?pageno=<%=pageno-1%>&amp;type=<%=request("type")%>" class="linkfont">上一页</a> 
        <a href="view_company.asp?pageno=<%=pageno+1%>&amp;type=<%=request("type")%>" class="linkfont">下一页</a> 
        <a href="view_company.asp?pageno=<%=rs.pagecount%>&amp;type=<%=request("type")%>" class="linkfont">尾页</a> 
        &nbsp; </td>
    </tr>
    <%
		else
  %>
    <tr> 
      <td colspan="5" class="font"> 
        <div align="center">没有数据!</div>
      </td>
    </tr>
    <%
		end if 
		rs.close
		set rs=nothing
  %>
  </table>
</FORM>
</body>
</html>
<!--#include file=../include/foot.asp-->

⌨️ 快捷键说明

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