📄 page_inc.asp
字号:
<div id="block-body">
<% For n=DividePage(PageSize,RecordCount)(0) to DividePage(PageSize,RecordCount)(1) %>
<div id="block">
<div class="title">
<% If Session("manager")="login" Then %>
<span class="title-frame">
<a href="process.asp?action=deleterecord&ID=<% =rsrow(0,n) %>" title="删除留言">
<span class="title-a_link"><img src="images/icon/m1.gif" alt="" height="16" border="0"> Delete </span>
</a>
</span>
<% End If %>
<% If theme<>0 Then
sql_block_check_UserAction="select reply from "&tbname&" where dbtype="&block&" and themeNo=0"
set block_check_UserAction_rs=GetRS(mdbname,tbname,sql_block_check_UserAction)
block_check_UserAction_row=block_check_UserAction_rs.GetRows
End If %>
<% If theme<>0 And mode=0 And n=0 then %>
<% If Session("manager")="login" Or block_check_UserAction_row(0,0)<>2 Then %>
<span class="title-frame">
<a href="image.asp?ID=<% =rsrow(0,n) %>&mode=6" title="回复此主题">
<span class="title-a_link"><img src="images/icon/m5.gif" alt="" height="16" border="0"> Reply Theme </span>
</a>
</span>
<% End If %>
<% End If %>
<% If theme<>0 And mode=0 And n=0 then %>
<% If Session("manager")="login" Or block_check_UserAction_row(0,0)=0 Then %>
<span class="title-frame">
<a href="image.asp?ID=<% =rsrow(0,n) %>&mode=3" title="发表新主题">
<span class="title-a_link"><img src="images/icon/b1.gif" alt="" height="16" border="0"> New Theme </span>
</a>
</span>
<% End If %>
<% End If %>
<% If Not (n=0 And block<>0) then %>
<span class="title-frame" id="quote<% =rsrow(0,n) %>" style="display: none" onmouseover="document.getElementById('quote<% =rsrow(0,n) %>').style.display='block';document.getElementById('reply<% =rsrow(0,n) %>').style.display='block';" onmouseout="document.getElementById('quote<% =rsrow(0,n) %>').style.display='none';document.getElementById('reply<% =rsrow(0,n) %>').style.display='none';">
<a href="image.asp?ID=<% =rsrow(0,n) %>&mode=5" title="引用这段留言">
<span class="title-a_link"><img src="images/icon/t3.gif" alt="" height="16" border="0">Quote</span>
</a>
</span>
<% End If %>
<% If Not n=0 then %>
<span class="title-frame" id="reply<% =rsrow(0,n) %>" style="display: none" onmouseover="document.getElementById('quote<% =rsrow(0,n) %>').style.display='block';document.getElementById('reply<% =rsrow(0,n) %>').style.display='block';" onmouseout="document.getElementById('quote<% =rsrow(0,n) %>').style.display='none';document.getElementById('reply<% =rsrow(0,n) %>').style.display='none';">
<a href="image.asp?ID=<% =rsrow(0,n) %>&mode=4" title="回复此人的留言">
<span class="title-a_link"><img src="images/icon/t2.gif" alt="" height="16" border="0">Reply</span>
</a>
</span>
<% End If %>
<span class="title-frame" onmouseover="document.getElementById('quote<% =rsrow(0,n) %>').style.display='block';document.getElementById('reply<% =rsrow(0,n) %>').style.display='block';" onmouseout="document.getElementById('quote<% =rsrow(0,n) %>').style.display='none';document.getElementById('reply<% =rsrow(0,n) %>').style.display='none';">
<a href="javascript:;" class="retain" title="这是第<% =n+1 %>楼">
<span class="title-a_link"><img src="images/icon/i6.gif" alt="" height="16" border="0">
<% If theme<>0 then %>
Floor <% =n+1 %>
<% ElseIf mode=0 Or mode=7 then %>
Floor <% =rs.RecordCount-n %>
<% End If %>
</span>
</a>
</span>
<% If n=0 And (mode=0 Or mode=7) And block=0 then %>
<span class="title-frame">
<a href="image.asp" title="签写留言">
<span class="title-a_link"><img src="images/icon/b1.gif" alt="" height="16" border="0"> Sign </span>
</a>
</span>
<% End If %>
</div>
<div class="frame-top"></div>
<div class="frame-body">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="frame-left"></td>
<td class="name">
<div class="name-image">
<img src="<% =ImageSrc(rsrow(3,n)) %>" height="70">
</div>
<span class="name-text">
<% =rsrow(1,n) %>
</span>
</td>
<td class="frame-main">
<div class="note">
<div class="note-text">
<% If mode=2 and n=0 then %>
<span class="note-text-list-image"><img src="images/icon/m4.gif" alt="" height="12"></span>
<span class="note-text-title-text"><% =rsrow(18,n) %></span>
<br>
<% End If %>
<% If theme<>0 And n=0 Then %>
<%
sql_theme="select themeName from "&tbname&" where dbtype="&block&" and themeNo="&theme
set theme_rs=GetRS(mdbname,tbname,sql_theme)
theme_row=theme_rs.GetRows
%>
<div class="note-text-list-text2">
<span class="note-text-list-image"><img src="images/icon/m4.gif" alt="" height="12"></span>
<% =theme_row(0,0) %>
</div>
<%
theme_rs.Close
Set theme_rs=Nothing
%>
<% End If %>
<% If rsrow(16,n)<>"" And Not(theme<>0 And n=0) then %>
<span class="note-text-reply">回复 <% =rsrow(14,n) %> 在 <% =rsrow(16,n) %> 的留言:</span>
<br>
<% ElseIf rsrow(15,n)<>"" And Not(theme<>0 And n=0) then %>
<span class="note-text-reply">引用 <% =rsrow(14,n) %> 的留言:</span>
<br>
<div class="note-text-quote"><% =rsrow(15,n) %></div>
<% End If %>
<% If rsrow(8,n)="jpg" Then %>
<img src="<% =rsrow(9,n) %>" border="0" onload="if(this.width>460)this.width=460">
<br>
<br>
<% ElseIf rsrow(8,n)="mp3" Then %>
<% browser=Split(Request.Servervariables("HTTP_USER_AGENT"),";") %>
<% If browser(1)=" U" then %>
<embed height="45" width="280" volume="280" autostart="0" src='<% =rsrow(9,n) %>' loop="-1">
<% Else %>
<embed src="<% =rsrow(9,n) %>" width="280" height="150" autostart=false volume=160 showdisplay="true" showstatusbar="true">
<% End If %>
<br>
<% ElseIf rsrow(8,n)="wmv" Then %>
<% browser=Split(Request.Servervariables("HTTP_USER_AGENT"),";") %>
<% If browser(1)=" U" then %>
<embed height="400" width="460" volume="280" autostart="0" src='<% =rsrow(9,n) %>' loop="-1">
<br>
<br>
<% Else %>
<embed src="<% =rsrow(9,n) %>" width="460" height="400" autostart=false volume=160 displaysize="0" showdisplay="true" showstatusbar="true">
<% End If %>
<% ElseIf rsrow(8,n)="swf" Then %>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="460" height="300">
<param name="movie" value="<% =rsrow(9,n) %>" />
<param name="quality" value="best" />
<param name="play" value="true" />
<embed pluginspage="http://www.macromedia.com/go/getflashplayer" src="<% =rsrow(9,n) %>" type="application/x-shockwave-flash" width="460" height="300" quality="best" play="true"></embed>
</object>
<br>
<% End If %>
<% =Htmlencode2(Server.HTMLEncode(rsrow(2,n))) %>
<% If rsrow(8,n)="rar" Then %>
<div class="media-download">
<span class="media-download-image"><img src="images/icon/b7.gif" alt="" border="0"></span>
<span class="media-download-text"><a href="<% =rsrow(9,n) %>" target="_blank">点击下载附件</a></span>
</div>
<% End If %>
</div>
</div>
<div class="info">
<span class="face-image"><img src="images/face/little/f<% =rsrow(4,n) %>.gif" alt="" align="absbottom"></span>
<span class="face-text"><% =rsrow(5,n) %></span>
<span class="date-text"><% =rsrow(7,n) %></span>
<span class="date-image"><img src="images/weather/weather_<% =rsrow(6,n) %>.gif" alt=""></span>
<% If rsrow(10,n)<>"" Then %>
<span class="message-frame">
<a href="Javascript:;" title=" Q Q：<% =rsrow(10,n) %>">
<span class="message-text">QQ</span>
</a>
</span>
<% End If %>
<% If rsrow(11,n)<>"" Then %>
<span class="message-frame">
<a href="mailto:<% =rsrow(11,n) %>" title="Email：<% =rsrow(11,n) %>">
<span class="message-text">Email</span>
</a>
</span>
<% End If %>
<% If rsrow(12,n)<>"" Then %>
<span class="message-frame">
<a href="<% =rsrow(12,n) %>" title="Homepage：<% =rsrow(12,n) %>">
<span class="message-text">Homepage</span>
</a>
</span>
<% End If %>
<% If rsrow(13,n)<>"" Then %>
<span class="message-frame">
<a href="Javascript:;" title="Phone：<% =rsrow(13,n) %>">
<span class="message-text">Phone</span>
</a>
</span>
<% End If %>
<span class="message-frame">
<a href="Javascript:;" title="游客,IP=<% =rsrow(17,n) %>">
<span class="message-text">Visitor</span>
</a>
</span>
<span class="message-image"><img src="images/icon/i3.gif" alt="" height="16" border="0"></span>
</div>
</div>
</td>
<td class="frame-right"></td>
</tr>
</table>
</div>
<div class="frame-bottom"></div>
</div>
<% Next %>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -