📄 default.asp
字号:
<%@ codepage ="936" %><!--#include file="head.asp"--><SCRIPT>function view1(url){ var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460'); }</SCRIPT><%const Max=6const Max1=8const TjMax=8const PicMax=1%><HTML><HEAD><TITLE><%=WebName%>·行业信息</TITLE><META content=zh-cn http-equiv=Content-Language><LINK href="../qyfw/images/main10.css" rel=stylesheet type=text/css><STYLE type=text/css>TD {LINE-HEIGHT: 150%}</STYLE<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD><BODY bgColor=#ffffff text=#000000 topMargin=0 marginheight="0"><CENTER><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber1"><tr><td width="100%"><DIV align=center><TABLE border=1 borderColorDark=#ffffff borderColorLight=#ced7ce cellPadding=0 cellSpacing=0 width=750><FORM action="more.asp" method=POST name=search_form ><TBODY><TR bgColor=#f7f7e7><TD height=30 vAlign=bottom><DIV align=center><TABLE border=0 cellSpacing=0 width="70%" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD class=M width="21%"><DIV align=right><FONT color=#005b00>查询行业信息：</FONT></DIV></TD><TD width="27%"><DIV align=left><INPUT name=txtitle size=28> </DIV></TD><TD width="16%"><DIV align=right><SELECT name=title> <OPTION selected value=title>标题检索</OPTION> <OPTION value=content>全文检索</OPTION></SELECT> </DIV></TD><TD width="11%"><DIV align=center> <select name="typeid" size="1" class=f11 style="width: 60; height: 60"><option selected value="0">全部</option><%dim rs2,sql2,selset rs2=server.createobject("adodb.recordset")sql2="select * from hyxxtype"rs2.open sql2,conn,1,1 do while not rs2.eofif typeID=cstr(rs2("typeID")) thensel="selected"elsesel=""response.write "<option " & sel & " value='" + Cstr(rs2("typeID")) + "'>" + rs2("type") + "</option>"rs2.movenextend if looprs2.close%></select> </DIV></TD><TD width="12%"><DIV align=center><INPUT align=bottom border=0 name=I7 src="images/CreditDynamic_index_search.gif" type=image ></DIV></TD></TR></TBODY></TABLE></DIV></TD></TR></FORM></TBODY></TABLE></DIV><TABLE border=0 cellPadding=0 cellSpacing=0 width=750><TBODY><TR><TD height=7></TD><TD></TD><TD></TD></TR><TR><TD background="images/BusinessAnalyse-an03.gif" class=M height=21> <FONT color=#006600>图片新闻</FONT></TD><TD width=20> </TD><TD background="images/BusinessAnalyse-an03.gif" class=M><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD><FONT class=M color=#006600> 热点信息</FONT> </TD><TD width=100><DIV align=right> </DIV></TD></TR></TBODY></TABLE></TD></TR><TR><TD height=6></TD><TD></TD><TD></TD></TR><TR><%sql="select * from hyxx where selectpic=1 order by NewsID desc"Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%><TD width=400><div align="center"><center><table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber3" bordercolorlight="#CED7CE" bordercolordark="#CED7CE"><tr><td width="52%" bgcolor="#FAFDF9"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="146"><tr><TD height=127 width=200><DIV align=center><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><img src="pic/<%=rs("picurl")%>" width=170 height=120 style="border: 0px solid #000000"></a></DIV></TD></tr><tr><TD height=19><DIV align=center><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>12 then%><%=left(rs("title"),11)%></a><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')">..<% else%><%=rs("title")%><%end if%></a></span></DIV></TD></tr><tr><%rs.movenext %></tr></table></td><td width="48%" valign="top" bgcolor="#FAFDF9"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5" height="149"><tr><TD height=129 width=200><DIV align=center><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><img src="pic/<%=rs("picurl")%>" width=170 height=120 style="border: 0px solid #000000"></a></DIV></TD></tr><tr><TD height=20><DIV align=center><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>12 then%><%=left(rs("title"),11)%>..<% else%><%=rs("title")%><%end if%></a></span></DIV></TD></tr></table></td></tr></table></center></div></TD><% z=z+2 if z>=PicMax then exit do rs.movenext loop rs.close set rs=nothing %><TD> </TD><TD><TABLE border=0 cellSpacing=1 width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0"><TBODY><%sql="select * from hyxx where tjnews=1 order by NewsID desc"Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%><TR><TD height=15 bgcolor="#FAFDF9">【<FONT color=#FF6600><a href="more.asp?typeid=<%=rs("typeid")%>&newstype=<%=rs("Typename")%>" style="text-decoration: none"><font color="#000000"><%=rs("Typename")%></font></a></FONT>】：<%if rs("selectpic")=1 then%><font color="#800000">[图]</font><%end if%><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>20 then%><%=left(rs("title"),19)%>..<% else%><%=rs("title")%><%end if%></a></span></TD></TR><% x=x+1 if x>=TjMax then exit do rs.movenext loop rs.close set rs=nothing %></TBODY></TABLE></TD></TR></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width=750><TBODY><TR><TD height=8></TD></TR><TR><TD><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100" id="AutoNumber2"><tr><TD width=520 style="font-size: 12px; font-family: 宋体; color: #000; line-height:150%"><IFRAME frameBorder=0 height=96 marginHeight=1 marginWidth=1 scrolling=no src="../ads/hothyxx.asp" width=725 BORDERCOLOR="#000000" name="ads"></IFRAME></TD><TD align=left style="font-size: 12px; font-family: 宋体; color: #000; line-height:150%"><a target="_blank" href="../banner.asp"><IMG border=0 src="../images/520bannernotes.gif" width="22" height="95"></a></TD></tr></table></center></div></TD></TR><TR><TD height=10></TD></TR></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width=750><TBODY><TR><TD vAlign=top width=190><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD background="images/BusinessAnalyse-left01.gif" class=M height=31><FONT color=#000000> 综合信息</FONT></TD></TR><TR><TD background="images/BusinessAnalyse-bg-left01.gif"><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width=180><TBODY><TR><TD height=6></TD></TR><% sql="select * from hyxx where typeid=13 order by NewsID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%><TR><TD height=20><font color="#000080">·</font><%if rs("selectpic")=1 then%><%end if%><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>13 then%><%=left(rs("title"),12)%>..<% else%><%=rs("title")%><%end if%></a></span></TD></TR><TR><% a1=a1+1 if a1>=Max1 then exit do rs.movenext loop rs.close set rs=nothing %><TD height=6></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width=190><TBODY><TR><TD background="images/BusinessAnalyse-left02.gif" class=M height=31> 市场行情</TD></TR><TR><TD background="images/BusinessAnalyse-bg-left01.gif"><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width=180><TBODY><TR><TD height=6></TD></TR><% sql="select * from hyxx where typeid=14 order by NewsID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%><TR><TD height=20><font color="#000080">·</font><%if rs("selectpic")=1 then%><%end if%><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>13 then%><%=left(rs("title"),12)%>..<% else%><%=rs("title")%><%end if%></a></span></TD></TR><TR><% b1=b1+1 if b1>=Max1 then exit do rs.movenext loop rs.close set rs=nothing %><TD height=20><DIV align=right><B><a target="_blank" href="more.asp?typeid=14&newstype=行情"><FONT color=#cc9900>>>更多 </FONT></a></B></DIV></TD></TR><TR><TD height=6></TD></TR></TBODY></TABLE></DIV></TD></TR><TR><TD background="images/BusinessAnalyse-left03.gif" class=M height=31> <FONT color=#000000>展会与招标</FONT></TD></TR><TR><TD background="images/BusinessAnalyse-bg-left01.gif"><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width=180><TBODY><TR><TD height=6></TD></TR><% sql="select * from hyxx where typeid=15 order by NewsID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%><TR><TD height=20><font color="#000080">·</font><%if rs("selectpic")=1 then%><%end if%><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>13 then%><%=left(rs("title"),12)%>..<% else%><%=rs("title")%><%end if%></a></span></TD></TR><TR><% c1=c1+1 if c1>=Max1 then exit do rs.movenext loop rs.close set rs=nothing %><TD height=20><DIV align=right><B><a target="_blank" href="more.asp?typeid=15&newstype=展会"><FONT color=#cc9900>>>更多 </FONT></a></B></DIV></TD></TR><TR><TD height=6></TD></TR></TBODY></TABLE></DIV></TD></TR><TR><TD bgColor=#73b64a class=M height=1></TD></TR><TR><TD> </TD></TR></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD background="images/BusinessAnalyse-left05.gif" class=M height=31> 小商品市场</TD></TR><TR><TD background="images/BusinessAnalyse-bg-left01.gif"><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width=180><TBODY><TR><TD height=6></TD></TR><% sql="select * from hyxx where typeid=16 order by NewsID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%><TR><TD height=20><font color="#000080">·</font><%if rs("selectpic")=1 then%><%end if%><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>13 then%><%=left(rs("title"),12)%>..<% else%><%=rs("title")%><%end if%></a></span></TD></TR><TR><% d1=d1+1 if d1>=Max1 then exit do rs.movenext loop rs.close set rs=nothing %><TD height=20><DIV align=right><B><a target="_blank" href="more.asp?typeid=16&newstype=市场"><FONT color=#cc9900>>>更多 </FONT></a></B></DIV></TD></TR><TR><TD height=6></TD></TR></TBODY></TABLE></DIV></TD></TR><TR><TD bgColor=#73b64a height=1></TD></TR><TR><TD> </TD></TR></TBODY></TABLE></TD><TD width=15> </TD><TD vAlign=top><TABLE border=0 cellPadding=0 cellSpacing=0 width=545><TBODY><TR><TD background="images/BusinessAnalyse-an03.gif" height=21 width=265><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD width=25> </TD><TD><FONT class=M color=#006600>农业</FONT> </TD><TD width=100><DIV align=right><B><a href="more.asp?typeid=1&newstype=农业"><FONT color=#cc9900>>>更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD><TD width=15> </TD><TD background="images/BusinessAnalyse-an03.gif" width=265><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD width=25> </TD><TD><FONT class=M color=#006600>服饰</FONT> </TD><TD width=100><DIV align=right><B><FONT color=#cc9900><a href="more.asp?typeid=2&newstype=服饰"><font color="#CC9900">>>更多</font></a></FONT></B></DIV></TD></TR></TBODY></TABLE></TD></TR><TR><TD><div align="center"><center><TABLE border=0 cellPadding=0 cellSpacing=0 width="99%" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR><% sql="select * from hyxx where typeid=1 order by NewsID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%><TR><TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span> </TD><TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999><DIV align=right>(</FONT><FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT><FONT color=#999999>)</DIV></FONT></TD></TR><% a=a+1 if a>=Max then exit do rs.movenext loop rs.close set rs=nothing %><TR><TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></center></div></TD><TD> </TD><TD><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR><% sql="select * from hyxx where typeid=2 order by NewsID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%><TR><TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\"font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span> </TD><TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999><DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR><% b=b+1 if b>=Max then exit do rs.movenext ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -