⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 new_info.asp

📁 中国库存信息网 完整版 [已通过安全检测]Symantec AntiVirus 企业版 10.0.0.0.359 ║ ║ [病毒定义文件版本] 2006-5-5 rev.24 ║  ║ [已通
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#include file="../sortcount.asp"-->
<!--#include file="../newcount.asp"-->
<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_business(link)
{
window.open(link,'','top=50,left=150,width=520,height=450,scrollbars=yes')
}
</script>
<%
const MaxPerPage=7
dim totalPut 
dim CurrentPage
dim TotalPages
dim i,j
dim keyword
keyword=request("type")
title=request("txtitle")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rs
dim rssort
dim sortsql
dim sort,sortname
dim datetime
if not isEmpty(request("datetime")) then
datetime=request("datetime")
else
datetime=date()
end if 
%>
<%
sql="select * from info where type like '%"&request("type")&"%' and dateandtime like '%"&datetime&"%' and showname<>'""'order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
newnum=rs.recordcount
if 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,"new_info.asp"
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent
showpage totalput,MaxPerPage,"new_info.asp"
else 
currentPage=1 
showContent
showpage totalput,MaxPerPage,"new_info.asp"
end if 
end if 
rs.close 
end if
set rs=nothing
sub showContent
%> 
<HTML><HEAD><TITLE>中国库存商贸网---库存商机</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="../css.css" rel=stylesheet type=text/css>


<META content="MSHTML 5.00.3502.5390" name=GENERATOR></HEAD>
<BODY background=../photo/bg_body.gif leftMargin=0 topMargin=0>
<!--#include file=../inc2/top.htm-->
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 
style="BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid" 
width=778>
  <TBODY>
  <TR>
      <TD align=middle valign="top"> 
        <TABLE border=0 cellPadding=0 cellSpacing=0 width=778>
        <TBODY>
        <TR>
          <TD bgColor=#ffffff vAlign=top width=197>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR>
                <TD><IMG height=35 src="../photo/left_01.gif" 
                width=197></TD></TR>
              <TR>
                      <TD valign="top"> 
                        <TABLE border=0 cellPadding=4 cellSpacing=0 width="100%">
                          <TBODY>
                            <TR> 
                              <TD height=30 vAlign=bottom><table width="98%" border="0" cellspacing="0" cellpadding="0">
                                  <tr> 
                                    <td height="30"> 
                                      <div align="center"><a style="text-decoration: none" target="_top" href="publish_info.asp"><font color="#000000">发布信息</font></a></div></td>
                                    <td height="30"> 
                                      <div align="center"><a href="new_info.asp" target="_top">今日最新</a></div></td>
                                  </tr>
                                  <tr> 
                                    <td height="30"> 
                                      <div align="center"><a href="sjsearch.asp?type=%B2%C9%B9%BA&keyword=0&datetime=7788&txtitle=<%=title%>" target="_top">采购专区</a></div></td>
                                    <td height="30"> 
                                      <div align="center"><a href="sjsearch.asp?type=%B9%A9%D3%A6&keyword=0&datetime=7788&txtitle=<%=title%>" target="_top">供应专区</a></div></td>
                                  </tr>
                                  <tr> 
                                    <td height="30"> 
                                      <div align="center"><a href="edit.asp" target="_top">供求管理</a></div></td>
                                    <td height="30"> 
                                      <div align="center"><a href="../help/syjh_help.asp" target="_top">商贸指南</a></div></td>
                                  </tr>
                                </table></TD>
                            </TR>
                            
                        </TABLE>
<SCRIPT>
function view1(url){ 
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460'); 
}
</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_business(link)
{
window.open(link,'','top=50,left=150,width=520,height=450,scrollbars=yes')
}
</script>
<%
const MaxNumber=10
const Max1=6
dim mrs
dim msql
dim grs
dim gsql
dim drs
dim sql
dim cgsql
dim cgrs
dim rssort
dim sortsql
Set rssort= Server.CreateObject("ADODB.Recordset") 
sortsql="select * from Class_1" 
rssort.open sortsql,conn,1,1
Set mrs= Server.CreateObject("ADODB.Recordset") 
msql="select * from info where type like '" & "采购" & "' and showname like '%"&showname&"%' order by info_id desc" 
mrs.open msql,conn,1,1
cgnum=mrs.recordcount
Set grs= Server.CreateObject("ADODB.Recordset") 
gsql="select * from info where type like '" & "供应" & "' and showname like '%"&showname&"%' order by info_id desc" 
grs.open gsql,conn,1,1
gynum=grs.recordcount
Set drs= Server.CreateObject("ADODB.Recordset") 
dsql="select * from info where type like '" & "代理" & "' and showname like '%"&showname&"%' order by info_id desc" 
drs.open dsql,conn,1,1
dlnum=drs.recordcount
Set hrs= Server.CreateObject("ADODB.Recordset") 
hsql="select * from info where type like '" & "合作" & "' and showname like '%"&showname&"%' order by info_id desc" 
hrs.open hsql,conn,1,1
hznum=hrs.recordcount
cgsql="select * from cgal order by NewsID desc"
Set cgrs= Server.CreateObject("ADODB.Recordset") 
cgrs.open cgsql,conn,1,1 
%>

                      </TD>
                    </TR>
              </TABLE>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR>
                <TD><IMG height=23 src="../photo/left_02.gif" 
                width=197></TD></TR>
              <TR>
                <TD>
                  <TABLE border=0 cellPadding=5 cellSpacing=0 width="100%">
                  
                    <TBODY>
                    <TR>
                          <TD height=35 vAlign=bottom><TABLE width="95%" height="95" border=0 align="center" cellPadding=2 cellspacing="1" bordercolor="#111111" style="border-collapse: collapse">
                                  <TBODY>
                                    <TR> 
                                      <TD align=middle colSpan=2 height="27"> 
                                        <FONT 
color=#FF6600><B>库存信息分类统计</B></FONT></TD>
                                    </TR>
                                    <TR> 
                                      <TD height="17"> <div align="center"><a style="text-decoration: none" target="_top" href="sjsearch.asp?type=供应&keyword=0&datetime=7788&txtitle=<%=title%>">供应</a> 
                                          <font color="#808080"> <%=gynum%></font></div></TD>
                                      <TD height="17"> <div align="center"><a style="text-decoration: none" target="_top" href="sjsearch.asp?type=采购&keyword=0&datetime=7788&txtitle=<%=title%>">采购</a> 
                                          <font color="#808080"> <%=cgnum%></font></div></TD>
                                    </TR>
                                    <TR> 
                                      <TD height="17"> <div align="center"><a style="text-decoration: none" target="_top" href="sjsearch.asp?type=合作&keyword=0&datetime=7788&txtitle=<%=title%>">合作</a> 
                                          <font color="#808080"> <%=hznum%></font></div></TD>
                                      <TD height="17"> <div align="center"><a style="text-decoration: none" target="_top" href="sjsearch.asp?type=代理&keyword=0&datetime=7788&txtitle=<%=title%>">代理</a> 
                                          <font color="#808080"> <%=dlnum%></font></div></TD>
                                    </TR>
                                    <TR align=middle> 
                                      <TD colSpan=2 height="14"> <IMG height=10 
src="../images/index_10.gif" 
width=160></TD>

⌨️ 快捷键说明

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