📄 default.asp
字号:
loop rs.close set rs=nothing %></tr></table></TD></tr></table></TD></TR></TBODY></TABLE></DIV></TD></TR><TR><TD bgColor=#cccccc height=1></TD><TD></TD><TD bgColor=#cccccc></TD></TR><tr><TD> </TD><TD> </TD><TD> </TD></tr><tr><TD background=images/TradeAid_index_bg01.gif height=22><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><a href="more.asp?typeid=3&newstype=企业管理"><FONT color=#cc9900>>>更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD><TD> </TD><TD background=images/TradeAid_index_bg01.gif><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><a href="more.asp?typeid=4&newstype=法律咨询"><FONT color=#cc9900>>>更多</FONT></a></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="AutoNumber4"><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=3 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><% c=c+1 if c>=Max then exit do rs.movenext loop rs.close set rs=nothing %></tr></table></TD></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="AutoNumber7"><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=4 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><% d=d+1 if d>=Max then exit do rs.movenext loop rs.close set rs=nothing %></tr></table></TD></tr></table></TD></TR></TBODY></TABLE></DIV></TD></tr><tr><TD bgColor=#cccccc height=1></TD><TD></TD><TD bgColor=#cccccc></TD></tr><tr><TD> </TD><TD> </TD><TD> </TD></tr><TR><TD background=images/TradeAid_index_bg01.gif height=22><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><a href="more.asp?typeid=5&newstype=合同样本"><FONT color=#cc9900>>>更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD><TD> </TD><TD background=images/TradeAid_index_bg01.gif><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><a href="more.asp?typeid=6&newstype=规章制度"><FONT color=#cc9900>>>更多</FONT></a></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="AutoNumber5"><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=5 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><% e=e+1 if e>=Max then exit do rs.movenext loop rs.close set rs=nothing %></tr></table></TD></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="AutoNumber6"><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=6 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><% f=f+1 if f>=Max then exit do rs.movenext loop rs.close set rs=nothing %></tr></table></TD></tr></table></TD></TR></TBODY></TABLE></DIV></TD></TR><TR><TD bgColor=#cccccc height=1></TD><TD></TD><TD bgColor=#cccccc></TD></TR><TR><TD> </TD><TD> </TD><TD> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber1"><tr><td width="100%" background="images/bt2.gif"> </td><!--#include file="../inc/end.asp"--></tr></table></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -