default.asp
来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 436 行 · 第 1/2 页
ASP
436 行
<TD align=right>
<TABLE border="0" width="100%" height="20" style="border-collapse: collapse" cellspacing="1" cellpadding="2">
<%Set rssort= Server.CreateObject("ADODB.Recordset")
sortsql="select * from Class_1"
rssort.open sortsql,conn,1,1
if rssort.eof then
response.write "还没有大分类！"
end if
do while not rssort.eof%>
<TR>
<td width="25%" height="25" align="left" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"><p style="line-height: 150%">
<A class=C href="search.asp?sortid=<%=rssort("sortid")%>"><%=rssort("sort")%></a>
<font color="#ff6600"><%response.write"("&count(rssort("sortid"))&")" %></font>
<%if count1(rssort("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>
</td>
<%rssort.movenext%>
<td width="25%" height="25" align="left" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"><p style="line-height: 150%">
<A class=C href="search.asp?sortid=<%=rssort("sortid")%>"><%=rssort("sort")%></a>
<font color="#ff6600"><%response.write"("&count(rssort("sortid"))&")" %></font>
<%if count1(rssort("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>
</td>
<%rssort.movenext%>
<td width="25%" height="25" align="left" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"><p style="line-height: 150%">
<A class=C href="search.asp?sortid=<%=rssort("sortid")%>"><%=rssort("sort")%></a>
<font color="#ff6600"><%response.write"("&count(rssort("sortid"))&")" %></font>
<%if count1(rssort("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>
</td>
<%rssort.movenext%>
<td width="25%" height="25" align="left" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"><p style="line-height: 150%">
<A class=C href="search.asp?sortid=<%=rssort("sortid")%>"><%=rssort("sort")%></a>
<font color="#ff6600"><%response.write"("&count(rssort("sortid"))&")" %></font>
<%if count1(rssort("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>
</td>
<%rssort.movenext%>
</tr>
<%
loop
rssort.close
rstype.close
set rssort=nothing
set rstype=nothing
%>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="470" border=0 style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD class="smalltoppad red smallbottompad" align=left height=2 bgcolor=#cccccc width="450"></TD>
</TR>
</TABLE>
</TD>
<TD align=center vAlign=top width=280 height="358">
<TABLE class=downborder cellSpacing=0 cellPadding=0 width="280" border=0 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD class=buttonbar height=30 width="286" class=M>
<b><font color="#006699">
<span lang="zh-cn">分类信息</span></font></b></TD>
</TR>
</TBODY>
</TABLE>
<TABLE class=blackborder cellSpacing=0 cellPadding=0 width="280" border=0 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD class=M align=right width=280>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=275 style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD class=LL>
<a href="sjsearch.asp?type=供应&keyword=0&datetime=7788&txtitle=<%=title%>">
<img border="0" src="images/g1.gif"></a></TD></TR>
<%do while not grs.eof%>
<TR>
<TD class=LL width=253> <img border="0" src="../images/Tp.gif">
<a href="business_info.asp?info_id=<%=grs("info_id")%>">
<font color="#006699"> <% if len(grs("showname"))>15 then%><%=left(grs("showname"),14)%>..<% else%><%=grs("showname")%></font></a><%end if%>
<font color="#808080"> (<%=month(grs("dateandtime"))%>/<%=day(grs("dateandtime"))%>)</font></TD>
</TR>
<% gnum=gnum+1
if gnum>=MaxNumber then exit do
grs.movenext
loop
grs.close
set grs=nothing
%>
<TR align=right>
<TD class=LL><FONT
color=#ff6600>
<a href="sjsearch.asp?type=供应&keyword=0&datetime=7788&txtitle=<%=title%>">
<font color="#FF6600">>>><B>更多</B></font></a></FONT><font color="#FF6600"> </font></TD></TR></TABLE>
<HR color=#dfdfdf SIZE=1 width=270>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=275 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD class=LL>
<a href="sjsearch.asp?type=采购&keyword=0&datetime=7788&txtitle=<%=title%>">
<img border="0" src="images/g2.gif"></a></TD></TR>
<%do while not mrs.eof%>
<TR>
<TD class=LL width=253> <img border="0" src="../images/Tp.gif">
<a href="business_info.asp?info_id=<%=mrs("info_id")%>">
<font color="#006699"> <% if len(mrs("showname"))>15 then%><%=left(mrs("showname"),14)%>..<% else%><%=mrs("showname")%></font></a><%end if%>
<font color="#808080"> (<%=month(mrs("dateandtime"))%>/<%=day(mrs("dateandtime"))%>)</font></TD>
</TR>
<% num=num+1
if num>=MaxNumber then exit do
mrs.movenext
loop
mrs.close
set mrs=nothing
%>
<TR align=right>
<TD class=LL><FONT color=#ff6600>
<a href="sjsearch.asp?type=采购&keyword=0&datetime=7788&txtitle=<%=title%>">
<font color="#FF6600">>>><B>更多</B></font></a></FONT><font color="#FF6600"> </font></TD></TR></TBODY></TABLE>
<HR color=#dfdfdf SIZE=1 width=270>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=275 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD class=LL>
<a href="sjsearch.asp?type=代理&keyword=0&datetime=7788&txtitle=<%=title%>">
<img border="0" src="images/g4.gif"></a></TD></TR>
<%do while not drs.eof%>
<TR>
<TD class=LL width=275> <img border="0" src="../images/Tp.gif">
<a href="business_info.asp?info_id=<%=drs("info_id")%>">
<font color="#006699"> <% if len(drs("showname"))>15 then%><%=left(drs("showname"),14)%>..<% else%><%=drs("showname")%><%end if%></font></a><font color="#006699">
</font>
<font color="#808080"> (<%=month(drs("dateandtime"))
%>/<%=day(drs("dateandtime"))%>)</font></TD>
<% dum=dum+1
if dum>=MaxNumber then exit do
drs.movenext
loop
drs.close
set drs=nothing
%>
</TR>
<TR align=right>
<TD class=LL>
<font color="#FF6600">
<a href="sjsearch.asp?type=代理&keyword=0&datetime=7788&txtitle=<%=title%>">>>><B>更多</B></a> </font></TD></TR></TBODY></TABLE>
<HR color=#dfdfdf SIZE=1 width=270>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=275 style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD class=LL>
<a href="sjsearch.asp?type=合作&keyword=0&datetime=7788&txtitle=<%=title%>">
<img border="0" src="images/g3.gif"></a></TD></TR>
<%do while not hrs.eof%>
<TR>
<TD class=LL width=253> <img border="0" src="../images/Tp.gif">
<a href="business_info.asp?info_id=<%=hrs("info_id")%>">
<font color="#006699"> <% if len(hrs("showname"))>15 then%><%=left(hrs("showname"),14)%>..<% else%><%=hrs("showname")%></font></a><%end if%>
<font color="#808080"> (<%=month(hrs("dateandtime"))%>/<%=day(hrs("dateandtime"))%>)</font></TD>
</TR>
<% hnum=hnum+1
if hnum>=MaxNumber then exit do
hrs.movenext
loop
hrs.close
set hrs=nothing
%>
<TR align=right>
<TD class=LL>
<font color="#FF6600">
<a href="sjsearch.asp?type=合作&keyword=0&datetime=7788&txtitle=<%=title%>">>>><B>更多</B></a></font> </TD></TR></TABLE>
<TABLE cellSpacing=0 cellPadding=3 width="262" border=0 style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD
style="border:1px solid #cecece; font-size:12px; color:#000; font-family:宋体"
align=middle bgColor=#ebe9e9 width="260">
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD class=M width="100%">
<IMG src="../Qyml/images/company_jiantou.gif" align=absMiddle> 成功经验分享</TD>
</TR>
<tr>
<TD class=M width="100%">
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<%do while not cgrs.eof%>
<tr>
<td width="50%">·<span style=\"font-size:9pt;line-height: 15pt\"><a href="../wlyx/show_cgal.asp?newsid=<%=cgrs("newsid")%>"><% if len(cgrs("newstitle"))>14 then%><%=left(cgrs("newstitle"),13)%>..<% else%><%=cgrs("newstitle")%><%end if%></a></span>
</td>
</tr>
<% z=z+2
if z>=Max1 then exit do
cgrs.movenext
loop
cgrs.close
set cgrs=nothing
%>
</table>
</TD>
</tr>
</TBODY>
</TABLE>
</TD></TR>
</TABLE>
</TD>
</tr>
</TBODY>
</TABLE>
</TD>
</TR></TBODY></TABLE>
<br>
</CENTER>
<!--#include file="../inc/end.asp"-->
</HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?