📄 fav.asp
字号:
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
If Cint(Session("SLevel"))=0 Then Response.Redirect "Error.asp?Error=5"
State="浏览收藏夹文章"
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td height="20" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<tr>
<td> 您所在的位置： <a href="../" onfocus="this.blur()">首页</a> >>
<a href="List.asp" onFocus="this.blur()">讨论组</a> >> <font color="<%=Forum_ColorList_NavFontColor%>">我的收藏夹</font></td>
<td width="150"></td>
<td width="18">
<div align="center"><img src="<%=Forum_Pic_Open%>" width="15" height="14" border="0" alt="显示个人工具箱" onClick="ShowInfo()" style="CURSOR: hand" id=infoimage align="texttop"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" id=info style="DISPLAY: none" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td valign="top" bgcolor="<%=Forum_ColorList_BgColor%>">
<!--#include file="Inc/Tools.asp" -->
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder style="DISPLAY: none">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
<tr bgcolor="<%=Forum_ColorList_BroadColor%>">
<td height="26" colspan="8">
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
<tr>
<td width="30"><img src="<%=Forum_Pic_Announce%>" width="20" height="16"></td>
<td width="684">请大家查看新系统帮助 </td>
<td width="170">
<div align="right"><a href=# onClick=history.go(-1) onFocus="this.blur()"><img src="Images/BackTo.gif" width="16" height="16" border="0" align="absmiddle">返回</a>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Forum_ColorList_BgColor%>">
<td colspan="8" height="22">
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
<tr>
<td>
<%
set rsFavour=Server.CreateObject("ADODB.Recordset")
Sql="Select * From tUserManage Where rUserID='"&Session("SUserID")&"'"
rsFavour.Open Sql,ConnY,3,3
LiannAray=rsFavour("rFav")
LiannSplit=Split(LiannAray,",")
set rsList=Server.CreateObject("ADODB.Recordset")
Sql="SELECT * FROM tArticleManage WHERE rID=1"
For i=1 To UBound(LiannSplit)
Sql=Sql & " OR rID=" & LiannSplit(i)
Next
rsList.Open Sql,ConnY,3,3
If Not rsList.Eof Then
Dim PageSize
Dim RowNum
rsList.PageSize=25
RowNum=rsList.PageSize
PageSize=rsList.PageSize
If Request("Page")<>"" Then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End If
TotalNum=rsList.RecordCount
If (TotalNum Mod PageSize)=0 Then
TotalPage=TotalNum \ PageSize
Else
TotalPage=TotalNum \ PageSize+1
End If
If CurrentPage<1 Then
CurrentPage=1
End If
If CurrentPage>TotalPage Then
CurrentPage=TotalPage
End If
rsList.Move(CurrentPage-1)*PageSize
End If
%>
收藏贴数：<%=TotalNum%></td>
<td width="400">
<div align="right">| <a href="javascript:this.location.reload()" onFocus="this.blur()"><font color="<%=Forum_ColorList_PFontColor%>">刷新</font></a>
| <a href="Help.asp" onFocus="this.blur()">帮助</a> |</div>
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Forum_ColorList_TitleColor%>">
<td width="4%" height="20"> </td>
<td width="4%" height="20">
<div align="center">字</div>
</td>
<td width="5%" height="20">
<div align="center">浏览</div>
</td>
<td width="43%" height="20">
<div align="center">主题</div>
</td>
<td width="12%" height="20">
<div align="center">作者</div>
</td>
<td width="5%" height="20">
<div align="center">回复</div>
</td>
<td width="15%" height="20">
<div align="center">最新操作时间</div>
</td>
<td width="12%" height="20">
<div align="center">删除</div>
</td>
</tr>
<%
While Not rsList.Eof And PageSize>0
%>
<tr bgcolor="<%
If RowNum Mod 2 = 0 Then
Response.Write Forum_ColorList_AlternateColor1
Else
Response.Write Forum_ColorList_AlternateColor2
End If
%>">
<td width="4%" height="22">
<div align="center"><%
If rsList("rIsNeedPay") Then
If rsList("rPoster")=Session("SUserID") Then
Response.Write "<a href='View.asp?S="&rsList("rSubject")&"&I="&rsList("rID")&"' target='_blank' onFocus='this.blur()' alt='开启新窗口浏览'>"
Else
Response.Write "<a href='javascript:PayAssets("&rsList("rSubject")&","&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="&rsList("rSubject")&"&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="&rsList("rSubject")&"&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="&rsList("rSubject")&"&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="&rsList("rSubject")&"&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="&rsList("rSubject")&"&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="22"><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="22"><div align="center"><%
If rsList("rReadNum")>50 Then
Response.Write "<font color="&Forum_ColorList_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("&rsList("rSubject")&","&rsList("rID")&","&rsList("rPayHowMuch")&")' onFocus='this.blur()'>"&LiannTitle&"</a>"
Else
If rsList("rIsQuintessence") Then LiannTitle="<font color='"&Forum_ColorList_PFontColor&"'>◎</font>"&LiannTitle
Response.Write "<a href='View.asp?S="&rsList("rSubject")&"&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="&rsList("rSubject")&"&I="&rsList("rID")&"&P="&I&"' onFocus='this.blur()'>"&I&"</a>"
Else
Response.Write " <a href='View.asp?S="&rsList("rSubject")&"&I="&rsList("rID")&"&P="&ReplyPage&"' onFocus='this.blur()'>>></a>"
Exit For
End If
Next
End If
%></td><td width="12%" height="22"><div align="center"><a href="User.asp?I=<%=rsList("rPosterNickName")%>" onFocus="this.blur()"><%=rsList("rPosterNickName")%></a></div></td><td width="5%" height="22"><div align="center"><%
If rsList("rIsVote") Then
Response.Write rsList("rVoteNum")&"票"
Else
Response.Write rsList("rReplyNum")
End If
%></div></td><td width="15%" height="22"><div align="center"><%
If rsList("rReplyNum")<>0 Then
Response.Write "<font color='"&Forum_ColorList_PTimeColor&"'>"&TimeNoSecond(rsList("rLastReplyTime"))&"</font>"
Else
Response.Write TimeNoSecond(rsList("rPostTime"))
End If
%></div></td><td width="12%" height="22"><div align="center"><a href="UnFava.asp?I=<%=rsList("rID")%>" onFocus="this.blur()">删除</a></div></td></tr><%
PageSize=PageSize-1
RowNum=RowNum-1
rsList.MoveNext
Wend
%>
<tr bgcolor="<%=Forum_ColorList_BgColor%>">
<td colspan="8" height="20">
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
<tr>
<td> </td>
<form name="form1" method="post" action="" onsubmit="return vdf('Page','页码','NinRange1:<%=TotalPage%>');">
<td width="300" valign="bottom">
<div align="right">
<%
If CurrentPage<=1 Then
Response.Write "<font color='"&Forum_ColorList_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_ColorList_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
If CurrentPage>=TotalPage Then
Response.Write "<font color='"&Forum_ColorList_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="2" 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" bgcolor="<%=Forum_ColorList_BorderColor%>" id=online>
<tr>
<td valign="top" bgcolor="<%=Forum_ColorList_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 + -