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

📄 more.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
🔍 
<%@ codepage ="936" %>
<!--#include file="head.asp"-->
<!--#include file="../inc/check_input.asp"--><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：service@fyasp.com                                        │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<BODY>
<%
const MaxPerPage=15 '每页显示信息数目 
dim totalPut 
dim CurrentPage
dim TotalPages
dim i,j
dim keyword
keyword=request("title")
txtitle=request("txtitle")
typeid=request("typeid")
newstype=request("newstype")
typeid=CheckInput(typeid,"i","0")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rs
%>
<head>
<title><%=newstype%>·行业信息·<%=WebName%></title>
<LINK href="../css/Style.css" rel=stylesheet type=text/css>
</head>
<BODY text=#000000 leftMargin=0 topMargin=0 
marginheight="0" marginwidth="0">
<STYLE type=text/css>TD {
FONT-SIZE: 12px; LINE-HEIGHT: 150%
}
</STYLE>
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber1">
<tr>
<TD vAlign=top bgcolor="#FAFDF9" width="575">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="575" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD height=30 width="575" colspan="2">
<b>
<FONT color=#4e68a4>&nbsp;当前位置:<a href="../default.asp"><FONT 
color=#4e68a4>首页</FONT></a>&gt;&gt;<a href="default.asp"><font color="#4E68A4">行业信息</font></a>&gt;&gt;</FONT><%if typeid="0" then%><FONT class=f3><font color="#000080">所有信息</font><%else%><font color="#FF6600"><%=newstype%></font><%end if%></FONT>
</b></TD></TR>
<TR>
<TD height=37 width="575" colspan="2">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100" id="AutoNumber3">
<tr>
<TD width=520 style="font-size: 12px; font-family: 宋体; color: #000">
<IFRAME frameBorder=0 height=92 marginHeight=1 
marginWidth=1 scrolling=no 
src="../ads/bl.asp" 
width=538 
BORDERCOLOR="#000000" name="I2"></IFRAME></TD>
<TD align=left style="font-size: 12px; font-family: 宋体; color: #000">
<a target="_blank" href="../banner.asp">
<IMG 
border=0 src="../images/520bannernotes.gif"></a></TD>
</tr>
</table>
</center>
</div>
</TD></TR>
<TR>
<TD width="575" colspan="2">　</TD></TR>
<TR>
<TD 
background="images/bg3.gif" 
height=30 width="542">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<TD height=10 width=30></TD>
<TD height=2></TD>
</tr>
<tr>
<TD width=42>　</TD>
<TD><b><font color="#000080"><span style="font-size: 10.5pt"><%if typeid="0" then%></span></font><FONT class=f3><font color="#000080"><span style="font-size: 10.5pt">所有信息<%else%><%=newstype%><%end if%></span></font></FONT></b></TD>
</tr>
</table>
</TD>
<TD 
height=30 width="33">
　</TD></TR>
<TR>
<TD height=13 width="575" colspan="2">
<div align="center">
<center>
<%
if keyword="title" then
	if typeid="0" then
	set rs=server.createobject("adodb.recordset") 
	sql ="select * from hyxx where title like '%"&txtitle&"%' order by NewsID Desc" 
	rs.open sql,conn,1,1
	else
	set rs=server.createobject("adodb.recordset") 
	sql ="select * from hyxx where title like '%"&txtitle&"%' and typeid="&cstr(typeid)&" order by NewsID Desc" 
	rs.open sql,conn,1,1
	end if
else
	if typeid="0" then
	set rs=server.createobject("adodb.recordset") 
	sql ="select * from hyxx where content like '%"&txtitle&"%' order by NewsID Desc" 
	rs.open sql,conn,1,1
	else
	set rs=server.createobject("adodb.recordset") 
	sql ="select * from hyxx where content like '%"&txtitle&"%' and typeid="&cstr(typeid)&" order by NewsID Desc" 
	rs.open sql,conn,1,1
	end if
