📄 default.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ codepage ="936" %>
<!--#include file="head.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：service@fyasp.com                                        │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<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=6
const TjMax=8
const 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=760>
<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,sel
set rs2=server.createobject("adodb.recordset")
sql2="select * from commercetype"
rs2.open sql2,conn,1,1 
do while not rs2.eof
if typeID=cstr(rs2("typeID")) then
sel="selected"
else
sel=""
response.write "<option " & sel & " value='" + Cstr(rs2("typeID")) + "'>" + rs2("type") + "</option>"
rs2.movenext
end if 
loop
rs2.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=760>
<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">
&nbsp; <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=\&quot;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>&nbsp; </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">
&nbsp; <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=\&quot;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>&nbsp; </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>&gt;&gt;更多&nbsp;</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">&gt;&gt;更多</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">&gt;&gt;更多</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=\&quot;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>&nbsp; </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"
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -