📄 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 TjMax=8const TjMax1=9%><HTML><HEAD><TITLE><%=WebName%>·商务服务</TITLE><META content=zh-cn http-equiv=Content-Language><META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK href="images/main10.css" rel=stylesheet type=text/css><META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD><BODY bgColor=#ffffff text=#000000 topMargin=0 marginheight="0"><CENTER><DIV align=center><TABLE bgColor=#cccccc border=0 cellPadding=5 cellSpacing=1 width=750><FORM action=more.asp method=POST name=search_form ><TBODY><TR bgColor=#f7f5e8><TD align=middle bgColor=#f7f5e8><DIV align=center><TABLE border=0 cellSpacing=0 width="612"><TBODY><TR><TD class=M width="173"><DIV align=right><FONT color=#336666>商务服务查询 ：</FONT></DIV></TD><TD width="177"><INPUT name=txtitle size=28> </TD><TD width="97"><DIV align=center><SELECT name=title> <OPTION selected value=title>标题检索</OPTION> <OPTION value=content>全文检索</OPTION></SELECT> </DIV></TD><TD width="74"><DIV align=right> <select name="typeid" size="1" class=f11 style="width: 74; height: 74"><option value="0" selected>所有信息</option><%dim rs2,sql2,selset rs2=server.createobject("adodb.recordset")sql2="select * from commercetype"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="81"><DIV align=center><INPUT align=bottom border=0 name=I8 src="../hyxx/images/CreditDynamic_index_search.gif" type=image ></DIV></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></FORM></TABLE></DIV><TABLE border=0 cellPadding=0 cellSpacing=0 width=750><TBODY><TR><TD height=8 width=195></TD><TD width=15></TD><TD></TD></TR><TR><TD background=images/TradeAid_index_left_bg02.gif vAlign=top width=190><TABLE border=0 cellPadding=0 cellSpacing=0 width=185><TBODY><TR><TD background="images/qyfw3.gif" width="185" height="33"> <span style="letter-spacing: 1"><font color="#FFFFFF"><span style="font-size: 10.5pt"><b><img border="0" src="images/TradeAid_index01.gif"> 最新信息</b></span></font></span></TD></TR><TR><TD background=images/TradeAid_index_left_bg01.gif><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width="99%"><TBODY><TR><TD height=7></TD></TR><TR><TD height=20><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber2"><% sql="select * from Commerce 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="100%" style="line-height: 150%">·<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><% a1=a1+1 if a1>=TjMax then exit do rs.movenext loop rs.close set rs=nothing %></tr></table> </TD></TR></TBODY></TABLE></DIV></TD></TR><TR><TD bgColor=#90a0b7 height=1></TD></TR><TR><TD> </TD></TR></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width=185><TBODY><TR><TD background="images/qyfw2.gif" width="185" height="33"> <span style="letter-spacing: 1"><font color="#FFFFFF"><span style="font-size: 10.5pt"><b><img border="0" src="images/TradeAid_index01.gif"></b></span></font></span><b><span style="letter-spacing: 1"><font color="#FFFFFF"><span style="font-size: 10.5pt">WTO专栏</span></font></span></b></TD></TR><TR><TD background=images/TradeAid_index_left_bg01.gif><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width="99%"><TBODY><TR><TD height=7></TD></TR><% sql="select * from Commerce where typeid=7 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>·<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"),11)%>..<% else%><%=rs("title")%><%end if%></a></span> </TD></TR><% g=g+1 if g>=tjMax1 then exit do rs.movenext loop rs.close set rs=nothing %><TR><TD height=20><DIV align=right><B><a href="more.asp?typeid=7&newstype=WTO专栏"><FONT color=#cc9900>>>更多 </FONT></a></B></DIV></TD></TR><TR><TD height=7></TD></TR></TBODY></TABLE></DIV></TD></TR><TR><TD bgColor=#90a0b7 height=1></TD></TR><TR><TD> </TD></TR></TBODY></TABLE></TD><TD> </TD><TD vAlign=top><TABLE border=0 cellPadding=0 cellSpacing=0 width=540><TBODY><TR><TD background=images/TradeAid_index_bg01.gif height=22 width=260><TABLE border=0 cellPadding=0 cellSpacing=0 width=250><TBODY><TR><TD width=25> </TD><TD class=M><font color="#226666">职业培训</font></TD><TD width=80><DIV align=right><B><FONT color=#cc9900><a href="more.asp?typeid=1&newstype=职业培训"><font color="#CC9900">>>更多</font></a></FONT></B></DIV></TD></TR></TBODY></TABLE></TD><TD> </TD><TD background=images/TradeAid_index_bg01.gif width=260><TABLE border=0 cellPadding=0 cellSpacing=0 width=250><TBODY><TR><TD width=25> </TD><TD class=M><font color="#226666">营销技巧</font></TD><TD width=80><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><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD height=7></TD></TR><TR><TD align=middle width="100%"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber2"><% sql="select * from Commerce 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%" style="line-height: 150%">·<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%" style="line-height: 150%"><FONT color=#999999><DIV align=right>(</FONT><FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT><FONT color=#999999>)</DIV></FONT></TD><% a=a+1 if a>=Max then exit do rs.movenext loop rs.close set rs=nothing %></tr></table></TD></TR></TBODY></TABLE></DIV></TD><TD> </TD><TD><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD height=7></TD></TR><TR><TD align=middle width="100%"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber3"><tr><TD align=middle width="100%"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber2"><% sql="select * from Commerce 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%" style="line-height: 150%">·<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%" style="line-height: 150%"><FONT color=#999999><DIV align=right>(</FONT><FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT><FONT color=#999999>)</DIV></FONT></TD><% b=b+1 if b>=Max then exit do rs.movenext ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -