?? list.asp
字號:
<!--#include file="db_open.asp"-->
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from ly_info order by id desc",conn,1,1
direction=request("direction")
go=request("go")
if isempty(go) then go=0
select case direction
case ""
go=0
case "up"
go=go-6
if go<=0 then go=0
case "down"
go=go+6
if go>=rs.recordcount then go=go-6
end select
if not rs.eof then rs.move(go)
%>
<HTML>
<HEAD>
<TITLE>彩虹世界-瀏覽</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="baresi.css" type="text/css">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<TABLE WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" ALIGN="center" HEIGHT="29" BORDERCOLORDARK="#FFFFFF" BORDERCOLOR="#333333" BGCOLOR="#DAE1FA">
<TR BGCOLOR="#CCCCCC"> <TD CLASS="td1" HEIGHT="28" BGCOLOR="#DAE1FA"><A HREF="list.asp">查看留言</A>
| <A HREF="write.asp">發表留言</A> | <A HREF="manage.asp">留言管理</A> <A HREF="list.asp?go=<%=go%>&direction=up">上一頁</A>
<A HREF="list.asp?go=<%=go%>&direction=down">下一頁</A></TD></TR> </TABLE><%do while not rs.eof and i<6
i=i+1%> <BR><TABLE WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" HEIGHT="90" ALIGN="center" BORDERCOLOR="#666666" BORDERCOLORDARK="#FFFFFF">
<TR> <TD HEIGHT="131" ROWSPAN="2" CLASS="td2" WIDTH="144" ALIGN="center" BGCOLOR="#DAE1FA"><%=rs("user_name")%><BR>
<IMG SRC="images/<%=rs("user_touxiang")%>.gif" VSPACE="3" ALT="頭像"><BR> 來自-<%=rs("user_from")%></TD><TD HEIGHT="110" CLASS="td2" VALIGN="top" COLSPAN="2">
<TABLE WIDTH="453" BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD WIDTH="453" CLASS="td2"><IMG SRC="images/post.gif" WIDTH="24" HEIGHT="24" ALIGN="ABSMIDDLE">留言標題:<%=rs("user_title")%><HR SIZE="1" noshade>
</TD></TR> <TR> <TD WIDTH="453" CLASS="td2" HEIGHT="40" VALIGN="top"><%=rs("user_content")%></TD></TR>
</TABLE><%if rs("pub_content")<>"" then%> <TABLE WIDTH="453" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="76">
<TR> <TD WIDTH="55" CLASS="td2" ROWSPAN="2"> </TD><TD WIDTH="398" CLASS="td2" HEIGHT="40"><IMG SRC="images/repost.gif" WIDTH="24" HEIGHT="24" ALIGN="ABSMIDDLE">版主回復:
<HR SIZE="1" noshade> </TD></TR> <TR> <TD WIDTH="398" CLASS="td2" VALIGN="top" STYLE="color:#990000"><%=rs("pub_content")%></TD></TR>
</TABLE><%end if%></TD></TR> <TR> <TD HEIGHT="26" WIDTH="284" CLASS="td2" BGCOLOR="#DAE1FA"><%if rs("user_mail")<>"" then%>
<A HREF="mailto:<%=rs("user_mail")%>" TARGET="_blank"><IMG SRC="images/email.gif" WIDTH="24" HEIGHT="24" VSPACE="2" HSPACE="2" BORDER=0></A>
<%end if
if rs("user_homepage")<>"http://" then%><A HREF="<%=rs("user_homepage")%>" TARGET="_blank"><IMG SRC="images/homepage.gif" WIDTH="24" HEIGHT="24" VSPACE="2" HSPACE="2" BORDER="0"></A>
<%end if
if rs("user_oicq")<>"" then%> <A HREF="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("user_oicq")%>"><IMG SRC="images/oicq.gif" WIDTH="24" HEIGHT="24" HSPACE="2" VSPACE="2" BORDER="0"></A>
<%end if%> </TD><TD HEIGHT="26" CLASS="td2" WIDTH="168" ALIGN="center" BGCOLOR="#DAE1FA">發表于:<%=rs("pub_time")%></TD></TR>
</TABLE><%rs.movenext
loop
call db_close()
set rs=nothing%>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -