📄 f.asp
字号:
<!--#include file="boardconn.asp"-->
<!--#include file="inc/sql.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ip.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/validitycheck.asp"-->
<% call validitycheck("founduser",0) %>
<!--#include file="inc/postubb.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
fqys=request.servervariables("query_string")
dim nothis(18)
nothis(0)="net user"
nothis(1)="xp_cmdshell"
nothis(2)="/add"
nothis(3)="exec%20master.dbo.xp_cmdshell"
nothis(4)="net localgroup administrators"
nothis(5)="select"
nothis(6)="count"
nothis(7)="asc"
nothis(8)="char"
nothis(9)="mid"
nothis(10)="'"
nothis(11)=":"
nothis(12)=""""
nothis(13)="insert"
nothis(14)="delete"
nothis(15)="drop"
nothis(16)="truncate"
nothis(17)="from"
nothis(18)="%"
errc=false
for i= 0 to ubound(nothis)
if instr(FQYs,nothis(i))<>0 then
errc=true
end if
next
if errc then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<HTML>
<HEAD>
<TITLE>收藏帖子 - <%=HOST_NAME%> - <%=HOST_LIST%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=GB2312">
<link rel="shortcut icon" href="images/bbs.ico">
<link href="style/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function form1_onsubmit() {
if (document.form1.Key.value=="")
{
alert("友情提示!\n\n请完整输入贴吧名称!")
document.form1.Key.focus()
return false
}
}
// -->
</script>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
<TBODY>
<TR>
<TD width=1% height=20 bgColor=<%=HOST_TITLE%>></TD><TD width=99% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="index.asp"><font color=<%=HOST_FONT%>>首页</font></a> <font color=<%=HOST_FONT%>>></font> <font color=<%=HOST_FONT%>><u>收藏帖子</u></font></TD></TR></TBODY></TABLE>
<% if LCase(Request.QueryString("/")) = "a" then %>
<%
Dim Favorite
Sql="select Favorite from QiQiBoy_Topic_Disp where TopicID="&CInt(Request.QueryString("T"))
Set Rs=Conn.execute(Sql)
Favorite=trim(Rs(0))
if isnull(Instr(Favorite,"|"&UserName&"|")) or Instr(Favorite,"|"&UserName&"|") = 0 then
Sql="Update QiQiBoy_Topic_Disp set Favorite='"&Favorite&"|"&UserName&"|' where ParentID=0 and TopicID="&CInt(Request.QueryString("T"))
Conn.execute(Sql)
end if
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20"></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20" align=center class=INDEX_XMALL><u>友情提示:帖子加入收藏夹完毕!!!</u></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD class=INDEX_XMALL colspan="2" width="90%" height="20" align=center><a href="#" onClick="javascript:history.go(-1);"><b>返回阅读的主题</b></a></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20" class=INDEX_XMALL align=center><a href="f.asp"><b>我的收藏夹</b></a></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR></TBODY></TABLE>
<% else %>
<% if LCase(Request.QueryString("/")) = "d" then %>
<%
Sql="select Favorite from QiQiBoy_Topic_Disp where TopicID="&CInt(Request.QueryString("T"))
Set Rs=Conn.execute(Sql)
Favorite=Rs(0)
if Instr(Favorite,"|"&UserName&"|") > 0 then
Favorite=Replace(Favorite,"|"&UserName&"|","")
if Favorite="" then Favorite=" "
Sql="Update QiQiBoy_Topic_Disp set Favorite='"&Favorite&"' where ParentID=0 and TopicID="&CInt(Request.QueryString("T"))
Conn.execute(Sql)
end if
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20"></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20" align=center class=INDEX_XMALL><u>友情提示:删除收藏夹帖子完毕!!!</u></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20" class=INDEX_XMALL align=center><a href="f.asp"><b>我的收藏夹</b></a></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR></TBODY></TABLE>
<% else %>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD class=INDEX_XMALL width="5%" align=center height="20" bgColor=#eeeeee>删除</TD>
<TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>点击数</TD>
<TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>回帖数</TD>
<TD class=INDEX_XMALL width="40%" height="20" bgColor=#eeeeee>帖子主题</TD>
<TD class=INDEX_XMALL width="9%" height="20" bgColor=#eeeeee>发表作者</TD>
<TD class=INDEX_XMALL width="9%" height="20" bgColor=#eeeeee>最后回帖</TD>
<TD class=INDEX_XMALL width="12%" height="20" bgColor=#eeeeee>回帖时间</TD>
<TD class=INDEX_XMALL width="11%" height="20" bgColor=#eeeeee>所属贴吧</TD></TR>
<%
Dim MyPageSize,MyPage
Page=CInt(Request.QueryString("T"))
MyPageSize = 50
If Not IsNumeric(Page) Or IsEmpty(Page) Or Page <=0 Then
MyPage=1
else
MyPage=Abs(Page)
end if
set rs=server.CreateObject("ADODB.RecordSet")
Sql="select * from QiQiBoy_Topic_Disp where ParentID=0 and Favorite like '%%|"&UserName&"|%%' order by TopicID desc"
rs.Open sql,conn,1,1
if not rs.eof then
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
Total = rs.RecordCount
rs.absolutepage = MyPage
end if
dim i
Counter=0
%>
<%
for i = 1 to MyPageSize
if not rs.eof then
bgcolor="#ffffff"
if i mod 2 = 0 then
bgcolor=""&HOST_BODY&""
else
bgcolor="#ffffff"
end If
Child=rs("BoardChild")
Sql_Board="select * from QiQiBoy_Board_Disp where BoardChild="&Child
set rs_Board=server.createobject("adodb.recordset")
rs_Board.Open Sql_Board,conn,1,1
BoardName=rs_Board("BoardName")
%>
<%
TopicIp=rs("TopicIp")
ReplyIp=rs("ReplyIp")
Call IpArray(TopicIp)
Call IpArray(ReplyIp)
%>
<TR bgcolor="<%=bgcolor%>">
<TD class=INDEX_XMALL height="28" align="middle"><a href="?/=D&T=<%=Rs("TopicID")%>" target="_self">Ｘ</a></TD>
<TD class=INDEX_XMALL height="28" align="middle"><%Response.Write(rs(13))%></TD>
<TD class=INDEX_XMALL height="28" align="middle"><%Response.Write(rs(14))%></TD>
<TD class=INDEX_TMALL height="28"><%Call CheckContent_Gif%><% if Rs("Status")=5 then response.Write("[<font color=#cc0000>精华</font>]") else response.Write("") end if %><A href="p.asp?/=<%Response.Write(rs(2))%>"><%Response.Write(HTMLCode(rs(8)))%></A></TD>
<TD class=INDEX_XMALL height="28"><% if Rs("UserName")="" then response.Write(""&TopicIp&"") else response.Write("<a href=u.asp?/="&Server.UrlEncode(Rs("UserName"))&" target=_blank>"&HTMLCode(Rs("UserName"))&"</a>") end if %></TD>
<TD class=INDEX_XMALL height="28"><% if Rs("LastPost")="" then response.Write(""&ReplyIp&"") else response.Write("<a href=u.asp?/="&Server.UrlEncode(Rs("LastPost"))&" target=_blank>"&HTMLCode(Rs("LastPost"))&"</a>") end if %></TD>
<TD class=INDEX_XMALL height="28"><%Response.Write(rs(12))%></TD>
<TD class=INDEX_XMALL height="28"><A href="t.asp?/=<%=Server.UrlEncode(BoardName)%>"><%=HTMLCode(BoardName)%></A></TD></TR>
<%
else
exit for
end if
rs.movenext
Next
%>
<tr>
<td colspan="8" width="100%" height="30" class=INDEX_XMALL>
<%
response.Write("共有收藏主题数 <font color=#cc0000>"&Total&"</font> 篇, ")
response.Write("[<a href=""?T=1"" title=""第一页""><<</a>] ")
if MyPage > 1 then
response.Write("[<a href=""?T="&MyPage-1&""" title=""上一页""><</a>] ")
end if
if (MyPage >= 5 and MaxPages-MyPage <1) then response.Write("[<a href=""?T="&MyPage-4&""">"&MyPage-4&"</a>] ")
if (MyPage >= 4 and MaxPages-MyPage <2) then response.Write("[<a href=""?T="&MyPage-3&""">"&MyPage-3&"</a>] ")
if MyPage >=3 then response.Write("<a href=""?T="&MyPage-2&""">["&MyPage-2&"]</a> ")
if MyPage >=2 then response.Write("<a href=""?T="&MyPage-1&""">["&MyPage-1&"]</a> ")
response.Write("[<u>"&MyPage&"</u>] ")
if MaxPages-MyPage >=1 then response.Write("[<a href=""?T="&MyPage+1&""">"&MyPage+1&"</a>] ")
if MaxPages-MyPage >=2 then response.Write("[<a href=""?T="&MyPage+2&""">"&MyPage+2&"</a>] ")
if (MyPage <3 and MaxPages-MyPage >=3) then response.Write("[<a href=""?T="&MyPage+3&""">"&MyPage+3&"</a>] ")
if (MyPage <2 and MaxPages-MyPage >=4) then response.Write("[<a href=""?T="&MyPage+4&""">"&MyPage+4&"</a>] ")
if (MyPage <1 and MaxPages-MyPage >=5) then response.Write("[<a href=""?T="&MyPage+5&""">"&MyPage+5&"</a>] ")
if MyPage < MaxPages then
response.Write("[<a href=""?T="&MyPage+1&""" title=""下一页"">></a>] ")
end if
response.Write("[<a href=""?T="&MaxPages&""" title=""最后页"">>></a>]")
%>
</td>
</tr>
<%
rs.close
Set rs=NOTHING
conn.Close
set conn=nothing
%>
</TBODY></TABLE>
<% end if %>
<% end if %>
<!--#include file="end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -