index.asp

来自「旋木留言本 v1.51 主要功能： UBB代码支持」· ASP 代码 · 共 171 行

<% Option Explicit %>
<%response.buffer=true%>

<!--#include file="Inc_common.asp"-->
<%
'**************************************
'**    Index.asp
'**
'** 文件说明：留言本首页
'** 修改日期：2004-9-22
'** 作者：Howlion
'** Email：[e-mail]
'**************************************

pagename="查看留言"
%>
<title>旋木留言本</title>
<%
call pageinfo()
dim mainpic
mainpic="page_index.gif"

call skin1()
'---------------以下显示页面主体--------
%>
<SCRIPT language=JavaScript>
<!--
function go(src,q)
{
var ret;
ret = confirm(q);
if(ret!=false)window.location=src;
}
var flag=false;

function openwindow(url, width, height){var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=1,menubar=0,status=yes');}
-->
</script>
<!--#include file="Ubb.asp"-->

<%
if session("login")="true" then
sql="Select * from topic order by top desc,usertime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
else
sql="Select * from topic where checked=1 and whisper=0 order by top desc,usertime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if

if rs.eof and rs.bof then
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="390">
<tr>
<td valign="middle" align="center"><FONT SIZE="4">暂时没有留言，欢迎您留言！</FONT></td>
</tr>
</table>
<%
set rs=nothing
call skin2()
Response.End
end if

dim currentpage,page_count,Pcount
dim totalrec,endpage
if request("page")="" then
currentPage=1
else
if (not isnumeric(request("page"))) then
response.write "<br><p align='center'><FONT SIZE='3' COLOR='red'>非法的页面参数！</FONT>"
set rs=nothing
call skin2()
Response.End
end if
currentPage=cint(request("page"))
end if

rs.PageSize = perpage
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
call pages()
while (not rs.eof) and (not page_count = rs.PageSize)
%>
<div align="center">
  <table border="0" cellpadding="5" cellspacing="1" style="border-collapse: collapse table-layout:fixed;word-break:break-all" bordercolor="#111111" width="95%" class="table1">
  <tr>
    <td width="180" rowspan="2" class="tablebody3" align="center" valign="top">
    <table border="0" cellpadding="0" cellspacing="0" width="100%">
	  <tr>
        <td width="100%" colspan="2" align="center"><%if rs("top")=1 then%><img border="0" WIDTH="60" HEIGHT="60" src="images/bulletin.gif"><%else%><img border="0" WIDTH="90" HEIGHT="90" src="images/userfaces/<%=rs("userface")%>.gif" style='border: 1 solid #000000'><%end if%><br><br><%if rs("top")=1 then%><font color="<%=maincolor%>"><B>管理员公告</B></font><%else%><B><FONT COLOR="#000000"><%=htmlencode(rs("username"))%></FONT></B><%end if%></td>
      </tr>
      <tr>
        <td width="100%" colspan="2" align="center"><IMG SRC="images/blank.gif" WIDTH="160" HEIGHT="20" BORDER="0"></td>
      </tr>
      <tr>
        <td width="10%" align="right"><img border="0" src="images/homepage.gif"></td>
        <td width="90%" align="left"><%if not rs("userurl")="" then%><a target="_blank" href="<%=htmlencode(rs("userurl"))%>" title="个人主页"><%=htmlencode(rs("userurl"))%></a><%else%><FONT COLOR="#7D7D7D">个人主页未填</FONT><%end if%></td>
      </tr>
      <tr>
        <td width="10%" align="right"><img border="0" src="images/email.gif"></td>
        <td width="90%" align="left"><%if not rs("usermail")="" then%><a href="mailto:<%=htmlencode(rs("usermail"))%>" title="电子邮件"><%=htmlencode(rs("usermail"))%></a><%else%><FONT COLOR="#7D7D7D">电子邮件未填</FONT><%end if%></td>
      </tr>
      <tr>
        <td width="10%" align="right"><img border="0" src="images/qq.gif"></td>
        <td width="90%" align="left"><%if not rs("userqq")="" then%><a target="_blank" href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<%=rs("userqq")%>" title="QQ号码"><%=rs("userqq")%></a>	<%else%><FONT COLOR="#7D7D7D">QQ号码未填</FONT><%end if%></td>
      </tr>
    </table>
    </td>
    <td width="100%" class="tablebody3">标题：<b><%=htmlencode(rs("usertitle"))%></b><br>时间：<FONT face="Verdana" SIZE="1" COLOR="#434259"><%=rs("usertime")%></FONT></td>
  </tr>
  <tr>
    <td class="tablebody3" width="100%" height="100" valign="top"><table border="0" cellpadding="5" cellspacing="5" style="border-collapse: collapse table-layout:fixed;word-break:break-all" bordercolor="#111111" width="100%"><tr><td width="100%"><%=ubbcode(rs("usercontent"))%></td></tr></table><%if rs("reply")=1 then%><p><table border="0" align="center" cellpadding="5" cellspacing="1" style="border-collapse: collapse table-layout:fixed;word-break:break-all" bordercolor="#111111" width="95%" class="table1"><tr><td width="100%" class="tablebody1"><FONT COLOR="<%=maincolor%>">管理员回复：<br><FONT SIZE="1" face="Verdana"><%=rs("retime")%></FONT> <br>----------------------------------------------------------<br><%=ubbcode(rs("recontent"))%></FONT></p></td></tr></table><%end if%>
	</td>
  </tr>
<%if session("login")="true" then%><tr><td class="tablebody3" colspan="2" width="17%" align="right"><%if rs("checked")=0 then%><a href='javascript:go("Admin.asp?act=checking&id=<%=rs("id")%>&p=<%=Request.QueryString("page")%>","确定通过审核?")' title="通过审核"><FONT COLOR="red"><B>通过审核</B></FONT></a>&nbsp;&nbsp; <%end if%><a href='javascript:go("Del.asp?id=<%=rs("id")%>&p=<%=Request.QueryString("page")%>","您确定要删除?")' title="删除该文件">删除</a>&nbsp;&nbsp; <%if rs("whisper")=1 then%><FONT COLOR="red"><B>悄悄话留言，无法回复</B></FONT><%else%><a href="JavaScript:openwindow('Reply.asp?id=<%=rs("id")%>',600,500)">回复/编辑回复</a><%end if%>&nbsp;&nbsp;留言IP：<%=rs("ip")%></td></tr><%end if%>
</table>
</div><p>
<%
page_count = page_count + 1
rs.movenext
wend
call pages()
rs.close
set rs=nothing

sub pages()	'------分页代码------------
dim ii,p,n
if totalrec mod perpage=0 then
n= totalrec \ perpage
else
n= totalrec \ perpage+1
end if
if currentpage-1 mod 10=0 then
p=(currentpage-1) \ 10
else
p=(currentpage-1) \ 10
end if
response.write "<table border=0 cellpadding=0 cellspacing=3 width='86%' align=center ><form method=post action=index_main.asp>"&_
"<tr>"&_
"<td valign=middle align=right>页次：<b>"& currentPage &"</b>/<b>"& n &"</b>页, 每页<b>"& rs.PageSize &"</b>条, 共<b>"& totalrec &"</b>条&nbsp;&nbsp;"

if currentPage=1 then
response.write "<font face=webdings>9</font>   "
else
response.write "<a href='?page=1' title=首页><font face=webdings>9</font></a>   "
end if
if p*10>0 then response.write "<a href='?page="&Cstr(p*10)&"' title=上十页><font face=webdings>7</font></a>   "
response.write "<b>"
for ii=p*10+1 to P*10+10
if ii=currentPage then
response.write "<font size=4>"+Cstr(ii)+"</font> "
else
response.write "<a href='?page="&Cstr(ii)&"'>"+Cstr(ii)+"</a>   "
end if
if ii=n then exit for
'p=p+1
next
response.write "</b>"
if ii<n then response.write "<a href='?page="&Cstr(ii)&"' title=下十页><font face=webdings>8</font></a>   "
if currentPage=n then
response.write "<font face=webdings>:</font>   "
else
response.write "<a href='?page="&Cstr(n)&"' title=尾页><font face=webdings>:</font></a>   "
end if
response.write "</form></table>"
end sub
'--------------页面主题显示结束--------
call skin2()
%>