📄 index.asp
字号:
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
%>
<title><%=(xt.Fields.Item("name").Value)%></title>
<link href="css.css" rel="stylesheet" type="text/css">
<body background="images/forum_bgcolor.gif">
<table width="600" border="0" align="center" cellspacing="1">
<tr>
<td>
<div align="center"><img src="images/banner.gif" width="600" height="125"></div>
</td>
</tr>
</table>
<table width="600" border="0" align="center" cellspacing="0">
<tr>
<td background="images/hh3.jpg" height="2"> <marquee height=20 hspace=5 loop=100 scrollamount=2
scrolldelay=10 width=100% on="left" DIRECTI
align="center"><font color="#0066cc"><img src="images/gg.gif" width="15" height="15"><%=(xt.Fields.Item("news").Value)%></font></marquee></td>
</tr>
</table>
<table width="600" border="0" align="center" cellspacing="1" bgcolor="#66CC00">
<tr>
<td width="332" bgcolor="#FFFFFF"> <a href="<%=(xt.Fields.Item("web").Value)%>"><img src="<%=(xt.Fields.Item("logo").Value)%>" border="0"></a>
</td>
<td width="261" bgcolor="#FFFFFF">
<table width="260" border="0" cellspacing="0" cellpadding="0" height="30" bgcolor="#FFFFFF">
<tr>
<td background="images/bg11.gif" align="center" width="65" bgcolor="#FFFFFF"><a href="new.asp">留
言</a></td>
<td background="images/bg11.gif" align="center" width="65" bgcolor="#FFFFFF"><a href="login.asp">管
理</a></td>
<td background="images/bg11.gif" align="center" width="65" bgcolor="#FFFFFF"><a href="xt.asp">系
统</a></td>
<td background="images/bg11.gif" align="center" width="65" bgcolor="#FFFFFF"><a href="<%=(xt.Fields.Item("web").Value)%>">首
页</a></td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"><img src="images/bdfg1.gif" width="600" height="15" align="middle">
</div>
<% If Not guest.EOF Or Not guest.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT guest.EOF))
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#FFFFFF">
<td width="60" align="center" background="images/2_22.gif">姓名：</td>
<td colspan="2">
<table width="100%" border="0" cellspacing="2" cellpadding="0" background="images/2_22.gif" height="24">
<tr>
<td width="430"><%=(guest.Fields.Item("f_name").Value)%></td>
<td align="center"><img src="images/icon_editor_oicq.gif" alt="<%=(guest.Fields.Item("f_name").Value)%>的OICQ号码是<%=(guest.Fields.Item("f_oicq").Value)%>" width="16" height="16"></td>
<td align="center"><a href="mailto:<%=(guest.Fields.Item("f_email").Value)%>"><img src="images/icon_email.gif" alt="<%=(guest.Fields.Item("f_name").Value)%>的Email是<%=(guest.Fields.Item("f_email").Value)%>" width="16" height="16" border="0"></a></td>
<td align="center"><a href="<%=(guest.Fields.Item("f_homepage").Value)%>" target="_blank"><img src="images/icon_homepage.gif" alt="<%=(guest.Fields.Item("f_name").Value)%>的主页是<%=(guest.Fields.Item("f_homepage").Value)%>" width="16" height="16" border="0"></a></td>
<td align="center"><A HREF="rep.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & guest.Fields.Item("id").Value %>"><img src="images/icon_reply_topic.gif" width="16" height="16" border="0" alt="站长回复"></A></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="60" align="center" bgcolor="#F1F2F3">内容：
<td colspan="2" bgcolor="#F1F2F3">
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="100%"style="word-break:break-all"><%= DoWhiteSpace(guest.Fields.Item("f_content").Value)%>
</tr>
<tr>
<td align="right"><%=(guest.Fields.Item("f_name").Value)%>留言于<%=(guest.Fields.Item("f_time").Value)%></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="60" align="center" bgcolor="#F9FAFB">回复：
<td width="447" bgcolor="#F9FAFB"><%=(guest.Fields.Item("f_repcontent").Value)%></td>
<td width="69" bgcolor="#F1F2F3"><a href="edit.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & guest.Fields.Item("id").Value %>"><img src="images/Edit.gif" width="52" height="18" border="0"></a><br>
<a href="del.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & guest.Fields.Item("id").Value %>"><img src="images/a_delete.gif" width="52" height="16" border="0"></a>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="3" align="center" height="30" background="images/catbg.gif"> </td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="right" valign="top"><img src="images/bdfg1.gif" width="98%" height="15"></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
guest.MoveNext()
Wend
%>
<% End If ' end Not guest.EOF Or NOT guest.BOF %>
<% If guest.EOF And guest.BOF Then %>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>暂无留言！</tr>
</table>
<% End If ' end guest.EOF And guest.BOF %>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>当前共<%=(guest_total)%>条留言，显示的是第<%=(guest_first)%>-<%=(guest_last)%>条留言。
</tr>
</table>
<table border="0" width="20%" 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><script language="JavaScript">
<!--
var boodschap = '这里是<%=(xt.Fields.Item("name").Value)%>，欢迎光临！';
function dgstatus()
{
window.status = boodschap;
timerID= setTimeout("dgstatus()", 80);
}
dgstatus();
var Flag=0
//-->
</SCRIPT>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" background="images/hh3.jpg">版权所有：<a href="http://www.casecatch.net">『法家村』工作室</a>
一叶飘香留言本v1.0</td>
</tr>
</table>
<%
guest.Close()
Set guest = Nothing
%>
<%
xt.Close()
Set xt = Nothing
%>
<SCRIPT language=JavaScript1.2>
<!--
tPopWait=50;
tPopShow=50000;
showPopStep=10;
popOpacity=100;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText { background-color: #FFFFFF; border: 1px #000000 solid; font-size: 12px; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;' class='cPopText'></div>");
function showPopupText(){
var o=event.srcElement;
MouseX=event.x;
MouseY=event.y;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.dypop!=sPop) {
sPop=o.dypop;
clearTimeout(curShow);
clearTimeout(tFadeOut);
clearTimeout(tFadeIn);
clearTimeout(tFadeWaiting);
if(sPop==null || sPop=="") {
dypopLayer.innerHTML="";
dypopLayer.style.filter="Alpha()";
dypopLayer.filters.Alpha.opacity=0;
}
else {
if(o.dyclass!=null) popStyle=o.dyclass
else popStyle="cPopText";
curShow=setTimeout("showIt()",tPopWait);
}
}
}
function showIt(){
dypopLayer.className=popStyle;
dypopLayer.innerHTML=sPop;
popWidth=dypopLayer.clientWidth;
popHeight=dypopLayer.clientHeight;
if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
else popLeftAdjust=0;
if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
else popTopAdjust=0;
dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
dypopLayer.style.filter="Alpha(Opacity=0)";
fadeOut();
}
function fadeOut(){
if(dypopLayer.filters.Alpha.opacity<popOpacity) {
dypopLayer.filters.Alpha.opacity+=showPopStep;
tFadeOut=setTimeout("fadeOut()",1);
}
else {
dypopLayer.filters.Alpha.opacity=popOpacity;
tFadeWaiting=setTimeout("fadeIn()",tPopShow);
}
}
function fadeIn(){
if(dypopLayer.filters.Alpha.opacity>0) {
dypopLayer.filters.Alpha.opacity-=1;
tFadeIn=setTimeout("fadeIn()",1);
}
}
document.onmouseover=showPopupText;
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -