📄 list.asp
字号:
<!--#include file="../fuction.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="../webconfig.asp"-->
<% bid=nosql(int(Request.querystring("bid")))
sub banzhu1()
dim str
sql="select * from shop_user where manbid=" &bid
Set rebman=Conn.Execute(sql)
do while not rebman.eof
str="<a href=Userlist_data.asp?username="&rebman("username")&">["&rebman("username")&"]</a>"
rebman.movenext
response.write str
loop
rebman.close
set rebman=nothing
end sub
%>
<html>
<head>
<title><%=bbsname%>-论坛中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom"><%sql="select * from board where bid="&bid&""
Set Rs=Conn.Execute(sql)
bidname=rs("bidname")%>您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14"><a href=index.asp><%=bbsname%></a> → <%=bidname%> → 帖子列表 </span></span></td>
<td valign="bottom"></td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<!--#include file="top.asp"-->
<script language="JavaScript" type="text/JavaScript">
function MM_openBrWindow(theURL,winName,features)
{
window.open(theURL,winName,features);
}
</script>
<%
if rs("rzh")=1 and session("manbid")<>20000 then
username2=rs("username")
username2=trim(username2)
if username2<>"" then
bsort2=split(username2,",")
for i=0 to ubound(bsort2)
bsortb2=bsort2(i)
bsortb2=trim(bsortb2)
'response.write ""&bsortb2&" "'
user_name=session("username")
if instr(user_name,bsortb2)>0 then
if ll=0 then%>
<%call bbs%>
<%else%><%
if session("username")="" then
response.redirect"login.asp"
else%><%call bbs%>
<%end if%>
<%end if
else
response.redirect"login.asp"
end if
next
end if
else
if ll=0 then%>
<%call bbs%>
<%else%><%
if session("username")="" then
response.redirect"login.asp"
else%><%call bbs%>
<%end if%>
<%end if
end if
%>
<%sub bbs()%>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<%Set mm= Server.CreateObject("ADODB.Recordset")
sql="select top 5 * from smallpaper where bid="&bid&" order by ID desc"
mm.open sql,conn,1,1
%>
<TR>
<TD height="20" align=middle>
<div align="left"></div>
<marquee onmouseover='this.stop()' onmouseout='this.start()' scrollAmount='1' width='100%' height='20' align="bottom" scrolldelay="60">
<% do while not mm.eof %>
社区广播： <a href=Userlist_data.asp?username=<%=mm("username")%>>[<%=mm("username")%>]</a>：<a href="#" onClick="MM_openBrWindow('viewpaper.asp?id=<%=mm("id")%>','','width=500,height=400')"><%=mm("title")%></a>
<%
mm.movenext
loop %>
</marquee><div align="right"></div></TD>
</TR>
</TBODY>
</TABLE>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table> <table width="100%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>斑竹:
<%call banzhu1%> </td>
<td width="90" bgcolor="#FFFFFF"><div align="center"><a href="reg.asp" target="_blank"> </a><a href="post.asp?bid=<%=bid%>"><img src="images/fb.gif" width="80" height="20" border="0"></a></div></td>
<td width="90" bgcolor="#FFFFFF"><div align="center"><span class="table-shangxia"><span class="b14" style="font-weight: bold"><span style="color: #000000"><a href="jinhua.asp?bid=<%=bid%>"><img src="images/jh.gif" width="80" height="20" border="0"></a></span></span></span></div> </td>
<td width="90" bgcolor="#FFFFFF"><div align="center"><span class="table-shangxia"><span class="b14" style="font-weight: bold"><span style="color: #000000"><span class="b14" style="font-weight: bold"><span style="color: #000000"><a href="smallpaper.asp?bid=<%=bid%>"><img src="images/xb.gif" width="80" height="20" border="0"></a></span></span></span></span></span></div> </td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -