www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\gtbook\index.asp
<!-- #include file="header.asp" -->
<!-- #include file="include/ubbcode.asp" -->
<!-- #include file="include/function.asp" -->
<div id="toolTipLayer" style="position:absolute; visibility: hidden"></div>
<script language='JavaScript'> initToolTips(); </script>
<script language='JavaScript' src="include/common.js"></script>
<SCRIPT language="JavaScript" src="../rightclick.js"></SCRIPT>
<%
on error resume next
Dim Log_Num, url_add,iadminlogin, rss, sql, seakey, seatarget
if CheckStr(Request("sea_key")) <> Empty then
seakey = CheckStr(Request("sea_key"))
seatarget = CheckStr(Request("sea_target"))
if seatarget = "sea_name" then
strconn = "select ebook.* from ebook where fname like '%" & seakey & "%' and fshow=true order by id desc"
elseif seatarget = "sea_content" then
strconn = "select ebook.* from ebook where fcontent like '%" & seakey & "%' and fshow=true order by id desc"
end if
else
strconn = "select ebook.* from ebook order by id desc"
end if
set rs = server.createobject("adodb.recordset")
rs.open strconn, conn, 1, 1
if session("admin") = "1" then
iadminlogin = "<a href='admin.asp?type=config'>系统管理</a> <a href='msg.asp?action=2'>退出</a>"
else
iadminlogin = "<a href='login.asp' target=_blank>管理登录</a>"
end if
response.write ("<table width='100%' height='18' border='0' align='center' cellpadding='4' cellspacing='1'><tr><td background=../img/line1.gif colspan=3></td></tr><tr bgcolor=#f9f9f9><td colspan=3 align=right><a href='write.asp'>签写留言</a> " & iadminlogin & "</td></tr><tr><td background=../img/line.gif colspan=3></td></tr>")
PageSize=10
%>
<!--#INCLUDE FILE="../page_up_down.asp"-->
<%
if rs.eof or rs.bof then
response.write ("<tr><td colspan=3><span class='namecolor'>没有留言</span></td></tr>")
end if
Do while not rs.EOF
if processedrecord >=pagesize then
exit do
end if
dim ihomeurl
if rs("fhomeurl") = "http://" then
ihomeurl = "<a href='#' onMouseOver=""toolTip('该网友没有主页', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()""><span class='friend-info'>HOME</span></a> "
else
ihomeurl = "<a href='" & rs("fhomeurl") & "' target='_blank' onMouseOver=""toolTip('" & rs("fhomeurl") & "', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()""><span class='friend-info'>HOME</span></a> "
end if
response.write ("<tr bgcolor=#f9f9f9><td align=center style='color:red;'>" & rs("fname") &" </td><td colspan=2 align=right><span style='font-size: 10px;'><a href='http://friend.qq.com/cgi-bin/friend/user_show_info?ln=" & rs("fqq") & "' onMouseOver=""toolTip('查看" & rs("fqq") & "的资料', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()"" target='_blank'>QQ</a> " & ihomeurl & "<a href='mailto:" & rs("fmail") & "' onMouseOver=""toolTip('" & rs("fmail") & "', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()"">MAIL</a> <span style='cursor:hand;' onMouseOver=""toolTip('" & rs("fip") & "', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()"">IP</span> <span style='cursor:hand;' onMouseOver=""toolTip('" & rs("ffrom") & "', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()"">FROM</span> " & rs("ftime") & " </span></td></tr><tr><td background=../img/line1.gif colspan=3></td></tr></td></tr><tr bgcolor=#f9f9f9><td width='75' valign='top'><img src='" & rs("fface") & "' width='75' height='75' class=td></td><td align='left' colspan='2' valign='top' width='95%' style='line-height:22px;'>")
if rs("fshow") = false then
if session("admin") <> "1" then
response.write ("本留言为悄悄话，只有管理员可见！")
else
response.write (ubbcode(rs("fcontent")))
end if
else
response.write (ubbcode(rs("fcontent")))
end if
response.write ("<br><br><table width='98%' align='center' cellpadding='0' cellspacing='1' class=td bgcolor=#ffffff style='color:#999999;'>")
sql = "select * from reply where frepid=" & rs("id") & " order by id desc"
set rss = server.createobject("adodb.recordset")
rss.open sql, conn, 1, 1
if not rss.eof or rss.bof then
do while not rss.eof
response.write ("<tr><td height=20> Ayin:</td><td align='right' style='font-size: 10px;'>")
if session("admin") = "1" then
response.write ("<a href='del.asp?delrep=" & rss("frepid") & "&repid=" & rss("id") & "' onclick=""return confirm('确定要删除吗?');"" onMouseOver=""toolTip('删除本回复', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()""><span>DEL</span></a>")
else
response.write ("")
end if
response.write ("" & rss("ftime") & " </td></tr><tr><td background=../img/line1.gif colspan=2></td></tr><tr><td colspan='2' style='line-height:22px;'> " & ubbcode(rss("freply")) & "</td></tr>")
rss.movenext
loop
else
response.write ("<tr><td></td></tr>")
end if
rss.close
set rss = nothing
response.write ("</table></td></tr><tr><td background=../img/line.gif colspan=3></td></tr>")
if session("admin") = "" then
response.write ("")
else
response.write ("<tr><td colspan='2'style='font-size: 10px;'> <a href='del.asp?id=" & rs("id") & "' onclick=""return confirm('确定要删除吗?');"" onMouseOver=""toolTip('删除本留言', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()""><span class='adminedit'>DEL</span></a> <a href='reply.asp?id=" & rs("id") & "' onMouseOver=""toolTip('回复本留言', '#ffffff', '#AEA387')"" onMouseOut=""toolTip()""><span class='adminedit'>REPLY</span></a></td></tr>")
end if
rs.movenext
processedrecord=processedrecord+1
loop
Response.Write("</table>")
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<table width="75%" border="0" cellspacing="0" cellpadding="0" align="right">
<tr height="25">
<td align="right" style="font-size:10px;color:#666666;"><img src="../img/count.gif" border="0" align="absbottom"> <%=RecordCount%> <img src="../img/page.gif" border="0" align="absbottom"> <font color="#ff6600"><%=Page_No%></font>-<%=pagecount%>
<a href="?mid=<%=fid%>&page_no=1" title=首页><img src="../img/first.gif" border="0" align="absbottom"></a>
<%if page_no>1 then%><a href="?mid=<%=fid%>&page_no=<%=page_no-1%>" title=上一页><img src="../img/prev.gif" border="0" align="absbottom"></a><%else%><span title=上一页><img src="../img/prev.gif" border="0" align="absbottom"></span><%end if%>
<%if page_no<pagecount then%><a href="?mid=<%=fid%>&page_no=<%=page_no+1%>" title=下一页><img src="../img/next.gif" border="0" align="absbottom"></a><%else%><span title=下一页><img src="../img/next.gif" border="0" align="absbottom"></span><%end if%>
<a href="?mid=<%=fid%>&page_no=<%=pagecount%>" title=末页><img src="../img/end.gif" border="0" align="absbottom"></a>
</td>
</tr>
</table>