📄 add.asp

📁 一个简单的留言板
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页

<% response.buffer=true%>  
<!--#include file="conn.asp"-->
<%
'取出留言簿设定
 set sd=server.createobject("adodb.recordset")
sql="select * from admin " 
sd.open sql,con,1,1
if sd.eof and sd.bof then
response.write("留言簿设定出错!")
response.end
	  else
	  '取出外观设定
' gg=trim(sd("gg")) '公告
 name=trim(sd("name")) '留言簿名称
' page=trim(sd("page")) '每页显示留言条数
 back=trim(sd("back")) '背景图片
 bk=trim(sd("bk")) '边框颜色
' bt1=trim(sd("bt1")) '标题颜色1
 bt2=trim(sd("bt2")) '标题颜色2
 bt3=trim(sd("bt3")) '标题颜色3
' dy1=trim(sd("dy1")) '单元格颜色1
' dy2=trim(sd("dy2")) '单元格颜色2
 dq=trim(sd("dq")) '表格对齐方式
ubb=trim(sd("ubb")) '是否支持ubb代码及表情符号
nobq=trim(sd("nobq")) '是否支持表情选择
tz=trim(sd("tz")) '是否允许邮件通知站长回复
fs=trim(sd("fs")) '是否允许将留言发送到站长信箱
jz=trim(sd("jz")) '是否禁止留言
btl=trim(sd("btl")) '取出头部信息
dl=trim(sd("dl")) '取出尾部
 end if
sd.close
set sd=nothing

'判断是否禁止留言
if jz=1 then
%>
<script language=javascript>
{
alert("对不起此留言簿站长已禁止留言功能！");
window.location="index.asp";
}
</script>
<%
response.end
end if%>

<html>
<head>
<title><%=name%>留言簿--->发表留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="jgwy.css" type="text/css">
</head>
<style type="text/css">

</style>
<body background="img/site_bg.gif" leftmargin="0" topmargin="0">
<%
'输出头部信息
if btl<>"" then response.write(btl)
%>
<table width="775" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td>
      <% if ubb=1 then %>
      <SCRIPT language=JavaScript>

helpstat = false;
stprompt = false;
basic = true;


function thelp(swtch){
	if (swtch == 1){
		basic = false;
		stprompt = false;
		helpstat = true;
	} else if (swtch == 0) {
		helpstat = false;
		stprompt = false;
		basic = true;
	} else if (swtch == 2) {
		helpstat = false;
		basic = false;
		stprompt = true;
	}
}

function AddText(NewCode) {
document.input.nl.value+=NewCode
}

function email() {
	if (helpstat) {
		alert("UBB EMAIL语法,可作为EMAIL的超级连接.\n\n用法 #1: [url]someone\@anywhere.com[/url] \n用法 #2: [url=\"someone\@anywhere.com\"]连接文字[/url]");
		}
	else if (basic) {
		AddTxt="[url][/url]";
		AddText(AddTxt);
		}
	else { 
		txt2=prompt("以下文字显示于EMAIL连接上. ",""); 
		if (txt2!=null) {
			txt=prompt("连接地址.","mailto:");      
			if (txt!=null) {
				if (txt2=="") {
					AddTxt="[url]"+txt+"[/url]";
					AddText(AddTxt);
				} else {
					AddTxt="[url=\""+txt+"\"]"+txt2+"[/url]";
					AddText(AddTxt);
				}         
			} 
		}
	}
}
function showsize(size) {
	if (helpstat) {
		alert("设置文字大小. 课选择1号到4号字体.\n\n用法: [size="+size+"]文字内容大小[/size="+size+"]");
	} else if (basic) {
		AddTxt="[size="+size+"][/size="+size+"]";
		AddText(AddTxt);
	} else {                       
		txt=prompt("以下文字显示的大小为 "+size,"文字"); 
		if (txt!=null) {             
			AddTxt="[size="+size+"]"+txt+"[/size="+size+"]";
			AddText(AddTxt);
		}        
	}
}

function bold() {
	if (helpstat) {
		alert("UBB粗体于发言.\n\n用法: [b]粗体[/b]");
	} else if (basic) {
		AddTxt="[b][/b]";
		AddText(AddTxt);
	} else {  
		txt=prompt("以下文字将变为粗体.","文字");     
		if (txt!=null) {           
			AddTxt="[b]"+txt+"[/b]";
			AddText(AddTxt);
		}       
	}
}

function italicize() {
	if (helpstat) {
		alert("UBB斜体于发言.\n\n用法: [i]斜体[/i]");
	} else if (basic) {
		AddTxt="[i][/i]";
		AddText(AddTxt);
	} else {   
		txt=prompt("以下文字将变为斜体","文字");     
		if (txt!=null) {           
			AddTxt="[i]"+txt+"[/i]";
			AddText(AddTxt);
		}	        
	}
}

function quote() {
	if (helpstat){
		alert("UBB引用语法,可特别表示引用别人处.\n\n用法: [quote]这里是引用[/quote]");
	} else if (basic) {
		AddTxt=" [quote] [/quote]";
		AddText(AddTxt);
	} else {   
		txt=prompt("以下内容将被引用","文字");     
		if(txt!=null) {          
			AddTxt=" [quote] "+txt+" [/quote]";
			AddText(AddTxt);
		}	        
	}
}

function showcolor(color) {
	if (helpstat) {
		alert("UBB颜色设置语句,提示内的颜色都可以引用.\n\n用法: ["+color+"]这里是带有颜色的字体[/"+color+"]");
	} else if (basic) {
		AddTxt="["+color+"][/"+color+"]";
		AddText(AddTxt);
	} else {  
     	txt=prompt("以下文字颜色将变为 "+color,"文字");
		if(txt!=null) {
			AddTxt="["+color+"]"+txt+"[/"+color+"]";
			AddText(AddTxt);        
		} 
	}
}

function center() {
 	if (helpstat) {
		alert("UBB文字居中显示.\n\n用法: [center]文字将被居中[/center]");
	} else if (basic) {
		AddTxt="[center][/center]";
		AddText(AddTxt);
	} else {  
		txt=prompt("以下文字将被居中","文字");     
		if (txt!=null) {          
			AddTxt="[center]"+txt+"[/center]";
			AddText(AddTxt);
		}	       
	}
}

function hyperlink() {
	if (helpstat) {
		alert("UBB超级连接 \n放置URL作为超级连接.\n\n用法: [url]http://www.anywhere.com[/url]\n\n用法: [url=http://www.anywhere.com]连接文字[/url]");
	} else if (basic) {
		AddTxt="[url][/url]";
		AddText(AddTxt);
	} else { 
		txt2=prompt("以下文字显示为URL连接.",""); 
		if (txt2!=null) {
			txt=prompt("下面URL转化为超级连接.","http://");      
			if (txt!=null) {
				if (txt2=="") {
					AddTxt="[url]"+txt+"[/url]";
					AddText(AddTxt);
				} else {
					AddTxt="[url=\""+txt+"\"]"+txt2+"[/url]";
					AddText(AddTxt);
				}         
			} 
		}
	}
}

function image() {
	if (helpstat){
		alert("UBB插入图片语句.\n\n用法: [img]http://www.anywhere.com/image.gif[/img]");
	} else if (basic) {
		AddTxt="[img][/img]";
		AddText(AddTxt);
	} else {  
		txt=prompt("要插入图片的地址","http://");    
		if(txt!=null) {            
			AddTxt="[img]"+txt+"[/img]";
			AddText(AddTxt);
		}	
	}
}

function showcode() {
	if (helpstat) {
		alert("按照编号显示.\nUsefull for posting code.\n\n用法: [code]这是编号过的文字[/code]");
	} else if (basic) {
		AddTxt=" [code] [/code]";
		AddText(AddTxt);
	} else {   
		txt=prompt("加入编号","");     
		if (txt!=null) {          
			AddTxt="[code]"+txt+"[/code]";
			AddText(AddTxt);
		}	       
	}
}

function list() {
	if (helpstat) {
		alert("UBB目录,是HTML里面的LI.\n\nUSE: [list] [*]项目一[/*] [*]项目二[/*] [*]项目三[/*] [/list]");
	} else if (basic) {
		AddTxt=" [list][*]  [/*][*]  [/*][*]  [/*][/list]";
		AddText(AddTxt);
	} else {  
		txt=prompt("Type of list Enter \'A\' for alphabetical, \'1\' for numbered, Leave blank for bulleted.","");               
		while ((txt!="") && (txt!="A") && (txt!="a") && (txt!="1") && (txt!=null)) {
			txt=prompt("错误! The only possible values for type of list are blank 'A' and '1'.","");               
		}
		if (txt!=null) {
			if (txt=="") {
				AddTxt="[list]";
			} else {
				AddTxt="[list="+txt+"]";
			} 
			txt="1";
			while ((txt!="") && (txt!=null)) {
				txt=prompt("List item Leave blank to end list",""); 
				if (txt!="") {             
					AddTxt+="[*]"+txt+"[/*]"; 
				}                   
			} 
			AddTxt+="[/list] ";
			AddText(AddTxt); 
		}
	}
}

function underline() {
  	if (helpstat) {
		alert("文字下划线.\n\nUSE: [u]下划线文字[/u]");
	} else if (basic) {
		AddTxt="[u][/u]";
		AddText(AddTxt);
	} else {  
		txt=prompt("文字已经下划线.","Text");     
		if (txt!=null) {           
			AddTxt="[u]"+txt+"[/u]";
			AddText(AddTxt);
		}	        
	}
12 下一页
⌨️ 快捷键说明

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