<
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="inc/strchk.asp"-->
<% search=trim(request("search"))
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language="javascript">
function sarch()
{
var x=document.form2.ttc;
if (x.value=="");
{
alert("请输入关键字");
x.focus()
return false;
}
return true;
}
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">
</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="671" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="669" height="313">
<table width="670" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#7EBEC0" class=k1>
<tr>
<td width="228" height="31">返回首页||<a href="rword.asp">查看留言</a>||<a href="login.asp">管理登陆</a>||<a href="index.asp">发表留言</a></td>
<td width="18"><img src="image/search.gif" width="15" height="12"> </td>
<td width="316
"><form action="rword.asp" method="post" name="form2" onsubmit="return sarch()">
<input name="ttc" type="text" class="text">
<input type="radio" name="search" value="1" checked>
姓名
<input type="radio" name="search" value="2">
标题
<input name="Submit" type="submit" class="text" value="查找">
</form></td>
<td width="104"><a href="rword.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="670" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF" class="k1" >
<tr bgcolor="#FFFFFF" class=k1>
<td height="19" bgcolor="#EDF3FF">作者:
<%if rsw("name")<>"" then%>
<%=rsw("name")%>
<%else
response.write("匿名")
end if%>
</td>
<td width="460" height="19" 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="202" 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" >
标题:<%=rsw("title")%>
<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>
应该加在哪里，谢谢了
[此贴子已经被作者于2005-6-19 9:59:24编辑过]
2005-06-18 00:46
有人来帮我看一下吗