麻烦看一下这段代码哪里错了?谢谢
<!--#include file="conn.asp"--><!--#include file="function.asp"-->
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-image: url(image/bg.jpg);
}
.STYLE4 {
font-size: 36pt;
font-family: "楷体_GB2312";
color: #993300;
}
.STYLE6 {font-size: 12px}
.style5 { color: #000000;
font-size: 12pt;
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
}
-->
</style><table width="850" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="844" height="140" valign="top"><span class="STYLE4">枫的季节</span></td>
</tr>
</table>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="639" height="37" valign="top"><!--DWLayoutEmptyCell--> </td>
<td width="66" valign="top">
<div align="center">首页</div></td>
<td width="66" valign="top">
<div align="center">最新文章</div></td>
<td width="61" valign="top">
<div align="center">登陆</div></td>
</tr>
</table>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="162" height="436" valign="top"><table width="162" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="162" height="24"><span class="STYLE6">文章分类</span></td>
</tr>
</table>
<table width="161" border="0" cellpadding="0" cellspacing="0">
<% set rs=server.CreateObject("ADODB.Recordset")
sql="select * from Diary_List"
rs.open sql,conn,1,1
%>
<% do while not rs.eof %>
<tr>
<td width="161" height="27"><a href="diary.asp?Diray_Listid=<%=rs("Diary_List_Id")%>"><%=title(rs("Diary_List_Title"))%></a></td>
</tr>
<% rs.movenext
loop
%>
</table>
<% if session("People_Name")<>"" then %>
<table width="162" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="162" height="22">用户面板</td>
</tr>
<tr>
<td height="136" valign="top">
<p align="center">用户登陆：<%=session("People_Name")%></p>
<p align="center"><a href="user_news.asp?People_Id=<%=session("People_Id")%>">修改资料：</p>
<p align="center"><a href="goout.asp">推出登陆：</p>
<p> </p></td>
</tr>
</table>
<% end if %>
<table width="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="163" height="27">最新日志</td>
</tr>
</table>
<table width="163" border="0" cellpadding="0" cellspacing="0">
<% set rst=server.CreateObject("ADODB.Recordset")
sqt="select * from Diary order by Diary_Time desc"
rst.open sqt,conn,1,3
%>
<% m=1
do while not rst.eof
if m>7 then
exit do
end if
%>
<tr>
<td width="163" height="30"><a href="article.asp?Diary_Id=<%=rst("Diary_Id")%>"><%=title(rst("Diary_Title"))%></a> </td>
</tr>
</table>
<% m=m+1
rst.movenext
loop
%>
<table width="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="163" height="28">最新评论</td>
</tr>
</table>
<table width="163" border="0" cellpadding="0" cellspacing="0">
<% set rsx=server.CreateObject("ADODB.Recordset")
sqx="select * from Review order by Review_Time desc"
rsx.open sqx,conn,1,3
%>
<% x=1
do while not rsx.eof
if x>7 then
exit do
end if
%>
<tr>
<td width="163" height="28"> <a href="article.asp?diaryid=<%=rsx("Diary_Id")%>"><%=title(rsx("Review_Content"))%></a></td>
</tr>
</table>
<% x=x+1
rsx.movenext
loop
%>
<table width="160" border="0" cellpadding="0" cellspacing="0">
<% set rsw=server.CreateObject("ADODB.Recordset")
sqlw="select count(*) as counts from Diary"
rsw.open sqlw,conn,1,1 %>
<% set rsc=server.CreateObject("ADODB.Recordset")
sqlc="select count(*) as counts from Review"
rsc.open sqlc,conn,1,1 %>
<% set rsp=server.CreateObject("ADODB.Recordset")
sqlp="select count(*) as counts from People"
rsp.open sqlp,conn,1,1 %>
<tr>
<td height="21">用户统计</td>
</tr>
<tr>
<td height="14"> </td>
</tr>
<tr>
<td height="29">日志; <%=rsw("counts")%></td>
</tr>
<tr>
<td height="32">评论; <%=rsc("counts")%></td>
</tr>
<tr>
<td height="31"> 用户; <%=rsp("counts")%></td>
</tr>
</table></td>
<td width="651" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="26" background="images/17.jpg"> </td>
</tr>
<% People_Id=request.QueryString("People_Id")
set rss=server.CreateObject("ADODB.Recordset")
sqll="select * from People where People_Id="&request("People_Id")&""
rss.open sqll,conn,1,3
%>
<tr>
<td height="25"><div align="center"></div></td>
</tr>
</table>
<table width="100%" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="15"> </td>
</tr>
</table>
<br>
<table width="527" height="58" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40" background="images/www1.jpg"> <span class="style5">用户资料</span></td>
</tr>
<tr>
<td height="39" background="images/www2.jpg"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="41"> </td>
</tr>
<tr>
<td height="50"> 用户名：<%=rss("People_Name")%></td>
</tr>
<tr>
<td height="50"> 性 别：<%=rss("People_Sex")%></td>
</tr>
<tr>
<td height="50"> 权 限：<%=rss("People_Qx")%> </td>
</tr>
<tr>
<td height="50"> 注册时间：<%=rss("People_Time")%></td>
</tr>
<tr>
<td height="50"> Email: <%=rss("People_Email")%></td>
</tr>
<tr>
<td height="50"> 数据统计： 日志： 评论：</td>
</tr>
</table>
<%
if session("People_Name")<>"" and session(" People_Id")=rss(" People_Id") then %>
<table width="100%" height="200" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="50"> ［<a href="modify_user.asp">修改资料</a>］</td>
</tr>
<tr>
<td height="50"> ［<a href="history_article.asp">我发表的日志文章</a>］</td>
</tr>
<tr>
<td height="50"> ［<a href="history_review.asp">我发表的评论</a>］</td>
</tr>
<tr>
<td height="50"> ［<a href="user_write.asp">添加个人日志文章</a>］</td>
</tr>
</table>
<% end if %></td>
<td width="37" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
