留言本横排信息修改成竖排的代码。请帮忙！
<body>
<!--#include file="head.asp" -->
<table width="990" border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="180" height="100" align="center" bgcolor="#5E0000"><!--#include file="leftmenu.asp" --></td>
<td align="center"><br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="93%" border=0 align=center cellpadding=0 cellspacing=0 class="mainFont">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="45" valign="middle"><a href="feedback_write.asp?cNum=4"><img src="images/feedback_1.gif" width="79" height="23" border="0" align="absbottom"></a> <a href="feedback.asp?cNum=4"><img src="images/feedback_2.gif" width="79" height="23" border="0" align="absbottom"></a></td>
</tr>
</table></td>
<td width="25"> </td>
</tr>
<tr>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Feedback where online='1' order by Postdate desc"
rs.open sql,conn,1
if rs.eof and rs.bof then response.redirect "feedback_write.asp"
if pages=0 or pages="" then pages=3 '每页留言条数
rs.pageSize = pages '每页记录数
allPages = rs.pageCount '总页数
page = Request("page") '从浏览器取得当前页
'if是基本的出错处理
If not isNumeric(page) then page=1
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) >= allPages then
page = allPages
end if
rs.AbsolutePage = page '转到某页头部
Do While Not rs.eof and pages>0
UserName=rs("UserName") '用户名
pic=rs("pic") '头像
face=rs("face") '表情
Comments=rs("Comments") '内容
Replay=rs("Replay") '回复
Usermail=rs("Usermail") '邮件
url=rs("url") '主页
I=I+1 '序号
%> <td>
<table width="100%" border="0" align="center" cellPadding="3" cellSpacing="1" bgColor="<%=boderColor%>" class="mainFont">
<tr>
<td width="25%" rowSpan="2" align=center vAlign="middle" bgcolor="#000000"><table width=94% border=0 cellspacing="1" class="mainFont">
<tr>
<td width="35%" align=center><img src=images/face/pic<%=pic%>.gif width="40" height="40" border=0></td>
<td width="65%" align=center><div align="left"> <%=UserName%></div></td>
</tr>
<tr>
<td colspan="2"> 来自：<%=left(rs("ip"),(len(rs("ip"))-1))+"*"%><br>
邮件：<a href=mailto:<%=Usermail%>><img src=images/mail.gif border=0></a><br>
主页：<a href="<%=URL%>" target='_blank'><img src=images/home.gif border=0></a></td>
</tr>
</table></td>
<td width="75%" height="20" bgcolor="#000000">[NO.<%=(cint(page)-1)*rs.pagesize+I%>] <img border=0 src=images/face/face<%=face%>.gif> 发表于：<%=cstr(rs("Postdate"))%></td>
</tr>
<tr>
<td width='75%' height=90 vAlign="top" bgcolor="#000000" onMouseOver="bgColor='#000000'" onMouseOut="bgColor='#000000'"><%
'是否屏蔽留言内容中的html字符
if html=0 then
response.write replace(server.htmlencode(Comments),vbCRLF,"<BR>")
else
response.write replace(Comments,vbCRLF,"<BR>")
end if
%>
<br>
<%if rs("Replay")<>"" then%>
<table width="90%" border="0" align="center" cellPadding="3" cellSpacing="1" bgColor="<%=boderColor%>" class="mainFont">
<tr>
<td height="26" vAlign="top" bgColor="#000000"><font color=red>回复： <%=Replay%></font> </td>
</tr>
</table>
<%end if%></td>
</tr>
</table>
<%
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
%>
</td>
<td width="25"> </td>
</tr>
</table> <tr align="center" class="mainFont">
<td height=20 valign=top>
<%
response.write "<br>总计留言"&RS.RecordCount&"条 "
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href="&request.ServerVariables("script_name")&"?cNum=4&page=1>首页</a> <a href="&request.ServerVariables("script_name")&"?cNum=4&page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href="&request.ServerVariables("script_name")&"?cNum=4&page="&page+1&">下页</a> <a href="&request.ServerVariables("script_name")&"?cNum=4&page="&allpages&">末页</a>"
end if
response.write " 第"&page&"页 共"&allpages&"页 "
%>
</td>
<td width="25" valign=top> </td>
</tr>
</td>
</tr>
</table>
<br>
<br>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="foot.asp" -->
</body>
现在留言信息是横排的，请高手们帮忙改成竖排的。谢谢。
[ 本帖最后由 hemi 于 2012-3-4 02:44 编辑 ]
