[求助]求助代码?

惠儿雨点 · 发表于 2010-1-17 07:51:53

我做了个网页,怎么加分页代码都不行,那位高手帮帮忙,不知哪有错,很急,代码如下:

<%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">

</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>

		自动登录	找回密码
密码			注册