?? index.asp
字號(hào):
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>海嘯留言板（測(cè)試版）</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">發(fā)表新主題</font></a></td>
<td width="316" align="center" bgcolor="#eeeeee">
<marquee scrolldelay="120" scrollamount="2">
<font color="#FF0000">歡迎來到海嘯留言板，本版本為測(cè)試版本，歡迎大家留言，謝謝！！</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號(hào)碼是<%=(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">回復(fù)</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">留言內(nèi)容</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)%>發(fā)表于<%=(guestbook.Fields.Item("time").Value)%>]</font></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center" bgcolor="#FFFFFF">站長回復(fù)</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)%>條留言 當(dāng)前顯示第<%=(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">版權(quán)所有 <a href="http://www.haixo.com" target="_blank">海嘯設(shè)計(jì)</a>
Designed by <a href="http://www.haixo.com" target="_blank">HaiXo</a>
<font color="#666666">當(dāng)前版本：V1.0</font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
guestbook.Close()
Set guestbook = Nothing
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -