📄 newsmore.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：service@fyasp.com                                        │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%><!--#include file="head.asp"-->
<!--#include file="inc/check_input.asp"-->
<LINK 
href="job/image/main.css" rel=stylesheet type=text/css>
<style>
<!--
.navtext1 {
FILTER: dropshadow(color=#FCDDAB,offx=1,offy=1); FONT-SIZE: 12px
}
TABLE {
FONT-SIZE: 9pt
}
-->
</style>
<title><%=WebName%>.信息动态</title>
<body bgcolor="#FFFFFF" marginheight=0 marginwidth=0 leftmargin=0>
<SCRIPT>
function view1(url){ 
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460'); 
}
</SCRIPT>
<div align="center"><br>
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" id="AutoNumber1">
<tr>
<td width="100%">
<CENTER>
<DIV align=center>
<TABLE bgColor=#cccccc border=0 cellPadding=0 cellSpacing=0 width=760 style="border-collapse: collapse; font-size:9pt" bordercolor="#111111">
<FORM action=newsmore.asp method=POST name=search_form 
>
<TBODY>
<TR bgColor=#E8F1F9>
<TD align=middle bgColor=#E8F1F9 background="images/search_back3.gif">
<DIV align=center>
<TABLE border=0 cellSpacing=0 width="539" height="30" style="border-collapse: collapse; font-size:9pt" bordercolor="#111111" cellpadding="0">
<TBODY>
<TR>
<TD class=M height="32" width="131">
<DIV align=left><FONT color=#336666>查询信息动态 ：</FONT></DIV></TD>
<TD width="142" height="32"><input type="text" name="txtitle" size="25" style="font-size: 9pt"> </TD>
<TD width="89" height="32">
<DIV align=center><SELECT id=Select1 name=type> <OPTION selected 
value=0>标题检索</OPTION> <OPTION value=1>全文检索</OPTION></SELECT> 
</DIV></TD>
<TD width="103" height="32">
<select style="font-size: 9pt" name="bz">
<option value=1>本站信息动态</option>
<option value="8">人才市场动态</option>
</select> 
</TD>
<TD width="74" height="32">
<DIV align=center>
<INPUT align=bottom border=0 
name=I10 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 style="font-size: 9pt">
<TBODY>
<TR>
<TD height=8 width="573"></TD>
<TD height=241 width="8" valign="top" background="images/CreditDynamic_zxqy_03.gif" bgcolor="#3787CA" rowspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber8" bgcolor="#FFFFFF" height="15">
<tr>
<td width="100%" height="15">　</td>
</tr>
</table>
</TD>
<TD height=8 width="169" rowspan="2" valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber9">
<tr>
<td width="100%">　</td>
</tr>
<tr>
<td width="100%">
<p align="center"><a href="banner.asp">
<img border="0" src="hyxx/images/fw10.gif"></a></td>
</tr>
<tr>
<td width="100%">
<p align="center">
<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="I5"></iframe>
</td>
</tr>
<tr>
<td width="100%">　</td>
</tr>
<tr>
<td width="100%">　</td>
</tr>
</table>
</center>
</div>
</TD>
</TR>
<TR>
<TD vAlign=top width="573">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=581 style="font-size: 9pt">
<TBODY>
<TR>
<TD width="581">
<b>
<FONT color=#4e68a4>&nbsp;当前位置:<a href="default.asp"><FONT 
color=#4e68a4>首页</FONT></a>&gt;&gt;信息动态</FONT></b></TD></TR>
<TR>
<TD width="581">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-size:9pt" bordercolor="#111111" width="100" id="AutoNumber3">
<tr>
<TD width=520 style="font-size: 12px; font-family: 宋体; color: #000; line-height:150%">
<IFRAME frameBorder=0 height=92 marginHeight=1 
marginWidth=1 scrolling=no 
src="ads/bl.asp" 
width=538 
BORDERCOLOR="#000000" name="I4"></IFRAME></TD>
<TD align=left style="font-size: 12px; font-family: 宋体; color: #000; line-height:150%">
<a target="_blank" href="../banner.asp">
<IMG 
border=0 src="images/520bannernotes.gif"></a></TD>
</tr>
</table>
</TD></TR>
<TR>
<TD width="581">　</TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=560 style="font-size: 9pt">
<TBODY>
<TR>
<TD height=22>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=550 style="font-size: 9pt">
<%
const MaxPerPage=12
dim totalPut 
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rs
dim sql
dim bz
bz=request("bz")
bz=CheckInput(bz,"i","1")
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if 
set rs=server.createobject("adodb.recordset") 
Select Case bz
case "1"
sql="select * from News where bz="+cstr(bz)+" order by NewsID desc"
case "8"
sql="select * from News where bz="+cstr(bz)+" order by NewsID desc"
end select
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write"<SCRIPT language=JavaScript>alert('对不起，没有您要查询的信息！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else 
%>
<TBODY>
<TR>
<TD 
background=newsmore.asp 
height=20 width=25></TD>
<TD class=M vAlign=bottom>
<font face="Arial" color="#3E5282" style="font-size: 10pt">
<%if rs("bz")=1 then%>本网动态<%elseif rs("bz")=8 then%>人才市场动态<%end if%></font></TD>
<TD width=80></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=20>
<DIV align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=560 style="font-size: 9pt">
<TBODY>
<TR>
<TD height=8 width=560>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<tr>
<td width="100%">
<% 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 totalput,MaxPerPage
showpage totalput,MaxPerPage,"newsmore.asp"
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent totalput,MaxPerPage
showpage totalput,MaxPerPage,"newsmore.asp"
else 
currentPage=1 
showContent totalput,MaxPerPage
showpage totalput,MaxPerPage,"newsmore.asp"
end if 
end if 
rs.close 
end if 
set rs=nothing
sub showContent (totalput,MaxPerPage)%>
<CENTER>
<CENTER>
<TABLE border="0" cellspacing="1" width="549" cellpadding="4" bgcolor="#E8F1F9" style="border-collapse: collapse">
<%do while not rs.eof%>
<TR height="20" bgcolor="#ffffff"> 
<TD width="458">·
<a href="javascript:view1('show_news.asp?Newsid=<%=rs("Newsid")%>')"><%=rs("Newstitle")%></a>　</td>
<TD width="72" align="center"><%=rs("date")%>　</TD>
</TR>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<%
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 
if CurrentPage<2 then 
response.write "<table border=0 width=98% cellspacing=0 cellpadding=0>" 
response.write "<tr height=40>"
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=98% cellspacing=0 cellpadding=0>"
response.write "<tr height=40>"
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 "【<a href="&filename&"?page=1&bz="&bz&"&txtitle="&request("txtitle")&">最前页</a>】" 
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&bz="&bz&"&txtitle="&request("txtitle")&">上一页</a>】&nbsp;" 
end if 
if n-currentpage<1 then 
response.write "【下一页】【最后页】" 
else 
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&bz="&bz&"&txtitle="&request("txtitle")&">" 
response.write "下一页</a>】【<a href="&filename&"?page="&n&"&bz="&bz&"&txtitle="&request("txtitle")&">最后页</a>】" 
end if 
response.write "</td>"
response.write "</tr>"
response.write "</table>"
%>
<% 
end function%>
</TABLE>
</CENTER>
</td>
</tr>
</table>
</TD>
</TR>
</table>
</td>
</tr>
</table>
</table>
</TD>
</tr>
</table>
</TBODY></TABLE></DIV></TD></TR>
<TR>
<TD 
background=images/CreditDynamic_zxqy_02.gif 
height=1></TD></TR>
<TR>
<TD 
background=images/CreditDynamic_zxqy_02.gif 
height=1></TD></TR>
<TR>
<TD>　</TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
</CENTER>
</td>
</tr>
</table>
</center>
</div>
<!--#include file="inc/end.asp"-->
⌨️ 快捷键说明

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