留言表格不固定
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="inc/strchk.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language="javascript">
function sea()
{
window.open('search.asp','sea','height=150,width=460,top=0,left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no')
}
</script>
<%set rsw=server.createobject("adodb.recordset")
sql="select * from mybook order by time desc"
rsw.open sql,conn,1,1
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看留言</title>
<link rel=stylesheet type="text/css" href="css/my.css">
<style type="text/css">
<!--
.style1 {
font-size: 10pt;
color: #FF0000;
}
-->
</style>
</head>
<body background="image/205.gif" topmargin="0px">
<% if rsw.eof or rsw.bof then%>
<table width="725" align="center">
<tr>
<td width="625" align="center" bgcolor="#B4D3E4"><p class="style1">暂时没有留言 <a href="index.asp">发表留言</a> </td>
</tr>
</table>
<%else%>
<table width="756" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="754" height="313">
<table width="725" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#7EBEC0" class=k1>
<tr>
<td width="732" height="27">返回首页||<a href="rword.asp">查看留言</a>||<a href="login.asp">管理登陆</a>||<a href="#" onclick="sea()">查找留言</a>||<a href="index.asp">发表留言</a></td>
</tr>
</table>
<%
rsw.pagesize=5
page=request("page")
if page="" or page<1 then
page=1
if page>rsw.pagecount then
page=rsw.pagecount
end if
end if
rsw.absolutepage=page
i=0
do while not rsw.eof and i<rsw.pagesize%>
<table width="725" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF" class="k1">
<tr bgcolor="#FFFFFF" class=k1>
<td height="21" bgcolor="#EDF3FF">作者:
<%if rsw("name")<>"" then%>
<%=rsw("name")%>
<%else
response.write("匿名")
end if%>
</td>
<td height="21" bgcolor="#EDF3FF"><img src="image/qq.gif" width="16" height="16" alt="<%=rsw("qq")%>"> <a href="mailt<%=rsw("email")%>"><img src="image/mail.gif" width="16" height="16" border=0> </a><a href=<%=rsw("homepage")%>><img src="image/home.gif" width="16" height="16" border=0></a>来自:<%=rsw("ip")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="205" height="148" valign="top" bgcolor="#EDF3FF"><%if rsw("sex")="male" then%>
<img src="sex/boy.gif" width="23" height="21">
<%else%>
<img src="sex/girl.gif">
<%end if%></br>
<br><img src="image/<%=rsw("face")%>"><%=rsw("time")%></td>
<td valign="top" bgcolor="#EDF3FF">
标题:<strong><font color=red><%=rsw("title")%></font></strong>
<hr align="left" width=100 size=1px noshade>
</br>
<img src="fpic/<%=rsw("fpic")%>"><%=cpic(rsw("word"))%></td>
</tr>
</table>
<%i=i+1
rsw.movenext
loop
%>
<table width="537" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="446" height="54" valign="top"><p>共<%=rsw.pagecount%>页，共有<%=rsw.recordcount%>条，你当前在第<%=page%>页，<%=page%>/<%=rsw.pagecount%>
<%if page>1 then%>
<a href=rword.asp?page=<%=1%> class="v1">[首页]</a>
<%else%>
[首页]
<%end if%>
<%if page>1 then%>
<a href=rword.asp?page=<%=page-1%> class="v1">[上一页]</a>
<%else%>
[上一页]
<%end if%>
<% if not rsw.eof then%>
<a href=rword.asp?page=<%=page+1%> class="v1">[下一页]</a>
<%else%>
[下一页]
<%end if%>
<% if not rsw.eof then%>
<a href=rword.asp?page=<%=rsw.pagecount%> class="v1">[尾页]</a>
<%else%>
[尾页]
<%end if%>
</td>
<td width="88" valign="top"><form name="form1" method="post" action="rword.asp">
<select name="page" size="1">
<% for i=1 to rsw.pagecount%>
<option value="<%=i%>" <% if i=page then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
<input name="Submit" type="submit" class="k1" value="跳转">
</form></td>
</tr>
</table></td>
</tr>
</table>
<%end if
rsw.close
set rsw=nothing
conn.close
set conn=nothing
%>
</body>
</html>
留言表格不固定，出现不对齐。
。
