📄 newinfo.asp
字号:
<%@ codepage ="936" %><!--#include file="head.asp"--><!--#include file="../inc/check_input.asp"--><!--#include file="sortcount.asp"--><!--#include file="newcount.asp"--><% const MaxPerPage=10const MaxInfo=12dim totalPut dim CurrentPagedim TotalPagesdim i,jdim keywordif not isempty(request("page")) thencurrentPage=cint(request("page"))elsecurrentPage=1end ifdim zsrsdim zssqldim rs1dim sql1keyword=request("txtitle")if not isEmpty(request("idate")) thenidate=request("idate")elseidate=date()end if dim sqldim rsqylx=request("qylb")%><% sql="select * from qyml where qymc like '%"&request("txtitle")&"%' and idate like '%"&idate&"%'and qylb like '%"&request("qylb")&"%'order by ID desc"Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 newnum=rs.recordcountif rs.eof and rs.bof thenresponse.write"<SCRIPT language=JavaScript>alert('对不起，今日暂无最新加盟企业！');"response.write"javascript:history.go(-1)</SCRIPT>"else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContentshowpage totalput,MaxPerPage,"newinfo.asp"else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContentshowpage totalput,MaxPerPage,"newinfo.asp"else currentPage=1 showContentshowpage totalput,MaxPerPage,"newinfo.asp"end if end if rs.close end ifset rs=nothingsub showContent%> <head><STYLE type=text/css>TD {COLOR: #000; FONT-FAMILY: 宋体; FONT-SIZE: 12px}.GR {COLOR: #666}</STYLE><SCRIPT language=javascript src="../manage/images/zyok.JS"></SCRIPT></head><BODY text=#000000 leftMargin=0 topMargin=0 marginheight="0" marginwidth="0"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber2" background="images/CreditCompany_x.gif"><tr><TD height=6></TD></tr></table></center><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber1"><tr><TD vAlign=top width=174 rowspan="2" bgcolor="#F5F5F5"><img border="0" src="images/Company_t88.gif"><BR><TABLE background="images/index_122x.gif" border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD><IMG height=1 src="" width=1></TD><TD vAlign=top><TABLE bgColor=#e9e9e9 border=0 cellPadding=0 cellSpacing=1 width=168><TBODY><TR bgColor=#ffffff><TD onmouseout="this.style.background='ffffff'" onmouseover="this.style.background='#ffffff'"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4"><tr><td width="100%"><table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bordercolorlight="#F2F2F2" bordercolordark="#F2F2F2"><tr><% Set rs1= Server.CreateObject("ADODB.Recordset") sql1="select * from Class_1" rs1.open sql1,conn,1,1 %><%do while not rs1.eof%> <TD onmouseout="this.style.background='ffffff'" onmouseover="this.style.background='#F4FAFF'"> <img border="0" src="images/point_fang.gif"><a href="search.asp?sortid=<%=rs1("sortid")%>"><%=rs1("sort")%></a><font color="#808080"><%response.write"("&count(rs1("sortid"))&")" %></font><%if count1(rs1("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%></TD></tr><% rs1.movenext loop rs1.close set rs1=nothing %></table></td></tr></table></TD></TR></TBODY></TABLE></TD></TR><TR><TD colSpan=2><img border="0" src="images/index_111.gif"></TD></TR></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD align=middle background="images/index_122x.gif" vAlign=top><!-- 相关产品信息 --><!-- 相关行业分析 --><TABLE border=0 cellPadding=0 cellSpacing=2 width=170 height="189"><TBODY><TR><TD align=middle bgColor=#CC6600 class=LL height=17><b><font color="#FFFFFF">热点推荐企业</font></b></TD></TR><TR><TD class=LL height="102" valign="top"><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber5"><tr><TD><% Set rstj= Server.CreateObject("ADODB.Recordset") gssql="select id,qymc,web from qyml where cflag=1 order by id desc" rstj.open gssql,conn,1,1 %><TABLE border=0 cellpadding=4 cellspacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111"><TR><TD valign=top><%do while not rstj.eof%> <TR bgColor="#f5f5f5" height="20"> <%if rstj("web")="" or rstj("web")="http://" then%><td><img border="0" src="images/DIC-DOT.gif"><font color="#FF8019"><span class="S"></span><a target="_blank" href="../company/index.asp?id=<%=rstj("id")%>"><% if len(rstj("qymc"))>11 then%><%=left(rstj("qymc"),10)%>..<% else%><%=rstj("qymc")%><%end if%></a></td><%else%><td><img border="0" src="images/DIC-DOT.gif"><span class="S"></span><font color="#FF8019"><a target="_blank" href="<%=rstj("web")%>"><% if len(rstj("qymc"))>11 then%><%=left(rstj("qymc"),10)%>..<% else%><%=rstj("qymc")%><%end if%></a></td><%end if%></TR><%x=x+1 if x>=MaxInfo then exit do rstj.movenext loop rstj.close set rstj=nothing%></TD></TR><tr><td colspan="2" height="4"></td></tr></TABLE></TD></tr></table></center></div></TD></TR></TBODY></TABLE></TD></TR><TR><TD align=middle><img border="0" src="images/index_111.gif"></TD></TR></TBODY></TABLE></TD><TD align=middle vAlign=top><TABLE background="images/company_x8.gif" border=0 cellSpacing=1 height=35 width="100%" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD align=middle><SCRIPT language=javascript><!--function on_submit(){document.form1.submit();}//--></SCRIPT><TABLE border=0 cellPadding=0 cellSpacing=0 width="75%" bordercolor="#111111" style="border-collapse: collapse"><FORM action=qyml.asp method=POST name=searchtitle><TBODY><TR><TD align=middle class=M width="100"><p align="right"><B><FONT color=#0066ff>查询公司：</FONT></B></TD>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -