📄 复件 more.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<%
dim ntype
ntype = request("ntype")
%>
<html>
<head>
<title>:::宜兴市人民医院:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../image/main.css" type="text/css">
</head>
<body bgcolor="#CCCCCC" text="#000000" leftmargin="0" topmargin="0">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="770">
<!-- fwtable fwsrc="未命名-1.png" fwbase="head.jpg" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
<tr>
<td><img src="image/spacer.gif" width="770" height="1" border="0" alt=""></td>
<td><img src="image/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="770" height="148">
<param name=movie value="image/head.swf">
<param name=quality value=high>
<embed src="image/head.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="770" height="148">
</embed>
</object></td>
<td><img src="image/spacer.gif" width="1" height="99" border="0" alt=""></td>
</tr>
<tr>
<td><img src="image/spacer.gif" width="1" height="49" border="0" alt=""></td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" height="184">
<tr>
<td width="152" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<!-- fwtable fwsrc="keshi.png" fwbase="keshi.jpg" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
<tr>
<td width="99%"><img src="../image/spacer.gif" width="159" height="1" border="0" alt=""></td>
<td width="1%"><img src="../image/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td width="99%"><img name="keshi_r1_c1" src="../image/keshi_r1_c1.jpg" width="159" height="30" border="0" alt=""></td>
<td width="1%"><img src="../image/spacer.gif" width="1" height="30" border="0" alt=""></td>
</tr>
<tr>
<td background="../image/keshi_bg.jpg" align="center" width="99%"> <iframe width="90%" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" align="top" height="95%" src="depart_index.asp"></iframe>
</td>
<td width="1%"><img src="../image/spacer.gif" width="1" height="406" border="0" alt=""></td>
</tr>
<tr>
<td width="99%"><img name="keshi_r3_c1" src="../image/keshi_r3_c1.jpg" width="159" height="21" border="0" alt=""></td>
<td width="1%"><img src="../image/spacer.gif" width="1" height="21" border="0" alt=""></td>
</tr>
</table>
</td>
<td width="618" align="center" valign="top">
<table width="95%" border="0" cellspacing="0" cellpadding="2" style="border:solid 1 #9ccf00">
<%
dim pgsz,total,pageno,ScrollAction
dim pagebegin,pagend,position,rowcount
dim times,topic
PgSz=15
dim totalPut
dim CurrentPage, TotalPages
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs= server.createobject ("adodb.recordset")
sql = " select * from news where type="&ntype&" order by datetime desc"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
Response.Write("暂时没有记录。")
else
RS.PageSize = Cint(PgSz)
Total=INT(RS.recordcount / PgSz * -1)*-1 ''计算可显示页面的总数
PageNo=Request("pageno")
if PageNo="" Then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
ScrollAction=Request("ScrollAction")
if ScrollAction="上一页" Then
PageNo=PageNo-1
end if
if ScrollAction="下一页" Then
PageNo=PageNo+1
end if
if PageNo<1 Then
PageNo=1
end if
RS.AbsolutePage=PageNo
position=RS.PageSize*PageNo
pagebegin=position-RS.PageSize+1
if position < RS.RecordCount then
pagend=position
else
pagend= RS.RecordCount
end if
Response.Write "<tr><td bgcolor=9ccf00><font color=386b00>共有["&RS.RecordCount&"]篇文章,显示["&pagebegin&"-"&pagend&"]篇</font></td></tr>"
RowCount = RS.PageSize
Do While Not RS.EOF and rowcount > 0
times = cstr(year(rs("datetime"))) + "<font color=red>年</font>" + cstr(month(rs("datetime"))) + "<font color=blue>月</font>" + cstr(day(rs("datetime"))) + "<font color=green>日</font>"
if len(rs("topic"))>=28 then
topic=left(rs("topic"),26)+".."
else
topic=rs("topic")
end if
%>
<tr>
<td height="25" valign="middle"><img src="bullet.gif" align="absmiddle"><a href="detail.asp?id=<%= rs("id") %>&ntype=<%= rs("type") %>"><font color="#6a6b6a"><%= topic %></font></a>[<%= times %>]</td>
</tr>
<%
RowCount =RowCount -1
rs.movenext
loop %>
<tr>
<td height="25" align="center" valign="middle">
<form method="post" action="more.asp">
<input type="HIDDEN" name="pageno" value="<%=PageNo %>">
<% if PageNo > 1 Then
response.write "<input type=submit name=ScrollAction value=上一页 style=background-color:ffffff;color:6382de;border: 1 double>"
end if
if RowCount = 0 and PageNo <>Total then
response.write "<input type=submit name=ScrollAction value=下一页 style=background-color:ffffff;color:6382de;border: 1 double>"
end if %>
</FORM>
</td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
closedatabase %>
</td>
</tr>
</table>
<br>
<table width="770" border="0" cellspacing="0" cellpadding="0" height="69">
<tr>
<td background="../image/bottom_bg.gif"> </td>
</tr>
</table>
</div>
</body>
</html>
<%sub grid()%>
<table width="100" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center"><a href="detaild.asp?id=<%= rs("id") %>"><img src="<%= rs("pic") %>" border="0" width="90"></a></td>
</tr>
<tr>
<td align="center"><%= rs("name") %></td>
</tr>
</table>
<%end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -