📄 recomco.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<script src="../images/layerdetail.js"></script>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (isNaN(go2to.page.value))
alert("请正确填写转到页数！");
else if (go2to.page.value=="")
{
alert("请输入转到页数！");
}
else
go2to.submit();
}
//-->
</SCRIPT>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript" src="../inc/index.js"></script>
<LINK
href="../img1/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.aspx"><font color="#FFFFFF"><%=homepage_title%></font></a><font color="#FFFFFF">>> </font>
</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>
<TABLE height=497 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=259 height=733 rowspan="2"><!--#include file="lpleft.asp"-->
</td>
<TD vAlign=top width=711>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<div align="right">
<TABLE height=28 cellSpacing=0 cellPadding=0 width=705 border=0 id="table7" background="../img1/fj.jpg">
<TBODY>
<TR>
<TD> <font color="#065BAE">推荐公司信息</font></TD>
</TR></TBODY></TABLE></div>
</td>
</tr>
<tr>
<td ><br></td>
</tr>
<tr>
<td align="center" valign="top">
<div align="center" >
<table width="705" border="1" cellpadding="0" cellspacing="1" class="main" style="border-collapse: collapse" bordercolor="#2E62A7">
<tr bgcolor="#FBE7AA" class="p13">
<td width="24%" height="25" align="center" bgcolor="#E7F7E6">
<font color="#065BAE">公司名称</font></td>
<td width="12%" height="25" align="center" bgcolor="#E7F7E6">
<font color="#065BAE">联系人</font></td>
<td width="17%" height="25" align="center" bgcolor="#E7F7E6">
<font color="#065BAE">联系电话</font></td>
<td width="33%" height="25" align="center" bgcolor="#E7F7E6">
<font color="#065BAE">公司地址</font></td>
<td width="14%" height="25" align="center" bgcolor="#E7F7E6">
<font color="#065BAE">详情</font></td>
</tr>
<%
'分页代码1#######
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'分页代码结束1######
Cotype=changechr(request("Cotype"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from recomco"
if Cotype<>"" then
sql=sql & " where Cotype="&Cotype&""
end if
sql=sql & " order by Dateandtime desc"
rs.cursorlocation=3
rs.open sql,conn,1,3
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
'分页代码2#######
rs.pagesize=20
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
'分页代码2结束#######
dim u
u=0
do while not rs.eof
If u mod 2=0 Then
bgcolor="#FEFAEE"
Else
bgcolor="#FFFFFF"
End If
%>
<tr onMouseOver="this.style.backgroundColor='#FEEAD3';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'" bgcolor="<%=bgcolor%>">
<td width="24%" height="27" align="center"> <div align="center">
<font color="#065BAE">
<%=getStr(Trim(Rs("CoName")),10)%></font></div></td>
<td width="12%" align="center"> <font color="#065BAE"> <%=getStr(Trim(Rs("LinkMan")),3)%>
</font> </td>
<td width="17%" align="center"><font color="#065BAE"><%=left(Trim(Rs("CoTel")),13)%></font></td>
<td width="33%" align="center"><font color="#065BAE"><%=getStr(Trim(Rs("CoAddress")),14)%></font></td>
<td width="14%" height="27" align="center"><a href="javascript:;" class="linkone" onClick="javascript:window.open('RecomCo_Detail.asp?CoID=<%=Trim(Rs("CoID"))%>','RecomCo','width=600,height=500,top=50,left=200,scrollbars=yes');">
<font color="#065BAE">查看</font></a></td>
</tr>
<%i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
%>
<tr valign="middle">
<td height="30" colspan="5" align="center" bgcolor="#FFFFFF">
<div align="center">
<table width="98%" border="0" cellspacing="1" cellpadding="0">
<% if rs.pagecount=1 then %>
<td height="6" colspan="4" valign="bottom" align="right">
<font color="#065BAE">共有[</font><font color="#065BAE"><%=rs.recordcount%>]条记录
以上是[</font><font color="#065BAE">1～<%=rs.recordcount%>]条</font></td>
</tr>
<tr>
<td width="600" height="7" colspan="4" valign="bottom" align="right"></td>
</tr>
<%else%>
<tr>
<td height="6" colspan="4" valign="bottom" align="right">
<font color="#065BAE">
<% page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
共有[</font><font color="#065BAE"><%=rs.recordcount%>]条记录 以上是[</font><font color="#065BAE"><%=page_start%>～<%=page_end%>]条</font></td>
</tr>
<tr>
<td height="6" colspan="4" valign="bottom" align="right">
<font color="#065BAE">
<% response.write"<form name=go2to form method=Post action='?Cotype="&Cotype&"'>"
response.write "<font color='#000064'>◆ </font>"
if pagecount=1 then
response.write "<font color='#000064'>首页 上一页</font> "
else
response.write "<a href=?Cotype="&Cotype&"&page=1><font color='0000BE'>首页</font></a> "
response.write "<a href=?Cotype="&Cotype&"&page="+cstr(pagecount-1)+"><font color='0000BE'>上一页</font></a> "
end if
if rs.PageCount-pagecount<1 then
response.write "<font color='#000064'>下一页 尾页</font>"
else
response.write "<a href=?Cotype="&Cotype&"&page="+cstr(pagecount+1)+"><font color='0000BE'>下一页</font></a> "
response.write "<a href=?Cotype="&Cotype&"&page="+cstr(rs.PageCount)+"><font color='0000BE'>尾页</font></a>"
end if
response.write "<font color='000064'> 页次:<font color=blue>"&pagecount&"</font>/"&rs.pagecount&"页</font>"
response.write "<font color='000064'> 转到第<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">页</font> "
response.write "<input class=button type='button' value='确 定' onclick=check() style='font-family: 宋体; font-size: 9pt; color: #000073; position: relative; height: 19'>"
response.write "</form>"%> </font> </td>
</tr>
<%end if
end if%></table>
</div></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="318" id="table9">
<tr>
<td> </td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</TD></TR>
</TBODY></TABLE></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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -