📄 board.asp
字号:
Else
Response.Write rsArticle("rReplyNum")
End If
%>
</div>
</td>
<td width="15%" height="20">
<div align="center">
<%
If rsArticle("rReplyNum")<>0 Then
Response.Write "<font color="&Forum_PTimeColor&">"&TimeNoSecond(rsArticle("rLastReplyTime"))&"</font>"
Else
Response.Write TimeNoSecond(rsArticle("rPostTime"))
End If
%>
</div>
</td>
<td width="12%" height="20">
<div align="center">
<%
If rsArticle("rLastReplyUser")<>"" Then
Response.Write "<a href='User.asp?I="&rsArticle("rLastReplyUser")&"' onFocus='this.blur()'>"&rsArticle("rLastReplyUser")&"</a>"
Else
Response.Write "-----"
End If
%>
</div>
</td>
</tr>
<%
rsArticle.MoveNext
RowNumTop=RowNumTop+1
Wend
rsArticle.Close
While Not rsList.Eof And PageSize>0
%>
<tr bgcolor="<%
If RowNum Mod 2 = 0 Then
Response.Write Forum_AlternateColor1
Else
Response.Write Forum_AlternateColor2
End If
%>">
<td width="4%">
<div align="center"><%
If rsList("rIsNeedPay") Then
If rsList("rPoster")=Session("SUserID") Then
Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"' target='_blank' onFocus='this.blur()' alt='开启新窗口浏览'>"
Else
Response.Write "<a href='javascript:PayAssets("&Forum_ID&","&rsList("rID")&","&rsList("rPayHowMuch")&")' onFocus='this.blur()'>"
End If
Response.Write "<img src='"&Forum_Pic_Pay&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
ElseIf rsList("rIsVote") Then
Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_Post&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
Else
If rsList("rReplyNum")=0 Then
If rsList("rReadNum")>20 Then
Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_HotNew&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
Else
Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_New&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
End If
Else
If rsList("rReplyNum")>10 Then
Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_HotReply&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
Else
Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_Reply&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
End If
End If
End If
%></div>
</td>
<td width="4%" height="20">
<div align="center">
<%
rsList("rLength")=Len(rsList("rContent"))
rsList.Update
LiannLength=rsList("rLength")
If LiannLength>100000 Then
LiannLength="Max"
Else
If LiannLength>1000 Then
LiannLength=Cint(LiannLength/1000)&"k"
End If
End If
Response.Write LiannLength
%>
</div>
</td>
<td width="5%" height="20">
<div align="center">
<%
If rsList("rReadNum")>50 Then
Response.Write "<font color="&Forum_PReadColor&">"&rsList("rReadNum")&"</font>"
Else
Response.Write rsList("rReadNum")
End If
%>
</div>
</td>
<td width="43%" height="22">
<%
LiannTitle=CovHtml(rsList("rTitle"))
If Len(LiannTitle)>26 Then LiannTitle=Left(LiannTitle,25)&".."
If rsList("rIsNeedPay") And rsList("rPoster")<>Session("SUserID") Then
Response.Write "<a href='javascript:PayAssets("&Forum_ID&","&rsList("rID")&","&rsList("rPayHowMuch")&")' onFocus='this.blur()'>"&LiannTitle&"</a>"
Else
If rsList("rIsQuintessence") Then LiannTitle="<font color='"&Forum_PFontColor&"'>◎</font>"&LiannTitle
Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"' onFocus='this.blur()'>"&LiannTitle&"</a>"
End If
If rsList("rReplyNum") Mod Forum_ReplyNum <> 0 Then
ReplyPage=Int(rsList("rReplyNum")/Forum_ReplyNum) + 1
Else
ReplyPage=Int(rsList("rReplyNum")/Forum_ReplyNum)
End If
If ReplyPage>1 Then
Response.Write " "
Response.Write "<img src='"&Forum_Pic_PageNum&"' width='12' height='14' align='absmiddle'>"
For I=1 To ReplyPage
If I<4 Then
Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"&P="&I&"' onFocus='this.blur()'>"&I&"</a>"
Else
Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&rsList("rID")&"&P="&ReplyPage&"' onFocus='this.blur()'>>></a>"
Exit For
End If
Next
End If
%>
</td>
<td width="12%" height="20">
<div align="center"><a href="User.asp?I=<%=rsList("rPosterNickName")%>" onFocus="this.blur()"><%=rsList("rPosterNickName")%></a></div>
</td>
<td width="5%" height="20">
<div align="center">
<%
If rsList("rIsVote") Then
Response.Write rsList("rVoteNum")&"票"
Else
Response.Write rsList("rReplyNum")
End If
%>
</div>
</td>
<td width="15%" height="20">
<div align="center">
<%
If rsList("rReplyNum")<>0 Then
Response.Write "<font color="&Forum_PTimeColor&">"&TimeNoSecond(rsList("rLastReplyTime"))&"</font>"
Else
Response.Write TimeNoSecond(rsList("rPostTime"))
End If
%>
</div>
</td>
<td width="12%" height="20">
<div align="center">
<%
If rsList("rLastReplyUser")<>"" Then
Response.Write "<a href='User.asp?I="&rsList("rLastReplyUser")&"' onFocus='this.blur()'>"&rsList("rLastReplyUser")&"</a>"
Else
Response.Write "------"
End If
%>
</div>
</td>
</tr>
<%
PageSize=PageSize-1
RowNum=RowNum-1
rsList.MoveNext
Wend
%>
<tr bgcolor="<%=Forum_BgColor%>">
<td colspan="8" height="20">
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
<tr>
<form name="form2" method="post" action="Resu.asp">
<td width="461"><a href="Search.asp" onFocus="this.blur()"><img src="Images/BackTo.gif" width="16" height="16" align="absmiddle" border="0" alt="激活高级搜索" style="cursor:hand"></a>
<input type="text" name="K" class="Textfiled_Bottom" size="11" value="请输入关键字" onMouseOver="this.focus()" onFocus="this.select()" onClick="if(this.value=='请输入关键字')this.value=''">
<input type="submit" name="Search" value="搜索" class="Button_None" onFocus="this.blur()">
<input type="hidden" name="S" value="<%=Forum_ID%>">
</td>
</form>
<form name="form1" method="post" action="" onsubmit="return vdf('Page','页码','NinRange1:<%=TotalPage%>');">
<td valign="bottom">
<div align="right">
<%
If CurrentPage<=1 Then
Response.Write "<font color="&Forum_UFontColor&">首页 上页</font>"
Else
Response.Write "<a href='javascript:ToPage(1)' onFocus='this.blur()'>首页</a> <a href='javascript:ToPage("&(Cint(CurrentPage)-1)&")' onFocus='this.blur()'>上页</a>"
End If
Response.Write " <font color='"&Forum_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
If CurrentPage>=TotalPage Then
Response.Write "<font color="&Forum_UFontColor&">下页 末页</font>"
Else
Response.Write "<a href='javascript:ToPage("&(Cint(CurrentPage)+1)&")' onFocus='this.blur()'>下页</a> <a href='javascript:ToPage("&TotalPage&")' onFocus='this.blur()'>末页</a>"
End If
%>
跳转至第
<input type="text" name="Page" class="Textfiled_Bottom" size="1" maxlength="3">
页
<input type="submit" name="Submit" class="Button_None" value="提交" onFocus="this.blur()">
</div>
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=onlineborder>
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" id=online bgcolor="<%=Forum_BorderColor%>">
<tr>
<td valign="top" bgcolor="<%=Forum_OnlineColor%>">
<!--#include file="Inc/Online.asp" -->
</td>
</tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -