📄 t.asp

📁 中国网站网贴吧程序源码（ASP+ACCESS）实现功能：多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--#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"-->
<!--#include file="inc/file.asp"-->
<!--#include file="function.asp"-->
<!--#include file="inc/postubb.asp"-->
<%
	Dim BoardNlass,BoardClass,BoardChild,BoardName,Action,Page
	BoardName=Request.QueryString("/")
	Action=CInt(Request.QueryString("Action"))
	Page=CInt(Request.QueryString("T"))
	if Page<=0  then Page=1
	Sql="select BoardNlass,BoardClass,BoardChild from QiQiBoy_Board_Disp where BoardName='"&BoardName&"'"
	Set Rs=Conn.execute(Sql)
	BoardNlass=rs(0)
	BoardClass=rs(1)
	BoardChild=rs(2)
	Sql="select BoardMaster from QiQiBoy_Board_Disp where BoardName='"&BoardName&"'"
	Set Rs=Conn.execute(Sql)
	BoardMaster=rs(0)
	Sql="select count(TopicID) from QiQiBoy_Topic_Disp where ParentID=0 and BoardChild="&Cint(BoardChild)
	Set Rs=Conn.execute(Sql)
	TopicID=rs(0)
	Sql="select count(TopicID) from QiQiBoy_Topic_Disp where ParentID<>0 and BoardChild="&Cint(BoardChild)
	Set Rs=Conn.execute(Sql)
	ReplyID=rs(0)
%>
<HTML>
<HEAD>
<TITLE><%=Topic_Filter(BoardName)%> - <%=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 src="inc/showface.js" language="JavaScript"></script>
<script language="JavaScript">
<!--
function form1_onsubmit() {
if (document.form1.Key.value=="")
	{
	  alert("友情提示!\n\n请完整输入贴吧名称!")
	  document.form1.Key.focus()
	  return false
	 }
}
// -->
</script>
<script LANGUAGE="JavaScript">
 function showOrHide(value) {
    if (value==0) {
        if (document.layers)
           document.layers["layer"].visibility='hide';
        else
           document.all["layer"].style.visibility='hidden';
   }
   else if (value==1) {
       if (document.layers)
          document.layers["layer"].visibility='show';
       else
          document.all["layer"].style.visibility='visible';
   }
}
</script>


<% If HOST_CODE=0 then %>
<script language="JavaScript">
<!--
function myForm_onsubmit() {
if (document.myForm.Title.value=="")
	{
	  alert("友情提示!\n\n请完整输入帖子标题!")
	  document.myForm.Title.focus()
	  return false
	 }
else if (document.myForm.Content.value=="")
	{
	  alert("友情提示!\n\n请完整输入帖子内容!")
	  document.myForm.Content.focus()
	  return false
	 }
else if (document.myForm.verifycode.value=="")
	{
	  alert("友情提示!\n\n请完整输入验证编码!")
	  document.myForm.verifycode.focus()
	  return false
	 }
else if (document.myForm.Title.value.length <1 )
	{
	  alert("友情提示!\n\n帖子标题长度不得小于1字节或大于50字节,当前的帖子标题长度为："+myForm.Title.value.length+"")
	  document.myForm.Title.focus()
	  return false
	 }
else if (document.myForm.Title.value.length >50 )
	{
	  alert("友情提示!\n\n帖子标题长度不得小于1字节或大于50字节,当前的帖子标题长度为："+myForm.Title.value.length+"")
	  document.myForm.Title.focus()
	  return false
	 }
else if (document.myForm.Content.value.length <1 )
	{
	  alert("友情提示!\n\n帖子内容长度不得小于1字节或大于15000字节,当前的帖子内容长度为："+myForm.Content.value.length+"")
	  document.myForm.Content.focus()
	  return false
	 }
else if (document.myForm.Content.value.length >15000 )
	{
	  alert("友情提示!\n\n帖子内容长度不得小于1字节或大于15000字节,当前的帖子内容长度为："+myForm.Content.value.length+"")
	  document.myForm.Content.focus()
	  return false
	 }

}
// -->
</script>
<% end if %>

