📄 jinhua.asp

📁 购物系统(本版为正式商业版
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="../webconfig.asp"-->
<!--#include file="../fuction.asp"-->
<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">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14"><a href=index.asp><%=bbsname%></a> → 精华帖子 <a href="post.asp?bid=<%=bid%>">发表新帖子</a> <a href="jinhua.asp?bid=<%=bid%>">本版精华</a> <a href="smallpaper.asp?bid=<%=bid%>">小字报</a></span></span></td>
    <td valign="bottom"></td>
  </tr>
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
</table>
<!--#include file="top.asp"-->
<% bid=nosql(int(Request.querystring("bid")))
sql="select * from board where bid="&bid&""
Set Rs=Conn.Execute(sql)
bidname=rs("bidname")

rs.close
sub banzhu1()
dim str
sql="select * from shop_user where manbid=" &bid                      
Set rebman=Conn.Execute(sql)                                         
if rebman.eof and rebman.bof then
str=str&"本版诚聘版主"
else
do while not rebman.eof
str=str&" <a href=Userlist_data.asp?username="&rebman("username")&">["&rebman("username")&"]</a>"
rebman.movenext   
response.write str                                                   
loop                                                                   
end if 
rebman.close
set rebman=nothing 
end sub 
%>
<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 width="10%" align=middle>
                    <div align="center">社区广播：</div></TD>
                  <TD width="68%" height=20 align=middle class=searchdown>
                    <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>&nbsp;&nbsp;&nbsp;&nbsp;
                    <%                             
mm.movenext                                              
loop %>
                  </marquee> </TD>
                  <TD width="22%" align=middle class=searchdown><div align="right">斑竹:
                          <%call banzhu1%>
                  </div></TD>
                </TR>
              </TBODY>
            </TABLE>
             <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="73D1E9">
              <tr bgcolor="#C0E9F5">
                <td width="7%" class="norightbuttonborder2">
                <div align="center">状态</div></td>
                <td width="49%" class="norightbuttonborder2">
                <div align="center">主题</div></td>
                <td width="12%" class="norightbuttonborder2">
                <div align="center"> 作者</div></td>
				<td width="9%" class="norightbuttonborder2">
                <div align="center"> 回复</div></td>
                <td width="9%" class="norightbuttonborder2">
                <div align="center"> 点击</div></td>
                <td width="23%" height="20" class="norightbuttonborder2">
                <div align="center"> 最后更新</div></td>
              </tr>
              <%Set rs = Server.CreateObject("ADODB.Recordset")                                             
topsql="where  bid="&bid&" and type=0 and good=1"                                                 
if findstr<>"" then                                                                                                                              
sql="select * from book where (title like '%" &findstr& "%' or username like '%" &findstr& "%' or body like '%" &findstr& "%') and type=0 and bid=" &bid& " order by ldate desc"                                                   
else                                                                                                                                                  
sql = "SELECT * FROM book  "&topsql&"   order by ldate desc"
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -