📄 jcsjread.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/function.asp -->
<!--#include file=include/config.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%> -=> ※社区天地※ -=> 精彩瞬间</title>
<LINK href=news.css rel=stylesheet>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css">
.newstitle {COLOR: #000000; FONT-FAMILY:"宋体"; FONT-SIZE: 14px;line-height:1.5}
</style><style type="text/css">
body
{
scrollbar-face-color: #6BB6FF;
scrollbar-highlight-color: #298AFF;
scrollbar-shadow-color: #CAEBFF;
scrollbar-arrow-color: #CAEBFF;
scrollbar-base-color: #CAEBFF;
scrollbar-dark-shadow-color: #CAEBFF;
}
</style>
<script language="JavaScript" type="text/JavaScript">
function fontZoom(size){
document.getElementById('fontZoom').style.fontSize=size+'px'
}
</SCRIPT>
</script>
</head>
<SCRIPT language=JavaScript>
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<body topmargin="0" marginheight="0" background="imgs/900.jpg">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <table width="102%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFFFFF">
<td height="3" bgcolor="#FFFFFF"><img src="IMAGES/kb.gif" width="9" height="3"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100%" height="21" background="imgs/2.jpg" valign="bottom" > 栏目导航 <strong>社区天地>>精彩瞬间</strong></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" background="IMAGES/menu-guest-l.gif">
<table border="0" width="100%" height="445" background="imgs/900.jpg">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" height="180">
<%
dim softsql
dim softrs
Dim ipagecount '页面总数
Dim ipagecurrent '显示的当前页面
dim yeshu
yeshu=9
softsql = "SELECT * FROM jcsj order by id desc"
Set softrs = Server.CreateObject("ADODB.Recordset")
softrs.pagesize = yeshu
softrs.cachesize = yeshu
softrs.open softsql,conn,1,1
ipagecount = softrs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<br>没 有 信 息："
else
softrs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<yeshu and NOT softrs.EOF
%>
<tr align="center">
<td width="25%"> <br>
<%if not softrs.eof then%>
<a target="_blank" href="<%=softrs("photo")%>">
<img src="<%=softrs("photo")%>" border="0" class="bk" width="160" height="120"></a>
<br>
<%=left(softrs("shuoming"),15)%><br>
<%=(year(softrs("date")))%>-<%=(month(softrs("date")))%>-<%=(day(softrs("date")))%> <br>
<br>
</td>
<%
irecordsshown = irecordsshown +1
softrs.movenext
end if
%>
<td width="25%"> <br>
<%if not softrs.eof then%>
<a target="_blank" href="<%=softrs("photo")%>">
<img src="<%=softrs("photo")%>" border="0" class="bk" width="160" height="120"></a>
<br>
<%=left(softrs("shuoming"),15)%><br>
<%=(year(softrs("date")))%>-<%=(month(softrs("date")))%>-<%=(day(softrs("date")))%> <br>
<br>
</td>
<%
irecordsshown = irecordsshown +1
softrs.movenext
end if
%>
<td width="25%"> <br>
<%if not softrs.eof then%>
<a target="_blank" href="<%=softrs("photo")%>">
<img src="<%=softrs("photo")%>" border="0" class="bk" width="160" height="120"></a>
<br>
<%=left(softrs("shuoming"),15)%><br>
<%=(year(softrs("date")))%>-<%=(month(softrs("date")))%>-<%=(day(softrs("date")))%> <br>
<br>
</td>
<%
irecordsshown = irecordsshown +1
softrs.movenext
end if
%>
</tr>
<%loop
end if
softrs.Close
set softrs=nothing%>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<p align="right">每页显示 9 个文件 共有 <%=ipagecount%> 页 当前为第 <%=ipagecurrent%>
页
<%if ipagecurrent=1 then%>
首页 |
<%else%>
<a href="jcsjread.asp?id=<%=classid%>&page=1">首页</a> |
<%end if%>
<%if ipagecurrent=1 then%>
上一页 |
<%else%>
<a href="jcsjread.asp?id=<%=classid%>&page=<%=ipagecurrent-1%>">上一页</a>
|
<%end if%>
<%if ipagecount>ipagecurrent then%>
<a href="jcsjread.asp?id=<%=classid%>&page=<%=ipagecurrent+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if ipagecount>ipagecurrent then%>
| <a href="jcsjread.asp?id=<%=classid%>&page=<%=ipagecount%>">末页</a>
<%else%>
| 末页
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td background="IMAGES/menu-news.gif">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td height="25" background="imgs/2.jpg"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="bottom">
<tr>
<td background="">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="533">
<p align="center"><br> <input type="button" name="close2" value="关闭窗口" onClick="window.close();return false;"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -