📄 p.asp

📁 1.地址缩短
💻 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/postubb.asp"-->
<!--#include file="inc/html.asp"-->
<%
	Dim BoardNlass,BoardClass,BoardChild,BoardName,TopicID,RootID,Page,States,Title,Action
	TopicID=CInt(Request.QueryString("/"))
	If TopicID="" or TopicID=0 or not IsNumeric(TopicID) Then
		response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
		response.write "<tr><td style=font:9pt Verdana>"
		response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
		response.write "</td></tr></table></center>"
		Response.End
	End If
	Action=CInt(Request.QueryString("action"))
	Page=CInt(Request.QueryString("T"))
	if Page<=0  then Page=1
	Sql="select RootID from QiQiBoy_Topic_Disp where TopicID="&cint(TopicID)
	Set Rs=Conn.execute(Sql)
	RootID=Rs(0)
	Sql="select BoardNlass,BoardClass,BoardChild from QiQiBoy_Topic_Disp where RootID="&RootID
	Set Rs=Conn.execute(Sql)
	BoardNlass=Rs(0)
	BoardClass=Rs(1)
	BoardChild=Rs(2)
	States=CInt(Request.QueryString("State"))
	Sql="select Status from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and BoardChild="&Cint(BoardChild)&" and TopicID="&RootID
	Set Rs=Conn.execute(Sql)
	Status=Rs(0)
	Sql="select BoardName from QiQiBoy_Board_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and BoardChild="&Cint(BoardChild)
	Set Rs=Conn.execute(Sql)
	BoardName=Rs(0)
	Sql="select Title from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and TopicID="&RootID
	Set Rs=Conn.execute(Sql)
	Title=Rs(0)
	Sql="select Replys from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and TopicID="&RootID
	Set Rs=Conn.execute(Sql)
	Replys=Rs(0)
	Sql="select Reads from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and TopicID="&RootID
	Set Rs=Conn.execute(Sql)
	Reads=Rs(0)
	Sql="update QiQiBoy_Topic_Disp set Reads=Reads+1 where RootID="&RootID&" and BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and ParentID=0"
	Conn.execute(Sql)
%>
<HTML>
<HEAD>
<TITLE><%=BoardName%> - <%=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 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>
<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 <3 )
	{
	  alert("友情提示!\n\n帖子标题长度不得小于3字节或大于50字节,当前的帖子标题长度为："+myForm.Title.value.length+"")
	  document.myForm.Title.focus()
	  return false
	 }
else if (document.myForm.Title.value.length >55 )
	{
	  alert("友情提示!\n\n帖子标题长度不得小于3字节或大于55字节,当前的帖子标题长度为："+myForm.Title.value.length+"")
	  document.myForm.Title.focus()
	  return false
	 }
else if (document.myForm.Content.value.length <3 )
	{
	  alert("友情提示!\n\n帖子内容长度不得小于3字节或大于8000字节,当前的帖子内容长度为："+myForm.Content.value.length+"")
	  document.myForm.Content.focus()
	  return false
	 }
else if (document.myForm.Content.value.length >8000 )
	{
	  alert("友情提示!\n\n帖子内容长度不得小于5字节或大于8000字节,当前的帖子内容长度为："+myForm.Content.value.length+"")
	  document.myForm.Content.focus()
	  return false
	 }
}
// -->
</script>
<SCRIPT language=JavaScript>
basic = false;
stprompt = true;

function AddText(NewCode) {
document.myForm.Content.value+=NewCode
}
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;
			AddText(AddTxt);
			AddTxt="[/U]";
			AddText(AddTxt);
		}	        
	}
}

function Left() {
 	if (basic) {
		AddTxt="\r[ALIGN=LEFT][/ALIGN]";
		AddText(AddTxt);
12 3 4 下一页
⌨️ 快捷键说明

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