index.asp

ASP编写的网站

<% Option Explicit %>
<%response.buffer=true%>
<!--#include file="Inc_common.asp"-->
<%
'**************************************
'**    Index.asp
'**
'** 文件说明：留言本首页
'** 修改日期：2004-11-12
'** 作者：HACKer007
'** Email：[e-mail]
'**************************************

if (not isnumeric(request("page"))) then
  errinfo="<li>非法的页面参数！"
  call error()
end if

pagename="查看留言"
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;
}

function openwin(url, width, height)
{
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=0,scrollbars=1,menubar=0,status=1');
}

function openreply()
{
document.viewreply.replycodes.value=document.replyform.replycode.value;
var popupWin = window.open('Viewreply.asp', 'viewreply_page', 'scrollbars=yes,width=700,height=450');
document.viewreply.submit()
}
-->
</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 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
  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)

dim userurl,usermail
  if len(htmlencode(rs("userurl")))>22 then
    userurl = left(htmlencode(rs("userurl")),22)&"..."
  else
    userurl = htmlencode(rs("userurl"))
  end if

  if len(htmlencode(rs("usermail")))>22 then
    usermail = left(htmlencode(rs("usermail")),22)&"..."
  else
    usermail = htmlencode(rs("usermail"))
  end if
%>
<div align="center">
  <table border="0" cellpadding="5" cellspacing="1" width="95%" class="table1" style="border-collapse:collapse;table-layout:fixed;word-break:break-all;word-wrap:break-word">
    <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%><b>管理员公告</b><%else%><b><%=htmlencode(rs("username"))%></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="个人主页"><%=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="电子邮件"><%=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><%if rs("whisper")="1" and not session("login")="true" then%><font COLOR="<%=maincolor%>">悄悄话留言</font><%else%><%=htmlencode(rs("usertitle"))%><%end if%></b><br>
      时间：<font face="Verdana" SIZE="1"><%=rs("usertime")%></font></td>
    </tr>
    <tr>
      <td class="tablebody3" width="100%" height="100%" valign="top">
      <table border="0" cellpadding="5" cellspacing="5" width="100%">
        <tr>
          <td width="100%" height="160" valign="top">
          <%if rs("whisper")="1" and (not session("login")="true") then%><br>
          <p align="right"><img border="0" src="images/whisper.gif"></p>
          <p align="right">状态：<%if not rs("replycode")="" then%>
          <%if rs("reply")=1 then%> <b>已被回复</b></p>
          <p align="right"><%call viewreply(rs("id"))
    else%><b>未被回复</b> <%end if
    else%><b>无法被回复</b> <%end if%> </p>
          <%else
    Response.Write UBBCode(rs("usercontent"))
    if rs("reply")=1 then%><p></p>
          <table border="0" align="center" cellpadding="5" cellspacing="1" width="95%" class="table1">
            <tr>
              <td width="100%" class="tablebody1"><font COLOR="<%=maincolor%>">
              管理员回复：<br>
              <font SIZE="1" face="Verdana"><%=rs("retime")%></font>
              <hr color="<%=maincolor%>" align="left" width="20%" size="1">
              <%=UBBCode(rs("recontent"))%> </font></td>
            </tr>
          </table>
          <%end if%><%end if%></td>
        </tr>
      </table>
      </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 and rs("replycode")="" then%><font COLOR="red"><b>无法回复的悄悄话</b></font><%else%><a href="JavaScript:openwin('Reply.asp?id=<%=rs("id")%>',600,500)"><%if rs("whisper")=1 then%><font COLOR="red"><b>悄悄话回复/编辑回复</b></font><%else%>回复/编辑回复<%end if%></a><%end if%>&nbsp;&nbsp;<a href="JavaScript:openwin('Edit.asp?id=<%=rs("id")%>',600,500)">编辑</a>&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 viewreply(id) '------查看回复的表单------------
%>
      <SCRIPT language=JavaScript>
      <!--
      function submitcheck<%=id%>(){
      if (document.viewreply<%=id%>.replycode.value.length==0){
      alert("请先输入回复查看码！");
      document.viewreply<%=id%>.replycode.focus();
      return false;
      }
      return true
      }

      function openreply<%=id%>()
      {
      document.viewreply<%=id%>.replycode.value=document.replyform<%=id%>.replycode.value;
      var popupWin = window.open('Viewreply.asp?id=<%=id%>', 'viewreply_page', 'resizable=0,scrollbars=1,menubar=0,status=1,width=600,height=500');
      document.viewreply<%=id%>.submit()
      }
      -->
      </script>

      <form action="" method="POST" name="replyform<%=id%>">
      回复查看码：<input name="replycode" type="password" size="10" maxlength="100">&nbsp;
      <input type="button" name="viewreply" value="查看回复" onclick="openreply<%=id%>()">
      </form>
      <form name="viewreply<%=id%>" action="Viewreply.asp?id=<%=id%>" method="post" target="viewreply_page">
      <input type="hidden" name="replycode" value="">
      </form>
<%end sub


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>"&_
"<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 "</table>"
end sub
'--------------页面主题显示结束--------
call skin2()
%>