📄 newinfo.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %><!--#include file="head.asp"--><!--#include file="../inc/check_input.asp"--><!--#include file="sortcount.asp"--><script language="javascript">function show_store(mylink){window.open(mylink,'store','top=150,left=200,width=300,height=140,scrollbars=yes')}</script><script language="javascript">function show_sader(mylink){window.open(mylink,'','top=50,left=120,width=520,height=450,scrollbars=yes')}</script><script language="javascript">function show(mylink){window.open(mylink,'','top=50,left=100,width=575,height=240,scrollbars=yes')}</script><%const MaxPerPage=6const Max=12dim totalPut dim CurrentPagedim TotalPagesdim i,ydim keywordkeyword=request("txtitle")if not isempty(request("page")) thencurrentPage=cint(request("page"))elsecurrentPage=1end ifdim sqldim rsdim rstypedim typesqldim typeid,typenamedim rssortdim sortsqldim sort,sortnamedim rstjdim gssqldim rsjhdim jhsqldim gsid,gsnameif not isEmpty(request("idate")) thenidate=request("idate")elseidate=date()end ifif flag_spzs=1 then  '判断是否需要审核才显示set rsjh= Server.CreateObject("ADODB.Recordset") jhsql="select info_id,showname from info where showname<>'""' order by Info_id desc" rsjh.open jhsql,conn,1,1set rstj= Server.CreateObject("ADODB.Recordset") gssql="select id,qymc,web from qyml where tjbz like '%02%' order by id desc" rstj.open gssql,conn,1,1sql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and idate like '%"&idate&"%' and cpmc<>'""' order by id desc"set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 elseset rsjh= Server.CreateObject("ADODB.Recordset") jhsql="select info_id,showname from info where showname<>'""' order by Info_id desc" rsjh.open jhsql,conn,1,1set rstj= Server.CreateObject("ADODB.Recordset") gssql="select id,qymc,web from qyml where tjbz like '%02%' order by id desc" rstj.open gssql,conn,1,1sql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and idate like '%"&idate&"%' and cpmc<>'""' order by id desc"set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 end ifnewnum=rs.recordcountif rs.eof and rs.bof then response.write"<SCRIPT language=JavaScript>alert('对不起，今日暂无最新产品！');"response.write"javascript:history.go(-1)</SCRIPT>"else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"newinfo.asp"content else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContent showpage totalput,MaxPerPage,"newinfo.asp"content else currentPage=1 showContent showpage totalput,MaxPerPage,"newinfo.asp"contentend if end if end if rssort.close set rssort=nothingconn.closeset conn=nothing sub showContent %> <head><STYLE type=text/css>TD {COLOR: #000; FONT-FAMILY: 宋体; FONT-SIZE: 12px}.GR {COLOR: #666}</STYLE><HTML><META content=zh-cn http-equiv=Content-Language><LINK href="images/main.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><TABLE border=0 cellPadding=0 cellSpacing=0 width=750 style="border-collapse: collapse" bordercolor="#111111" height="7"><TBODY><tr><TD height=6>&nbsp;您的位置：<a href="../default.asp">首页</a>&gt;&gt;<a href="default.asp">产品展示</a>&gt;&gt;<font color="#FF0000">今日产品</font></TD></tr></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width=750 style="border-collapse: collapse" bordercolor="#111111" height="225"><TBODY><TR><TD vAlign=top height="225"><table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" cellspacing="0"><tr><td width="100%" height="9"><div align="center"><center><table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bordercolorlight="#EDF2F8" bordercolordark="#EDF2F8"><tr><FORM action="search.asp" method=POST name=searchtitle><TD bgColor=#edf2f8 height=28><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width="536"><TBODY><TR><TD height=32 width="387"><DIV align=right><B>关键词：</B><INPUT maxLength=100 class=f11 name=txtitle size=25><left>&nbsp;<select name="sortid"><%dim rs2,sql2set rs2=server.createobject("adodb.recordset")sql2="select * from Class_1"rs2.open sql2,conn,1,1if rs2.eof and rs2.bof then response.write "<option value='没有类别'>没有类别</option>"elseresponse.write "<option value='0'>所有类别</option>"&vbcrlf do while not rs2.eofresponse.write "<option value='"&rs2("SortID")&"'" if request("SortID")<>"" then if rs2("SortID")=cint(request("SortID")) then response.write " selected " end if response.write ">"&rs2("Sort")&"</option>"&vbcrlf rs2.movenext loop end if rs2.close %></select><left> <left><left>&nbsp; </DIV></TD><TD height=32 width="149"><left><INPUT align=bottom border=0 name=I8 src="images/CreditDynamic_index_search.gif" type=image ></TD></TR></TBODY></TABLE></DIV></TD></FORM></tr></table></center></div></td></tr><tr><td width="100%" height="14" bgcolor="#CEE7FF"><font color="#336699">【<b>历史资料:</b>】&nbsp;<img border="0" src="../job/image/0039.gif">【</font><a style="text-decoration: none" href="newinfo.asp?idate=<%=date()%>"><font color="#336699"><%=date() %></font></a><font color="#336699">】&nbsp;&nbsp;<img border="0" src="../job/image/0039.gif">【</font><a style="text-decoration: none" href="newinfo.asp?idate=<%=date()-1%>"><font color="#336699"><%=date()-1 %></font></a><font color="#336699">】&nbsp;&nbsp;<img border="0" src="../job/image/0039.gif">【</font><a style="text-decoration: none" href="newinfo.asp?idate=<%=date()-2%>"><font color="#336699"><%=date()-2 %></font></a><font color="#336699">】&nbsp;&nbsp;<img border="0" src="../job/image/0039.gif">【</font><a style="text-decoration: none" href="newinfo.asp?idate=<%=date()-3%>"><font color="#336699"><%=date()-3 %></font></a><font color="#336699">】</font></td></tr><tr><TD height=1 background="images/bg_b.gif" bgcolor="#FFFFFF" width="565"></TD></tr><tr><td width="100%" height="14" bgcolor="#F2F2F2"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber10"><tr><td width="68%"><B><FONT color=#336699>【注&nbsp;&nbsp;释：】</FONT></B><img border="0" src="images/icon12.gif"> 普通会员 <img border="0" src="images/brand.gif" width="16" height="16"> 收费会员</td><td width="32%"><p align="center"><font color="#800000">今日产品信息：</font><font color="#FF0000"><%=newnum%></font><font color="#800000">条</font></td></tr></table></td></tr><tr><TD height=1 background="images/bg_b.gif" bgcolor="#FFFFFF" width="565"></TD></tr><tr><TD height=8 width="565"></TD></tr></table><div align="center"><center><TABLE border=0 cellSpacing=1 width="100%" style="border-collapse: collapse" bordercolor="#111111"><TBODY><%set hyrs= Server.CreateObject("ADODB.Recordset") hysql="select * from qyml where id="&rs("gsid")&"" hyrs.open hysql,conn,1,1%><%do while not rs.eof%> <TR><TD rowSpan=2 width=95 bgcolor="#FBFDFF"><p align="center"><a href="Show_product.asp?id=<%=rs("id")%>"><IMG border=0 src="../picture/<%=rs("picture")%>" width="88" height="86" alt="<%=rs("cpmc")%>" style="border: 1px solid #000000"></a></TD><TD height=20 width=239 bgcolor="#EEF4FF"><B><a href="Show_product.asp?id=<%=rs("id")%>"><%=rs("cpmc")%></a></B> <%if rs("flag")=0 then %><img border="0" src="images/brand.gif"><%else%><img border="0" src="images/icon12.gif" width="16" height="16"><%end if%> </TD><TD width=127 bgcolor="#EEF4FF"><DIV align=right>发布时间：<font color="#FF0000"><%=rs("idate")%></font></DIV></TD><TD width=63 bgcolor="#EEF4FF"><p align="center"><a href="javascript:show(&quot;../shop/Check.asp?cpbh=<%=rs("cpbh")%>&quot;)"><img border="0" src="images/che1.gif" alt="加入购物车"></a> </TD></TR><TR><TD colSpan=3 width="435" bgcolor="#FBFDFF"><table border="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" cellspacing="1" cellpadding="2"><tr><td width="15%"><font color="#000080">生产产地：</font></td><td width="85%"><%=rs("cpcd")%></td></tr><tr><td width="15%"><font color="#000080">产品价格：</font></td><td width="85%"><font color="#FF6600"><%if rs("cpjg")="0" then response.write"价优" else response.write""&rs("cpjg")&"元" end if%></font></td></tr><tr><td width="15%"><font color="#000080">产品简述：</font></td><td width="85%"> <%=mid(rs("jysm"),1,45)%>..[<a href="show_product.asp?id=<%=rs("id")%>"><FONT color=#cc6600>详细资料</FONT></a>]</td></tr></table></TD></TR><TR bgColor=#cccccc><TD colSpan=4 height=1 background="images/bg_b.gif" bgcolor="#FFFFFF" width="533"></TD></TR><TR><TD colSpan=4 height=8 width="533"></TD></TR><% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop rs.close set rs=nothing end sub%> </table><%function showpage(totalnumber,maxperpage,filename)dim nif totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if if CurrentPage<2 then response.write "<table border=0 width=97% cellspacing=0 cellpadding=0>" response.write "<tr height=30>"response.write "<td align=left>"response.write "共<font color=ff6600><b>"&n&"</b></font>页&nbsp;第<font color=ff6600><b>"&CurrentPage&"</b></font>页&nbsp;共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息</TD>"response.write "<td align=right>"response.write "【最前页】【上一页】" else response.write "<table border=0 width=97% cellspacing=0 cellpadding=0>"response.write "<tr height=30>"response.write "<td align=left>"response.write "共<font color=ff6600><b>"&n&"</b></font>页&nbsp;第<font color=ff6600><b>"&CurrentPage&"</b></font>页&nbsp;共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息" response.write "<td align=right>"response.write "【<a href="&filename&"?page=1&typeid="&tyeid&"&txtitle="&request("txtitle")&">最前页</a>】" response.write "【<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&"&txtitle="&request("txtitle")&">上一页</a>】" end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&"&txtitle="&request("txtitle")&">" response.write "下一页</a>】【<a href="&filename&"?page="&n&"&typeid="&typeid&"&txtitle="&request("txtitle")&">最后页</a>】" end if response.write "</td>"response.write "</tr>"response.write "</form>"end function%><%sub content%></TBODY></TABLE></center></div><!--点击次数加1--></TD><TD height="225">　</TD><TD background="images/Products_index_right_bg01.gif" vAlign=top width=190 height="225"><DIV align=right><TABLE border=0 cellPadding=0 cellSpacing=0 width=180 height="204"><TBODY><TR><TD height="78"><div align="center"><center><table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7" height="88" cellpadding="0"><tr><td width="100%" valign="top"><a href="add.asp"><IMG border=0 src="images/Products_index_right01.gif"></a></td></tr></table></center></div></TD></TR><TR><TD height="1"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6"><tr><td width="180" valign="top" align="right"> <TABLE border=0 cellPadding=0 cellSpacing=0 width=174 style="border-collapse: collapse"> <TBODY> <TR> <TD height=25><img border="0" src="images/sj.gif"></TD></TR> <TR> <TD> 	<TABLE border=0 cellPadding=4 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111"> 	<TBODY>	<% dim num 	do while not rsjh.eof %>	<tr>	<TD background="images/Products_index1_right_bg01.gif"><font color="#FF8019">&nbsp;&nbsp;&nbsp; </font>	<% if len(rsjh("showname"))>12 then%>	<a target="_blank" href="<%=rstj("web")%>"><%=left(rsjh("showname"),11)%>..</a>	<%else%>	<a href="javascript:show_sader(&quot;../syjh/business_info.asp?info_id=<%=rsjh("info_id")%>&quot;)">	<%=rsjh("showname")%></a>	<%end if%>	</TD>	</TR>	<% rsjh.movenext 	num=num+1 	if num>12 then Exit Do 	loop 	rsjh.close 	set rsjh=nothing 	%> 	<tr>	<TD align=right background=images/more_bg.gif height=22>	<a target="_blank" href="../Syjh/search.asp?sortid=<%=sortid%>">更多</a>..&nbsp;&nbsp;</TD>	</tr>	</TBODY>	</TABLE></TD></TR></TBODY></TABLE></td> <td width="100%">　</td></tr></table></TD></TR><TR><TD height=34><img border="0" src="images/tj1.gif"></TD></TR><TR><TD background="images/Products_index1_right_bg01.gif" height="22"><div align="right">	<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="86%" id="AutoNumber8" height="22">	<TR>	<% 	dim b 	do while not rstj.eof%> 	<tr>	<td width="100%" height="21"><%if rstj("web")="" or rstj("web")="http://" then%><a target="_blank" href="../company/index.asp?id=<%=rstj("id")%>"><% if len(rstj("qymc"))>12 then%><%=left(rstj("qymc"),11)%>..<% else%><%=rstj("qymc")%><%end if%></a><%else%>	<a target="_blank" href="<%=rstj("web")%>"><% if len(rstj("qymc"))>12 then%><%=left(rstj("qymc"),11)%>..<% else%><%=rstj("qymc")%></a><%end if%><%end if%></td>	</tr>	<% b=b+1 	if b>12 then Exit Do 	rstj.movenext 	loop 	rstj.close 	set rstj=nothing 	%>	<tr>	<TD align=right background=images/more_bg.gif height=22>	<a target="_blank" href="../qyml/search.asp?sortid=<%=sortid%>">更多</a>..&nbsp;&nbsp;</TD>	</tr>	</table></div></TD></TR><tr><TD bgColor=#83a2ff height=1></TD></tr><TR></td></tr></table></TD></TR><TR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></center></center><%end sub%><!--#include file="../inc/end.asp"-->
⌨️ 快捷键说明

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