📄 n.asp

📁 中国网站网贴吧程序源码（ASP+ACCESS）实现功能：多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴

💻 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/postubb.asp"-->
<%
	Dim BoardNlassName
	BoardNlassName=Request.QueryString("/")
%>
<%
Set rs =Server.CreateObject("ADODB.Recordset") 
sql="select BoardNlassName from QiQiBoy_Nlass_Disp where BoardNlassName='"&BoardNlassName&"'"
Set Rs=Conn.execute(Sql)
BoardNlassNam=rs(0)
%>
<HTML>
<HEAD>
<TITLE><%=BoardNlassName%> - <%=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%>>&gt;</font> <font color=<%=HOST_FONT%>><u><%=HTMLCode(BoardNlassName)%></u></font></TD></TR></TBODY></TABLE>

            <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
              <TBODY>
              <TR>
                <TD height=10></TD></TR></TBODY></TABLE>
<%
Set Class_rs =Server.CreateObject("ADODB.Recordset") 
sql="select * from QiQiBoy_Nlass_Disp where BoardNlassName='"&BoardNlassName&"'"
Set Nlass_rs = Server.CreateObject("ADODB.Recordset")
Nlass_rs.open sql,conn,1,1
if not Nlass_rs.eof then
do while not Nlass_rs.eof
Nlass=Nlass_rs("BoardNlass")
%>
<%
Set Board_rs =Server.CreateObject("ADODB.Recordset")
sql="select * from QiQiBoy_Class_Disp where BoardNlass="&Nlass
Set Class_rs =Server.CreateObject("ADODB.Recordset")
Class_rs.open sql,conn,1,1
if not Class_rs.eof then
do while not Class_rs.eof
NClass=Class_rs("BoardClass")
ClassName=Class_rs("BoardClassName")
%>
<%
Sql="select count(BoardID) from QiQiBoy_Board_Disp where BoardClass="&NClass
Set Rs=Conn.execute(Sql)
BoardID=rs(0)
%>
           <TABLE cellSpacing=0 cellPadding=0 width=90% border=0>
             <TBODY>
              <TR>
                <TD width="1%" height=25></TD>
                <TD width="95%" class=INDEX_TMALL><u><%=HTMLCode(Class_rs("BoardClassName"))%></u>&nbsp;(<font color=#cc0000><%=BoardID%></font>)</TD></TR></TBODY></TABLE>

            <TABLE cellSpacing=0 cellPadding=0 width=90% border=0>
              <TBODY>
<%
sql="select Top 50 * from QiQiBoy_Board_Disp where BoardClass="&NClass
Board_rs.open sql,conn,1,1
do while not Board_rs.eof
%>
              <TR>
                <TD width="5%" height=25></TD>
                <TD width="19%" class=INDEX_TMALL>
<a href="t.asp?/=<%=Server.UrlEncode(Board_rs("BoardName"))%>">
<%if not Board_rs.eof then%>
<%=HTMLCode(Board_rs("BoardName"))%>
<%Board_rs.movenext             
end if%></a>
</TD>

                <TD width="19%" class=INDEX_TMALL>
<a href="t.asp?/=<%=Server.UrlEncode(Board_rs("BoardName"))%>">
<%if not Board_rs.eof then%>
<%=HTMLCode(Board_rs("BoardName"))%>
<%Board_rs.movenext             
end if%></a>
</TD>

                <TD width="19%" class=INDEX_TMALL>
<a href="t.asp?/=<%=Server.UrlEncode(Board_rs("BoardName"))%>">
<%if not Board_rs.eof then%>
<%=HTMLCode(Board_rs("BoardName"))%>
<%Board_rs.movenext             
end if%></a>
</TD>

                <TD width="19%" class=INDEX_TMALL>
<a href="t.asp?/=<%=Server.UrlEncode(Board_rs("BoardName"))%>">
<%if not Board_rs.eof then%>
<%=HTMLCode(Board_rs("BoardName"))%>
<%Board_rs.movenext             
end if%></a>
</TD>

                <TD width="19%" class=INDEX_TMALL>
<a href="t.asp?/=<%=Server.UrlEncode(Board_rs("BoardName"))%>">
<%if not Board_rs.eof then%>
<%=HTMLCode(Board_rs("BoardName"))%>
<%Board_rs.movenext             
end if%></a>
</TD></TR>
<%
loop             
Board_rs.Close             
%>
</TBODY></TABLE>
            <TABLE cellSpacing=1 cellPadding=1 width=90% border=0>
              <TBODY>
              <TR>
                <TD height=8 align=right class=INDEX_XMALL><A href="c.asp?/=<%=Server.UrlEncode(ClassName)%>"><font color=#666666>查看此目录下的全部贴吧</font></a></TD></TR>
              <TR>
                <TD height=8><hr align=left width="100%" size=1></TD></TR></TBODY></TABLE>
<%
Class_rs.movenext 
loop
end if
%>
<%
Nlass_rs.movenext             
loop
end if
%>
<%
set rs=nothing         
conn.close      
set conn=nothing
conn.Close
set conn=nothing
%>
<!--#include file="end.asp"-->

💿 文件大小 1485 K

👤 上传用户 ccuading

📂 所属分类其他

🏷️ 相关标签

#ACCESS #ASP #分类 #多级

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -