⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 t.asp

📁 中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
			AddText(AddTxt);
			AddTxt="[/U]";
			AddText(AddTxt);
		}	        
	}
}

function Left() {
 	if (basic) {
		AddTxt="\r[ALIGN=LEFT][/ALIGN]";
		AddText(AddTxt);
	} else{  
		txt=prompt("左对齐的文本","文本");     
		if (txt!=null) {          
			AddTxt="\r[ALIGN=LEFT]"+txt;
			AddText(AddTxt);
			AddTxt="[/ALIGN]";
			AddText(AddTxt);
		}	       
	}
}

function Center() {
 	if (basic) {
		AddTxt="\r[ALIGN=CENTER][/ALIGN]";
		AddText(AddTxt);
	} else{  
		txt=prompt("居中对齐的文本","文本");     
		if (txt!=null) {          
			AddTxt="\r[ALIGN=CENTER]"+txt;
			AddText(AddTxt);
			AddTxt="[/ALIGN]";
			AddText(AddTxt);
		}	       
	}
}

function Right() {
 	if (basic) {
		AddTxt="\r[ALIGN=RIGHT][/ALIGN]";
		AddText(AddTxt);
	} else{  
		txt=prompt("右对齐的文本","文本");     
		if (txt!=null) {          
			AddTxt="\r[ALIGN=RIGHT]"+txt;
			AddText(AddTxt);
			AddTxt="[/ALIGN]";
			AddText(AddTxt);
		}	       
	}
}

function Link() {
	if (basic) {
		AddTxt="\r[URL][/URL]";
		AddText(AddTxt);
	} else { 
		txt2=prompt("显示链接的文本.\n如果为空，那么将只显示超级链接地址",""); 
		if (txt2!=null) {
			txt=prompt("http:// 超级链接","http://");      
			if (txt!=null) {
				if (txt2=="") {
					AddTxt="\r[URL]"+txt;
					AddText(AddTxt);
					AddTxt="[/URL]";
					AddText(AddTxt);
				} else {
					AddTxt="[URL="+txt+"]"+txt2;
					AddText(AddTxt);
					AddTxt="[/URL]";
					AddText(AddTxt);
				}         
			} 
		}
	}
}

function Mail() {
	if (basic) {
		AddTxt="\r[EMAIL][/EMAIL]";
		AddText(AddTxt);
	} else { 
		txt2=prompt("显示链接的文本.\n如果为空，那么将只显示你的 Email 地址",""); 
		if (txt2!=null) {
			txt=prompt("email 电子邮件地址","xxx@domain.com");      
			if (txt!=null) {
				if (txt2=="") {
					AddTxt="\r[EMAIL]"+txt+"[/EMAIL]";
				} else {
					AddTxt="[EMAIL="+txt+"]"+txt2;
					AddText(AddTxt);
					AddTxt="[/EMAIL]";
				} 
				AddText(AddTxt);	        
			}
		}
	}
}

function Image() {
	if (basic) {
		AddTxt="\r[IMG][/IMG]";
		AddText(AddTxt);
	} else {  
		txt=prompt("外部图片地址","http://");    
		if(txt!=null) {            
			AddTxt="\r[IMG]"+txt;
			AddText(AddTxt);
			AddTxt="[/IMG]";
			AddText(AddTxt);
		}	
	}
}

function Flash() {
 	if (basic) {
		AddTxt="\r[FLASH=380,330][/FLASH]";
		AddText(AddTxt);
	} else {                  
		txt=prompt("flash 动画文件的地址","http://");
		if (txt!=null) {             
			AddTxt="\r[FLASH=380,330]"+txt;
			AddText(AddTxt);
			AddTxt="[/FLASH]";
			AddText(AddTxt);
		}        
	}  
}

function Cwmv() {
 	if (basic) {
		AddTxt="\r[MP=380,330][/MP]";
		AddText(AddTxt);
	} else {                  
		txt=prompt("Media Player 文件的地址","http://");
		if (txt!=null) {             
			AddTxt="\r[MP=380,330]"+txt;
			AddText(AddTxt);
			AddTxt="[/MP]";
			AddText(AddTxt);
		}        
	}  
}

