<%
sql="select * from T_wtx"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
%>
<%="暂时还没有留言"%>
<%
else
rs.pagesize=11
'设置每页的记录数
total=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.Absolutepage=page
totalrecord=rs.RecordCount
'rs.recordcount 显示记录总条数
rs.movelast
%>
<%
dim a
a=1
do until rs.bof
homepage=rs("L_homepage")
qq=rs("L_qq")
content=rs("L_content")
usr=rs("L_usr")
email=rs("l_email")
addtime=rs("L_date")
security=rs("L_security")
face=rs("L_face")
sex=rs("L_sex")
img="images/"&face&".gif"
%>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" bgcolor="#FFFFFF"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><center>
<span class="word">留言者信息</span>
</center></td>
<td>主页<img src="images/home.gif" alt="主页:<%=homepage%>" width="16" height="16" /> 邮箱<img src="images/mail.gif" alt="邮箱:<%=email%>" width="14" height="15" /> QQ:<img src="images/qq.gif" alt="QQ:<%=qq%>" width="16" height="16" /></td>
</tr>
<tr>
<td>
<% if qq<>"" then %>
<center><img src="http://qqshow-user.tencent.com/<%=qq%>/11/00/"></center>
<%
else
%>
<%
if sex="1" then
%>
<center><img src="images/gg.gif"></center>
<%else%>
<center><img src="images/mm.gif"></center>
<%
end if
end if%>