allcompany.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="cn.asp"-->
<%if session("admin")=""  or request.cookies("timesshop")("admin")="" then 
response.Write "<script language='javascript'>alert('请先登录！');window.location.replace('login.asp');</script>"
response.End
end if
%><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>

<table width="650" border="0" cellpadding="0" cellspacing="0" align="center">
  <!--DWLayoutTable-->
  <tr>
    <td width="538" height="68" valign="middle"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="500" height="13" valign="middle">
		<table width="650" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF9900">
          <!--DWLayoutTable-->
            <tr>
              <td width="126" height="20" align="center">公司查询：</td>
              <td width="524" valign="middle">
			  <form id="form1" name="form1" method="post" action="searchcom.asp">
                  编号：<input name="id" type="text" id="id" />
                  <input type="submit" name="Submit" value="提交" />
			      <input type="reset" name="Submit2" value="重置" />
			  </form>
                </td>
              </tr>
          </table>
		<table width="650" border="0" cellpadding="0" cellspacing="0" bgcolor="#B1C3D9">
          <!--DWLayoutTable-->
            <tr>
              <td width="126" height="20" align="center" valign="middle">公司名称</td>
              <td width="38" align="center" valign="middle">编号</td>
              <td width="52" align="center" valign="middle">公司类别</td>
			  <td width="76" align="center">联系电话</td>
              <td width="66" align="center">注册时间</td>
              <td width="55" align="center">登陆次数</td>
			  <td width="55" align="center">首页显示</td>
			  <td width="48" align="center">有效期</td>
			  <td width="75" align="center">审核情况</td>
              <td width="59" align="center">详细信息</td>
            </tr>
          </table></td>
        </tr>
      <tr>
        <td height="21" valign="middle"><table width="650" border="0" cellpadding="0" cellspacing="1" bgcolor="#BBCEFD">
          <!--DWLayoutTable-->
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from company order by id desc"
rs.open sql,cn,1,1
if rs.eof then
 response.Write "<script language='javascript'>alert('无记录！');window.location.replace('index.asp');</script>"
 end if
'分页
jil=rs.recordcount
page=cint(request.QueryString("page"))
rs.pagesize=30
tpage=cint(rs.pagecount)
 if page="" or page=0 then 
		 page=1
		 end if
		  if  page>rs.pagecount then 
		 page=rs.pagecount
		 end if
 rs.Absolutepage=page
 
do while not rs.eof
%>
          <tr>
              <td width="126" height="20" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("cname")%></td>
              <td width="36" valign="middle" bgcolor="#FFFFFF"><%=rs("id")%></td>
              <td width="52" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("typ")%></td>
              <td width="65" align="center" bgcolor="#FFFFFF"><%=rs("tel")%></td>
              <td width="69" align="center" bgcolor="#FFFFFF"><%=left(rs("addtime"),10)%></td>
              <td width="53" align="center" bgcolor="#FFFFFF"><%=rs("times")%></td>
			   <td width="53" align="center" bgcolor="#FFFFFF">
			   <%if rs("gg")=true then%>
			   <a href="comshh.asp?id=<%=rs("id")%>&gg=no&lei=2">显示</a>
			   <%else%>
			   <a href="comshh.asp?id=<%=rs("id")%>&gg=yes&lei=2">不显示</a>
			   <%end if%>			   </td>
			  <td width="53" align="center" bgcolor="#FFFFFF"><%=rs("ontime")%>天</td>
			  <td width="74" align="center" bgcolor="#FFFFFF">
			  <%if rs("shenhe")=false then%>
			  未<a href="comshh.asp?id=<%=rs("id")%>&lei=1">审核</a>
			  <%else%>
			  已审核
			  <%a=rs("shtime")
			  last=a
			  t=now()
			  dateare=fix(t-a)%>
			  <%response.write dateare%>天
			
				<%end if%>			 </td>
              <td width="58" align="center" bgcolor="#FFFFFF"><a href="comxx.asp?id=<%=rs("id")%>&amp;name=<%=rs("cname")%>">详细信息</a></td>
            </tr>
          <%
		  rs.movenext
		  loop
		  %>
          </table></td>
        </tr>
      <tr>
        <td height="27" align="center" valign="bottom" bgcolor="#B4C6DB"><form id="form2" name="form2" method="post" action="allcompany.asp?page=<%=cint(request.Form("newspage"))%>">
          共<%=jil%>条记录 &nbsp;每页显30示条&nbsp;共<%=tpage%>页 &nbsp;第<%=page%>页 &nbsp;<a href="allcompany.asp?page=1">第一页</a> &nbsp;<a href="allcompany.asp?page=<%=page+1%>">下一页</a> &nbsp;<a href="allcompany.asp?page=<%=page-1%>">上一页</a>&nbsp;<a href="allcompany.asp?page=<%=tpage%>">最后一页 </a>&nbsp;跳到
          <input name="newspage" type="text" id="newspage" size="4" />
         页        
         <input type="submit" name="Submit3" value="GO" />
        </form>
        </td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td height="300">&nbsp;</td>
  </tr>
</table>
<%rs.close
set rs=nothing
cn.close
set cn=nothing%>