function Crm() {
 	if (basic) {
		AddTxt="\r[RM=380,330][/RM]";
		AddText(AddTxt);
	} else {                  
		txt=prompt("Real Player 文件的地址","http://");
		if (txt!=null) {             
			AddTxt="\r[RM=380,330]"+txt;
			AddText(AddTxt);
			AddTxt="[/RM]";
			AddText(AddTxt);
		}        
	}  
}

function Cmov() {
 	if (basic) {
		AddTxt="\r[QT=380,330][/QT]";
		AddText(AddTxt);
	} else {                  
		txt=prompt("Quick Time 文件的地址","http://");
		if (txt!=null) {             
			AddTxt="\r[QT=380,330]"+txt;
			AddText(AddTxt);
			AddTxt="[/QT]";
			AddText(AddTxt);
		}        
	}  
}

function Code() {
	if (basic) {
		AddTxt="\r[CODE][/CODE]";
		AddText(AddTxt);
	} else {   
		txt=prompt("插入标记的代码","文本");     
		if (txt!=null) {          
			AddTxt="\r[CODE]"+txt;
			AddText(AddTxt);
			AddTxt="[/CODE]";
			AddText(AddTxt);
		}	       
	}
}

function Quote() {
	if (basic) {
		AddTxt="\r[QUOTE][/QUOTE]";
		AddText(AddTxt);
	} else {   
		txt=prompt("插入引用文本","文本");     
		if(txt!=null) {          
			AddTxt="\r[QUOTE]"+txt;
			AddText(AddTxt);
			AddTxt="[/QUOTE]";
			AddText(AddTxt);
		}	        
	}
}

function Sound() {
 	if (basic) {
		AddTxt="\r[SOUND][/SOUND]";
		AddText(AddTxt);
	} else {                  
		txt=prompt("sound 背景音乐文件的地址","http://");
		if (txt!=null) {             
			AddTxt="\r[SOUND]"+txt;
			AddText(AddTxt);
			AddTxt="[/SOUND]";
			AddText(AddTxt);
		}        
	}  
}

</script>
</HEAD>

<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="tops.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=55% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="index.asp"><font color=<%=HOST_FONT%>>首页</font></a> <font color=<%=HOST_FONT%>>&gt;</FONT> <a href="t.asp?/=<%=Server.UrlEncode(BoardName)%>"><font color=<%=HOST_FONT%>><%=Topic_Filter(HTMLCode(BoardName))%></font></a> <font color=<%=HOST_FONT%>>&gt;</FONT> <font color=<%=HOST_FONT%>><u>主题列表</u></FONT></TD><TD width=10% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="#/"><font color=<%=HOST_FONT%>>发表新主题</font></a></TD><TD width=34% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><font color=<%=HOST_FONT%>>斑竹:</font><font color=<%=HOST_FONT%>><u><%=BoardMaster%></u></font></TD></TR></TBODY></TABLE>

<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0 bgColor=#ffffff>
  <TBODY>
<% if Action <> 1 then %>
              <TR>
                <TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>点击数</TD>
                <TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>回帖数</TD>
                <TD class=INDEX_XMALL width="52%"  height="20" bgColor=#eeeeee>帖子主题</TD>
                <TD class=INDEX_XMALL width="10%" height="20" bgColor=#eeeeee>发表作者</TD>
                <TD class=INDEX_XMALL width="10%" height="20" bgColor=#eeeeee>最后回帖</TD>
                <TD class=INDEX_XMALL width="14%" height="20" bgColor=#eeeeee>回帖时间</TD></TR>
<%
	Dim MyPageSize,MyPage

	Page=CInt(Request.QueryString("T"))

	MyPageSize   = 50
	   
	If Not IsNumeric(Page) Or IsEmpty(Page) Or Page <=0 Then
		MyPage=1
	else
		MyPage=Abs(Page)
	end if

	set rs=server.CreateObject("ADODB.RecordSet")
	Sql="select * from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and ParentID=0 or Status=2 order by Status=2,Status=4,UpdateTime desc"
	rs.Open sql,conn,1,1
	if not rs.eof then
		rs.PageSize     = MyPageSize
		MaxPages        = rs.PageCount
		Total           = rs.RecordCount
1234

⌨️ 快捷键说明

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