end if
newstype=rs("typename")
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
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent
else 
currentPage=1 
showContent
end if 
end if 
rs.close 
end if 
set rs=nothing
sub showContent
%>
<TABLE border=0 cellPadding=2 cellSpacing=1 width="564" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=10 width="560">
</TD></TR>
	<%do while not rs.eof%>
	<TR>
	<TD height=20 width="445">
	<span style="font-size: 10.5pt">
	&nbsp;<img src=images/dotitem.gif widht=10 height=12 border=0>&nbsp;</span><a href="shownews.asp?newsid=<%=rs("newsid")%>&typename=<%=rs("typename")%>"><%=rs("title")%></a></TD>
	<TD align=right width="110">
	<p align="left">[<%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%>]</TD></TR>
	<% i=i+1 
	if i>=MaxPerPage then exit do 
	rs.movenext 
	loop 
	%>
	<TR>
<TD height=8 width="556" colspan="2">
<p align="center">
<IMG 
src="images/CreditDynamic_zxqy_02.gif"></TD>
<TR><TD align=left height=1 width="445">
<%showpage totalput,MaxPerPage,"more.asp"%></TD>
<%
end sub
function showpage(totalnumber,maxperpage,filename) 
dim n 
if totalnumber mod maxperpage=0 then 
n= totalnumber \ maxperpage 
else 
n= totalnumber \ maxperpage+1 
end if 
response.write "<form method=Post action="&filename&"?newtypeid="&newtypeid&">" 
if CurrentPage<2 then 
response.write "<table border=0 cellspacing=0 cellpadding=0>" 
response.write "<tr>"
response.write "<td align=left>"
response.write "【最前页】【上一页】" 
else 
response.write "<table border=0 cellspacing=0 cellpadding=0>"
response.write "<tr height=30>"
response.write "<td align=left>"
response.write "【<a href="&filename&"?page=1&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">最前页</a>】" 
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">上一页</a>】" 
end if 
if n-currentpage<1 then 
response.write "【下一页】【最后页】" 
else 
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">" 
response.write "下一页</a>】【<a href="&filename&"?page="&n&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">最后页</a>】" 
end if 
response.write "</form>" 
response.write "</td>"
response.write "</tr>"
response.write "</table>"
end function
%>
</TR>
</TBODY></TABLE></center>
</div>
</TD></TR>
</TBODY></TABLE></TD>
<TD bgcolor="#FAFDF9" width="30">　</TD>
<TD 
background="images/CreditDynamic_zxqy_03.gif" 
vAlign=top height="332" width="170">
<DIV align=right>
<FORM action="more.asp" method=POST>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=160>
<TBODY>
<TR>
<TD><IMG 
src="images/CreditDynamic_zxqy_04.gif"></TD></TR>
<TR>
<TD 
background="images/CreditDynamic_zxqy_05.gif" 
height=60>
<DIV align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="153">
<TBODY>
<TR>
<TD height=26 width="153" colspan="2">
<DIV align=center>
<INPUT name=txtitle size=18></DIV>
<INPUT name=title type="hidden" value="title" size=18></DIV>
</TD></TR>
<TR>
<TD height=26 width="75">
<DIV align=right> 
<select name="typeid" size="1" class=f11 style="width: 54; height: 54">
<option selected value="0">全部</option>
<%dim rs2,sql2,sel
set rs2=server.createobject("adodb.recordset")
sql2="select * from hyxxtype"
rs2.open sql2,conn,1,1
do while not rs2.eof
response.write "<option value='"+CStr(rs2("typeID"))+"' name=typeid>"+rs2("type")+"</option>"+chr(13)+chr(10)
rs2.movenext
loop
rs2.close
%> 
</select>&nbsp; 
</DIV></TD>
<TD height=26 width="78">
&nbsp;<INPUT align=bottom border=0 
name=I9 src="images/CreditDynamic_index_search.gif" type=image ></TD></TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD><img border="0" src="images/fw9.gif"></TD></TR>
<TR>
<TD>　</TD></TR>
<TR>
<TD>
<a href="../banner.asp"><img border="0" src="images/fw10.gif"></a></TD></TR>
<tr>
<TD>
<iframe src="../ads/sxgg.asp" width=160 height=421 border=0 frameborder=0 framespacing=0 marginheight=1 marginwidth=1 noResize scrolling=no vspace="0" name="I1"></iframe>
</TD>
</tr>
</TBODY></TABLE></FORM></DIV></TD>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber4">
<tr>
<td width="100%" background="images/bt3.gif">　</td>
</tr>
</table>
<!--#include file="../inc/end.asp"-->
</center>
<html></html>
<html></html>
<html></html>
<html></html>

⌨️ 快捷键说明

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