我做了个网页,怎么加分页代码都不行,那位高手帮帮忙,不知哪有错,很急,代码如下:
<!--#include file="conn.asp"-->
<%l_leixing=request("l_leixing")%>
<%l_id=request("l_id")%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<Script LANGUAGE="JavaScript">
if(self!=top){top.location=self.location;}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>
<%
set rs=conn.execute("select*from leixing")
if rs.eof and rs.bof then
response.Write("暂无记录!")
else
do while not rs.eof
%>
<%=rs("l_leixing")%>
<%
rs.movenext
loop
end if
%>
</title>
<%rs.close%>
<style type="text/css">
<!--
.style1 {
font-family: "方正舒体";
font-size: 36px;
}
body {
margin-top: 0px;
margin-bottom: 0px;
}
.unnamed1 {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: none;
border-right-style: none;
border-bottom-style: dashed;
border-left-style: none;
border-top-color: #CCFF66;
border-right-color: #CCFF66;
border-bottom-color: #CCFF66;
border-left-color: #CCFF66;
}
body,td,th {
font-family: 宋体;
font-size: 12px;
}
.style2 {
color: f666666;
font-weight: bold;
}
.style3 {color: #FF0000}
.style4 {color: #FF0000; font-weight: bold; }
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
color: #FF0000;
}
a:active {
text-decoration: none;
color: #FF0000;
}
-->
</style>
<meta name="keywords" content="3Dmx视频教程，ASP视频教程，Photoshop视频教程，Dreamweaver视频教程，Flash视频教程，Frieworks视频教程">
<meta name="" content="3Dmx视频教程，ASP视频教程，Photoshop视频教程，Dreamweaver视频教程，Flash视频教程，Frieworks视频教程">
</head>
<body>
<div align="center">
<table width="100%" height="142" >
<tr>
<td height="136" background="images/banner2.gif"><table width="100%" height="134" >
<tr>
<td width="25%" height="128"><div align="center" class="style1">视频教程网</div></td>
<td width="75%"><div align="center">
<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="736" height="132">
<param name="movie" value="34.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="34.swf" width="736" height="132" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent" volue="transparent"></embed>
</object>
</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="34" background="images/z_bg.gif" >
<tr>
<td height="28"><div align="left">
<table width="964">
<tr>
<%
sql="select*from leixing"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<%if rs.eof and rs.bof then
response.End()
else
do while not rs.eof
%>
<td width="679"><div align="center">| <a href="type.asp?l_leixing=<%=rs("l_leixing")%>" target="_parent"><%=rs("l_leixing")%></a>|</div></td>
<%
rs.movenext
loop
end if
%>
<%rs.close%>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="100%" >
<tr>
<td height="61"><div align="left">
<table width="100%" >
<tr>
<td><div align="left">您现在的位置>>><a href="index.asp" target="_parent">返回首页</a>>>>
<%
set rs=conn.execute("select * from leixing where l_leixing='"&l_leixing&"'")
%>
<%
if rs.eof and rs.bof then
response.End()
else
do while not rs.eof
%>
<%=rs("l_leixing")%>
<%
rs.movenext
loop
end if
%>
<%rs.close%>
</div></td>
</tr>
</table>
</div></td>
<td> </td>
</tr>
</table>
<table width="100%" cellspacing="1" bgcolor="#CCFF33" >
<tr background="images/navbg.gif">
<td background="images/navbg.gif"><div align="center">教程名称</div></td>
<td background="images/navbg.gif"><div align="center">点击数</div></td>
<td height="25" background="images/navbg.gif"><div align="center">发布者</div></td>
<td background="images/navbg.gif"><div align="center">来源</div></td>
<td background="images/navbg.gif"><div align="center">添加时间</div></td>
<td background="images/navbg.gif"><div align="center">类型</div></td>
</tr>
<%
sql="select * from neirong where l_leixing='"&l_leixing&"' order by time desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<%if rs.eof and rs.bof then
response.Write("暂无记录")
else
%>
<%
do while not rs.eof
%>
<tr>
<td height="30" bgcolor="#FFFFFF"><div align="center"><a href="show.asp?n_id=<%=rs("n_id")%>" target="_parent"><%=rs("mingcheng")%></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("dianji")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("fabuzhe")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("laiyuan")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("time")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("l_leixing")%></div></td>
</tr>
<%
rs.movenext
loop
end if
%>
<tr>
<td height="30" colspan="6" bgcolor="#FFFFFF"><div align="center">
<div align="center">
</div></td>
</tr>
</table>
<table width="100%" height="92" >
<tr>
<td><div align="center">
<table width="600">
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center">| <span onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://huangjiwei.zpgo.net/');" style="CURSOR: hand">设为首页</span> | | 联系站长 | | 登陆管理 | | 免责声明 | | 关于我们| </div></td>
</tr>
<tr>
<td><div align="center">本站由huangwang维护©2006</div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
</body>
</html>
