📄 s.asp

📁 中国网站网贴吧程序源码（ASP+ACCESS）实现功能：多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#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="function.asp"-->
<!--#include file="inc/postubb.asp"-->
<%
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from QiQiBoy_Class_Disp order by BoardClass asc"
rs.open sql,conn,1,1
%>
<SCRIPT language="JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rs("BoardClassName"))%>","<%= trim(rs("BoardNlass"))%>","<%= trim(rs("BoardClass"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.form.BoardClass.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.form.BoardClass.options[document.form.BoardClass.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</SCRIPT>
<SCRIPT language="javascript">
<!--
function CheckForm()
{
	document.form.txtcontent.value=document.form.doc_html.value;
	return true
}
//-->
</SCRIPT>
<%
Dim Action
Action=CInt(Request.QueryString("Action"))
%>
<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>
<% If HOST_CODE=0 then %>
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.BoardNlass.value=="")
	{
	  alert("友情提示!\n\n请选择贴吧所属大类!")
	  document.form.BoardNlass.focus()
	  return false
	 }
else if (document.form.BoardClass.value=="")
	{
	  alert("友情提示!\n\n请选择贴吧所属小类!")
	  document.form.BoardClass.focus()
	  return false
	 }
else if (document.form.BoardName.value=="")
	{
	  alert("友情提示!\n\n请完整输入贴吧名称!")
	  document.form.BoardName.focus()
	  return false
	 }
else if (document.form.BoardDescription.value=="")
	{
	  alert("友情提示!\n\n请完整输入贴吧简介!")
	  document.form.BoardDescription.focus()
	  return false
	 }
else if (document.form.verifycode.value=="")
	{
	  alert("友情提示!\n\n请完整输入验证编码!")
	  document.form.verifycode.focus()
	  return false
	 }
else if (document.form.BoardName.value.length <1 )
	{
	  alert("友情提示!\n\n贴吧名称长度不得小于1字节或大于50字节,当前的贴吧名称长度为："+form.BoardName.value.length+"")
	  document.form.BoardName.focus()
	  return false
	 }
else if (document.form.BoardName.value.length >50 )
	{
	  alert("友情提示!\n\n贴吧名称长度不得小于1字节或大于50字节,当前的贴吧名称长度为："+form.BoardName.value.length+"")
	  document.form.BoardName.focus()
	  return false
	 }
else if (document.form.BoardDescription.value.length <3 )
	{
	  alert("友情提示!\n\n贴吧简介长度不得小于3字节或大于80字节,当前的贴吧简介长度为："+form.BoardDescription.value.length+"")
	  document.form.BoardDescription.focus()
	  return false
	 }
else if (document.form.BoardDescription.value.length >80 )
	{
	  alert("友情提示!\n\n贴吧简介长度不得小于3字节或大于80字节,当前的贴吧简介长度为："+form.BoardDescription.value.length+"")
	  document.form.BoardDescription.focus()
	  return false
	 }
}
// -->
</script>
<% end if %>
<% If HOST_CODE=1 then %>
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.BoardNlass.value=="")
	{
	  alert("友情提示!\n\n请选择贴吧所属大类!")
	  document.form.BoardNlass.focus()
	  return false
	 }
else if (document.form.BoardClass.value=="")
	{
	  alert("友情提示!\n\n请选择贴吧所属小类!")
	  document.form.BoardClass.focus()
	  return false
	 }
else if (document.form.BoardName.value=="")
	{
	  alert("友情提示!\n\n请完整输入贴吧名称!")
	  document.form.BoardName.focus()
	  return false
	 }
else if (document.form.BoardDescription.value=="")
	{
	  alert("友情提示!\n\n请完整输入贴吧简介!")
	  document.form.BoardDescription.focus()
	  return false
	 }
else if (document.form.BoardName.value.length <1 )
	{
	  alert("友情提示!\n\n贴吧名称长度不得小于1字节或大于50字节,当前的贴吧名称长度为："+form.BoardName.value.length+"")
	  document.form.BoardName.focus()
	  return false
	 }
else if (document.form.BoardName.value.length >50 )
	{
	  alert("友情提示!\n\n贴吧名称长度不得小于1字节或大于50字节,当前的贴吧名称长度为："+form.BoardName.value.length+"")
	  document.form.BoardName.focus()
	  return false
	 }
else if (document.form.BoardDescription.value.length <3 )
	{
	  alert("友情提示!\n\n贴吧简介长度不得小于3字节或大于80字节,当前的贴吧简介长度为："+form.BoardDescription.value.length+"")
	  document.form.BoardDescription.focus()
	  return false
	 }
else if (document.form.BoardDescription.value.length >80 )
	{
	  alert("友情提示!\n\n贴吧简介长度不得小于3字节或大于80字节,当前的贴吧简介长度为："+form.BoardDescription.value.length+"")
	  document.form.BoardDescription.focus()
	  return false
	 }
}
// -->
</script>
<% end if %>
</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>创建贴吧</u></font></TD></TR></TBODY></TABLE>

<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0 bgColor=#ffffff>
  <TBODY>
        <TR>
          <TD>
<%
dim Key,T,C,U
Keys=Trim(request.form("Key"))
if Keys="" then 
Keys=Trim(Request("Key"))
end if
Keys=replace(Keys,"'","")
Keys=replace(Keys,"<","&lt;")
Keys=replace(Keys,">","&gt;")
S=request.form("S")
F="F"
T="T"
C="C"
U="U"
%>
<% if S = F or S="" then %>
<% if Action <> 1 then %>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
              <TBODY>
              <TR>
                <TD width="5%" height="50"></TD>
                <TD width="90%" height="50" colspan="2" align=center class=INDEX_TMALL><u>有情提示:非常抱歉!您要搜索的贴吧不存在或已被删除,您可以通过提交操作来创建该贴吧!!!</u></TD>
                <TD width="5%" height="50"></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
              <TBODY>
              <TR>
                <TD width="5%" height="50"></TD>
                <TD width="95%" height="20" colspan="5" class=INDEX_TMALL><u>目前搜索到如下相关贴吧:</u>&nbsp;&nbsp;<u>搜索的关键字/词:</u>[<u><font color=#cc0000><%=keys%></font></u>]</TD></TR></TBODY></TABLE>
<%
Sql="select top 50 * from QiQiBoy_Board_Disp where BoardName like '%"&Keys&"%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
%>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
              <TBODY>
              <TR>
                <TD width="5%" height=25></TD>
                <TD width="19%" class=INDEX_TMALL>
<a href="t.asp?/=<%=Server.UrlEncode(rs("BoardName"))%>">
<%if not rs.eof then%>
<%=HTMLCode(rs("BoardName"))%>
<%rs.movenext             
end if%></a>
</TD>

                <TD width="19%" class=INDEX_TMALL>
12 下一页
💿 文件大小 1485 K
👤 上传用户 ccuading
📂 所属分类其他
🏷️ 相关标签

#ACCESS #ASP #分类 #多级
⌨️ 快捷键说明

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