<% If HOST_CODE=1 then %>
<script language="JavaScript">
<!--
function myForm_onsubmit() {
if (document.myForm.Title.value=="")
	{
	  alert("友情提示!\n\n请完整输入帖子标题!")
	  document.myForm.Title.focus()
	  return false
	 }
else if (document.myForm.Content.value=="")
	{
	  alert("友情提示!\n\n请完整输入帖子内容!")
	  document.myForm.Content.focus()
	  return false
	 }
else if (document.myForm.Title.value.length <1 )
	{
	  alert("友情提示!\n\n帖子标题长度不得小于1字节或大于50字节,当前的帖子标题长度为："+myForm.Title.value.length+"")
	  document.myForm.Title.focus()
	  return false
	 }
else if (document.myForm.Title.value.length >50 )
	{
	  alert("友情提示!\n\n帖子标题长度不得小于1字节或大于50字节,当前的帖子标题长度为："+myForm.Title.value.length+"")
	  document.myForm.Title.focus()
	  return false
	 }
else if (document.myForm.Content.value.length <1 )
	{
	  alert("友情提示!\n\n帖子内容长度不得小于1字节或大于15000字节,当前的帖子内容长度为："+myForm.Content.value.length+"")
	  document.myForm.Content.focus()
	  return false
	 }
else if (document.myForm.Content.value.length >15000 )
	{
	  alert("友情提示!\n\n帖子内容长度不得小于1字节或大于15000字节,当前的帖子内容长度为："+myForm.Content.value.length+"")
	  document.myForm.Content.focus()
	  return false
	 }

}
// -->
</script>
<% end if %>

<SCRIPT language=JavaScript>
basic = false;
stprompt = true;

function AddText(NewCode) {
document.myForm.Content.value+=NewCode
}
function rtitle(i)
{
document.myForm.Title.value=i+document.myForm.Title.value;
}
function Font(FONT) {
 	if (basic) {
		AddTxt="\r[FACE="+FONT+"][/FACE]";
		AddText(AddTxt);
	} else {                  
		txt=prompt("要设置字体的文字"+FONT,"文字");
		if (txt!=null) {             
			AddTxt="\r[FACE="+FONT+"]"+txt;
			AddText(AddTxt);
			AddTxt="[/FACE]";
			AddText(AddTxt);
		}        
	}  
}

function Size(SIZE) {
	if (basic) {
		AddTxt="\r[SIZE="+SIZE+"][/SIZE]";
		AddText(AddTxt);
	} else {                       
		txt=prompt("要设置字体的大小"+SIZE,"文字"); 
		if (txt!=null) {             
			AddTxt="\r[SIZE="+SIZE+"]"+txt;
			AddText(AddTxt);
			AddTxt="[/SIZE]";
			AddText(AddTxt);
		}        
	}
}

function Color(COLOR) {
	if (basic) {
		AddTxt="\r[COLOR="+COLOR+"][/COLOR]";
		AddText(AddTxt);
	} else {  
     	txt=prompt("要设置字体的颜色"+COLOR,"文字");
		if(txt!=null) {
			AddTxt="\r[COLOR="+COLOR+"]"+txt;
			AddText(AddTxt);        
			AddTxt="[/COLOR]";
			AddText(AddTxt);
		} 
	}
}

function Bold() {
	if (basic) {
		AddTxt="\r[B][/B]";
		AddText(AddTxt);
	} else {  
		txt=prompt("粗体文字","文本");     
		if (txt!=null) {           
			AddTxt="\r[B]"+txt;
			AddText(AddTxt);
			AddTxt="[/B]";
			AddText(AddTxt);
		}       
	}
}

function Italicize() {
	if (basic) {
		AddTxt="\r[I][/I]";
		AddText(AddTxt);
	} else {   
		txt=prompt("斜体文字","文本");     
		if (txt!=null) {           
			AddTxt="\r[I]"+txt;
			AddText(AddTxt);
			AddTxt="[/I]";
			AddText(AddTxt);
		}	        
	}
}

function Underline() {
  	if (basic) {
		AddTxt="\r[U][/U]";
		AddText(AddTxt);
	} else {  
		txt=prompt("下划线文字","文本");     
		if (txt!=null) {           
			AddTxt="\r[U]"+txt;
12 3 4 下一页
⌨️ 快捷键说明

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