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

📄 add.asp

📁 qiangda de wangluo liuyanban
💻 ASP
📖 第 1 页 / 共 5 页
字号:
			AddText(AddTxt);
			AddTxt="[/move]";
			AddText(AddTxt);
		}       
	}
}
function shadow() {
	if (helpstat) {
               alert("阴影标记\n使文字产生阴影效果.\n用法: [SHADOW=宽度, 颜色, 边界]要产生阴影效果的文字[/SHADOW]");
	} else if (basic) {
		AddTxt="[SHADOW=255,blue,1][/SHADOW]";
		AddText(AddTxt);
	} else { 
		txt2=prompt("文字的长度、颜色和边界大小","255,blue,1"); 
		if (txt2!=null) {
			txt=prompt("要产生阴影效果的文字","文字");
			if (txt!=null) {
				if (txt2=="") {
					AddTxt="[SHADOW=255, blue, 1]"+txt;
					AddText(AddTxt);
					AddTxt="[/SHADOW]";
					AddText(AddTxt);
				} else {
					AddTxt="[SHADOW="+txt2+"]"+txt;
					AddText(AddTxt);
					AddTxt="[/SHADOW]";
					AddText(AddTxt);
				}         
			} 
		}
	}
}
function glow() {
	if (helpstat) {
		alert("光晕标记\n使文字产生光晕效果.\n用法: [GLOW=宽度, 颜色, 边界]要产生光晕效果的文字[/GLOW]");
	} else if (basic) {
		AddTxt="[glow=255,red,2][/glow]";
		AddText(AddTxt);
	} else { 
		txt2=prompt("文字的长度、颜色和边界大小","255,red,2"); 
		if (txt2!=null) {
			txt=prompt("要产生光晕效果的文字.","文字");      
			if (txt!=null) {
				if (txt2=="") {
					AddTxt="[glow=255,red,2]"+txt;
					AddText(AddTxt);
					AddTxt="[/glow]";
					AddText(AddTxt);
				} else {
					AddTxt="[glow="+txt2+"]"+txt;
					AddText(AddTxt);
					AddTxt="[/glow]";
					AddText(AddTxt);
				}         
			} 
		}
	}
}

function sound() {
if (helpstat){
alert("插入声音\n在帖子中插入一段音乐。\n用法: [sound]http:\www.cdown.net/sound.mid[/sound]");
} else if (basic) {
AddTxt="[sound][/sound]";
AddText(AddTxt);
} else {
txt=prompt("请输入音乐文件的连接地址,音乐只能为.mid,.midi跟.wav扩展结尾的文件","http://");    
if(txt!=null) {
AddTxt="\r[sound]"+txt;
AddText(AddTxt);
AddTxt="[/sound]";
AddText(AddTxt);
}
}
}

//////////////////////////////////////////////////
//HTMLB 编辑窗口
//////////////////////////////////////////////////

function HtmlEdit()
{
	window.open("htmledit.asp","","height=390,width=600,resizable=yes,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
//-->  
</script>  

</head>

<body bgcolor="#F9F9F9">


<p align="center">  
<%  
if vtopFormat = "0" then  
%>  
 <font color="#FF0000" size="5"><% =vtitletop%></font>                      
<%                      
else                      
%>                   
<img border="0" src=<% =vtopimage%>> 
<%                     
end if                     
%>                
<table border="0" width="100%">                     
  <tr>                     
    <td width="100%">                     
      <p align="right"><a href="show.asp?name=<% =vname%>"><font size="3"><u>返&nbsp;                       
      回</u></font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>                      
  </tr>                      
</table>                      
<form name="lyadd" onSubmit = "return add_check()" method="POST" action=add_check.asp?name=<% =vname%>&replyemail=<% =vreplyemail%>&myhdyj=<% =vmyhdyj%>&reply=<% =vreply%>&replyid=<% =vreplyid%>&key=<% =server.urlencode(now())%>&key2=<% =server.urlencode(vfgs)%>&replywithemail=<% =request.querystring("replywithemail")%>>                      
  <table border="1" width="100%" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bgcolor="#F7F7F7">                      
    <tr>                      
      <td width="23%" align="right"><% =vinfoname%>&nbsp;</td>                      
      <td width="77%"><input type="text" name="guestname" size="39" value="<% =request.cookies("ly_name")%>" style="border: 1 solid #008000"> <font color="#FF0000">**</font></td>                                                                                                                                                                                                                                                                                                                                                                                                                         
    </tr>                                                                                                                                                                                                                                                                                                                                                                                                                         
    <%if mid(vinfostyle,1,1) = 1 then%>                                                                                                                                                            
    <tr>                                                                                                                                                                                                                                                                                                                                                                                                                         
      <td width="23%" align="right"><% =vinfomail%>&nbsp;</td>                                                                                                                                                                                                                                                                                                                                                                                                                        
      <td width="77%"><input type="text" name="email" size="39" value="<% =request.cookies("ly_email")%>" style="border: 1 solid #008000"> </td>                                                                                                                                                                                                                                                                                                                                                                                                                        
    </tr>                                                                                                                                                                                                                                                                                                                                                                                                                        
    <% end if%>                                                                                                                                                           
    <%if mid(vinfostyle,2,1) = 1 then%>                                                                                                                                                           
    <tr>                                                                                                                                                                                                                                                                                                                                                                                                                        
      <td width="23%" align="right"><% =vinfohomepage%>&nbsp;</td>                                                                                                                                                                                                                                                                                                                                                                                                                        
      <td width="77%"><input type="text" name="homepage" size="39" value="<% =request.cookies("ly_zhuye")%>" style="border: 1 solid #008000">                                                                                                                                                                                                                                                                                                                                                                                                      
      </td>                                                                                                                                                                                                                                                                                                                                                                                                                       
    </tr>                                                                                                                                                                                                                                                                                                                                                                                                                       
<%end if%>                                                                                                                                                            
    <%if mid(vinfostyle,3,1) = 1 then%>                                                                                                                                                            
    <tr>                                                                                                                                                                                                                                                                                                                                                                                                                       
      <td width="23%" align="right"><% =vinfowhere%>&nbsp;</td>                                                                                                                                                                                                                                                                                                                                                                                                                      
      <td width="77%"><select name="guo" size="1">                                                                                                                                                                                                 
<%                                                                                                                                                                                                                                                       
          if len(request.cookies("ly_guo")) > 1 then                                                                                                                                                                                                                                                                                                              
             response.write "<option selected>" & request.cookies("ly_guo") &"</option>"                                                                                                                                                                                                                                                                                                              
          else                                                                                                                                                                                                                                                                                                              
             response.write "<option>请选择国家</option>"                                                                                                                                                                                                                                                                                                              
          end if                                                                                                                                                                                                                                                                 
%>                                                                                                                                                                        

⌨️ 快捷键说明

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