⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 本留言板界面简洁、美观
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    MM_paramList = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For MM_paramIndex = 0 To UBound(MM_paramList)
      MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
      If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then 
  MM_keepMove = MM_keepMove & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast  = MM_urlStr & "-1"
MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
  MM_movePrev = MM_urlStr & "0"
Else
  MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>海啸留言板（测试版）</title>
<link href="css/css.css" type="text/css" rel="stylesheet">
</head>

<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><br>
      <table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="91" align="center" bgcolor="#eeeeee"><a href="add.asp"><font color="#0000FF">发表新主题</font></a></td>
          <td width="316" align="center" bgcolor="#eeeeee">
		  <marquee scrolldelay="120"  scrollamount="2">
            <font color="#FF0000">欢迎来到海啸留言板，本版本为测试版本，欢迎大家留言，谢谢！！</font> 
            </marquee></td>
          <td width="108" align="center" bgcolor="#eeeeee"><a href="login.asp">管理入口</a></td>
          <td width="85" height="20" align="center" bgcolor="#eeeeee"><a href="<%= MM_Logout %>">退出登陆</a></td>
        </tr>
      </table> 
      <br>
      <% If Not guestbook.EOF Or Not guestbook.BOF Then %>
      <% 
While ((Repeat1__numRows <> 0) AND (NOT guestbook.EOF)) 
%>
      <table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#666666">
        <tr bgcolor="#FFFFFF"> 
          <td width="77" align="center" bgcolor="#FFFFFF">姓名</td>
          <td width="96" align="center" bgcolor="#eeeeee"><%=(guestbook.Fields.Item("name").Value)%></td>
          <td width="54" align="center" bgcolor="#FFFFFF">来自</td>
          <td width="128" align="center" bgcolor="#eeeeee"><%=(guestbook.Fields.Item("address").Value)%></td>
          <td width="219" align="center" bgcolor="#FFFFFF"> <table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="66"></td>
                <td width="25"><img src="images/gb_oicq.gif" alt="<%=(guestbook.Fields.Item("name").Value)%>的OICQ号码是<%=(guestbook.Fields.Item("oicq").Value)%>" width="13" height="11"></td>
                <td width="19"><a href="mailto:<%=(guestbook.Fields.Item("email").Value)%>"><img src="images/gb_mail.gif" width="13" height="11" border="0"></a></td>
                <td width="36"><a href="http://<%=(guestbook.Fields.Item("homepage").Value)%>" target="_blank"><img src="images/gb_site.gif" width="11" height="11" border="0"></a></td>
                <td width="41" align="center"><A HREF="reg.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & guestbook.Fields.Item("ID").Value %>"><font color="#666666">回复</font></A></td>
                <td width="34" align="center"><A HREF="edit.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & guestbook.Fields.Item("ID").Value %>"><font color="#666666">编辑</font></A></td>
                <td width="37" align="center"><A HREF="del.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & guestbook.Fields.Item("ID").Value %>"><font color="#666666">删除</font></A></td>
              </tr>
            </table></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td width="77" align="center" bgcolor="#FFFFFF">留言主题</td>
          <td colspan="4" align="center"><table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><%=(guestbook.Fields.Item("title").Value)%></td>
              </tr>
            </table></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td align="center" bgcolor="#FFFFFF">留言内容</td>
          <td colspan="4" align="center" bgcolor="#eeeeee"><table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="50"><%=(guestbook.Fields.Item("content").Value)%></td>
              </tr>
              <tr> 
                <td align="right"><font color="#666666">[<%=(guestbook.Fields.Item("name").Value)%>发表于<%=(guestbook.Fields.Item("time").Value)%>]</font></td>
              </tr>
            </table></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td align="center" bgcolor="#FFFFFF">站长回复</td>
          <td colspan="4" align="center"> <table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><font color="#006666"><%=(guestbook.Fields.Item("repcontent").Value)%></font></td>
              </tr>
            </table></td>
        </tr>
      </table>
	  <table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><hr></td>
        </tr>
      </table>
	  	        <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  guestbook.MoveNext()
Wend
%>
   <br>
<table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="486" align="center" bgcolor="#eeeeee">目前共有<%=(guestbook_total)%>条留言 　当前显示第<%=(guestbook_first)%>条留言到第<%=(guestbook_last)%>条留言</td>
          <td width="114" align="center" bgcolor="#eeeeee"><table border="0" width="100%" align="center">
              <tr> 
                <td width="23%" align="center"> <% If MM_offset <> 0 Then %>
                  <a href="<%=MM_moveFirst%>"><img src="First.gif" border=0></a> 
                  <% End If ' end MM_offset <> 0 %> </td>
                <td width="31%" align="center"> <% If MM_offset <> 0 Then %>
                  <a href="<%=MM_movePrev%>"><img src="Previous.gif" border=0></a> 
                  <% End If ' end MM_offset <> 0 %> </td>
                <td width="23%" align="center"> <% If Not MM_atTotal Then %>
                  <a href="<%=MM_moveNext%>"><img src="Next.gif" border=0></a> 
                  <% End If ' end Not MM_atTotal %> </td>
                <td width="23%" align="center"> <% If Not MM_atTotal Then %>
                  <a href="<%=MM_moveLast%>"><img src="Last.gif" border=0></a> 
                  <% End If ' end Not MM_atTotal %> </td>
              </tr>
            </table>
</td>
        </tr>
      </table><% End If ' end Not guestbook.EOF Or NOT guestbook.BOF %>
      <% If guestbook.EOF And guestbook.BOF Then %>
      <table width="600" border="0" cellspacing="0" cellpadding="0"  align="center">
        <tr> 
          <td height="20" align="center" bgcolor="#eeeeee">暂无留言</td>
        </tr>
      </table>
      <% End If ' end guestbook.EOF And guestbook.BOF %> 
	  <table width="600" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td><hr></td>
        </tr>
        <tr> 
          <td height="20" align="center">版权所有 <a href="http://www.haixo.com" target="_blank">海啸设计</a> 
            　　Designed by <a href="http://www.haixo.com" target="_blank">HaiXo</a> 
            　　<font color="#666666">当前版本：V1.0</font></td>
        </tr>
      </table>
	  </td>
  </tr>
</table>
</body>
</html>
<%
guestbook.Close()
Set guestbook = Nothing
%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -