大家能否帮忙解决下这个分页问题!(在线等!!)
<!--#include file="../../inc/conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>观大方</title>
<script language"javascript">
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",10);
}
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>
<script language="javascript">
function DrawImage(ImgD,iwidth,iheight){
//参数(图片,允许的宽度,允许的高度)
var flag=false;
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
flag=true;
if(image.width/image.height>= iwidth/iheight){
if(image.width>iwidth){
ImgD.width=iwidth;
ImgD.height=(image.height*iwidth)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+"×"+image.height;
}
else{
if(image.height>iheight){
ImgD.height=iheight;
ImgD.width=(image.width*iheight)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+"×"+image.height;
}
}
}
</script>
<link href="../css/css_1.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<table width="775" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="5"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="775" height="202">
<param name="movie" value="../swf/top.swf">
<param name="menu" value="false" />
<param name="quality" value="high">
<embed src="../swf/top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="775" height="202"></embed>
</object></td>
</tr>
<tr>
<td width="9" rowspan="2" background="../images/i-l.gif"> </td>
<td width="208" valign="top"><IFRAME name=left marginWidth=0
marginHeight=0 src="left.htm"
frameBorder=no width="208" scrolling=no
height=576></IFRAME></td>
<td width="11" rowspan="2"> </td>
<td width="537" align="right" valign="top"><table width="537" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"><img src="../images/ir-l3.jpg" width="161" height="43"><img src="../images/ir-1r.jpg" width="376" height="43"></td>
</tr>
<tr valign="top">
<td background="../images/ir-5.gif"> </td>
<td align="center"><table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" class="text_1"><p> </p></td>
</tr>
<tr align="right">
<td colspan="2" class="blu12">双击自动滚屏</td>
</tr>
<tr>
<td colspan="2" class="text_1"> </td>
</tr>
<tr align="center">
<td colspan="2" class="f12"><a href="page-2.asp"><font color="#FF9900">①监控系统</font></a> <a href="page-2-2.asp"><font color="#FF9900">②安防产品</font></a> <a href="page-2-3.htm"><font color="#FF9900">③系统集成</font></a> <a href="page-2-4.htm"><font color="#FF9900">④电子显示大屏幕</font></a></td>
</tr>
<tr>
<td colspan="2" class="text_1"> </td>
</tr>
<tr>
<td width="30" rowspan="2" align="center" class="text_1-18"><img src="../images/v.gif" width="19" height="22"></td>
<td width="470" height="18" align="left" valign="bottom" class="text_3">安防产品</td>
</tr>
<tr bgcolor="#B9F1FF">
<td align="center" class="text_1-18"><img src="../images/t.gif" width="6" height="4"></td>
</tr>
<tr>
<td colspan="2" align="left" class="text_1-18">
<%
Call ConnectionDatabase()
Dim Exce
Exce="Select top 6 * From mount order by Id desc"
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open Exce,Conn,1,1
Do While Not Rs.Eof
%>
<table width="500" border="0" cellspacing="4" cellpadding="0">
<tr>
<td width="102" valign="top"><table width="0" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF"><img src="../../UpLoadFile/<%=Rs("ProductPic")%>" onload="javascript:DrawImage(this,100,100)" border="0"></td>
</tr>
</table></td>
<td width="386"><table width="384" height="102" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td align="left" valign="top" bgcolor="#FFFFFF"><table width="382" border="0" cellpadding="0" cellspacing="4" class="text_1-18">
<tr>
<td width="66" align="right">产品名称:</td>
<td width="304"><%=Rs("ProductName")%></td>
</tr>
<tr>
<td align="right">产品型号:</td>
<td><%=Rs("ProductModel")%></td>
</tr>
<tr>
<td align="right" valign="top">产品说明:</td>
<td><%=Rs("ProductExplain")%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
Rs.MoveNext
Loop
%>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</td>
</tr>
<tr>
<td colspan="2" class="text_1"> </td>
</tr>
<tr align="right">
<td colspan="2" class="text_1"><a href="#"><font color="#000000">TOP</font></a></td>
</tr>
</table></td>
<td background="../images/ir-6.gif"> </td>
</tr>
<tr>
<td width="10" align="left" valign="bottom"><img src="../images/ir-2.gif" width="10" height="12"></td>
<td width="516" valign="bottom" background="../images/ir-4.gif"><img src="../images/t.gif" width="6" height="12"></td>
<td width="11" align="right" valign="bottom"><img src="../images/ir-3.gif" width="11" height="12"></td>
</tr>
</table>
</td>
<td width="10" rowspan="2" align="right" background="../images/i-r.gif"> </td>
</tr>
<tr>
<td width="208" valign="top"><img src="../images/t.gif" width="6" height="10"></td>
<td><img src="../images/t.gif" width="6" height="10"></td>
</tr>
</table>
</div>
</body>
</html>
以上是整个文件的源码