<%

sub frm_keyes(kt)
  response.write "<input type=text name=keyes value='"&kt&"' size=20 maxlength=20> 多个请用“,”隔开，如：计算所,科学,术语"
end sub

sub frm_ubb(fn,tn,uw,bj)
  response.write ffrm_ubb(fn,tn,uw,bj)
end sub

function ffrm_ubb(fn,tn,uw,bj)
%>
<script language=javascript src='../style/ubb_help.js'></script>
<script language=javascript>
<!--
function AddText(NewCode)
{
  if(document.all)
  { insertAtCaret(document.<%response.write fn&"."&tn%>, NewCode); setfocus(); } 
  else
  { document.<%response.write fn&"."&tn%>.value += NewCode; setfocus(); }
}

function storeCaret (textEl)
{ if(textEl.createTextRange){ textEl.caretPos = document.selection.createRange().duplicate();} }

function insertAtCaret (textEl, text)
{
  if (textEl.createTextRange && textEl.caretPos)
  {
    var caretPos = textEl.caretPos;
    caretPos.text += caretPos.text.charAt(caretPos.text.length - 2) == ' ' ? text + ' ' : text;
  }
  else if(textEl)
  { textEl.value += text; }
  else
  { textEl.value = text; }
}

function jk_ubb_dz(dz)
{
   //if (advmode)
   AddTxt=""+dz+""; AddText(AddTxt); 
 }

function setfocus() { document.<%response.write fn&"."&tn%>.focus(); }
-->
</script>
<%
dim tmp1
tmp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=0><tr>" & _
vbcrlf&"<td height=30>"&uw&"<select style=""background:#DBDBDB"" onchange=""javascript:jk_ubb_font(this.options[this.selectedIndex].value);;this.options[0].selected=true;"" size=1 name=font>" & _
vbcrlf&"<option value=''>选择字体</option>" & _
vbcrlf&"<option value=宋体>宋体</option>" & _
vbcrlf&"<option value=黑体>黑体</option>" & _
vbcrlf&"<option value=arial>arial</option>" & _
vbcrlf&"<option value=""Book antiqua"">Book antiqua</option>" & _
vbcrlf&"<option value=""Century Gothic"">Century Gothic</option>" & _
vbcrlf&"<option value=""Courier New"" >Courier New</option>" & _
vbcrlf&"<option value=Georgia>Georgia</option>" & _
vbcrlf&"<option value=Impact>Impact</option>" & _
vbcrlf&"<option value=Tahoma>Tahoma</option>" & _
vbcrlf&"<option value=""Times New Roman"">Times New Roman</option>" & _
vbcrlf&"<option value=Verdana>Verdana</option>" & _
vbcrlf&"</select></td>" & _
vbcrlf&"<td>&nbsp;&nbsp;<select style=""background:#DBDBDB"" onchange=""javascript:jk_ubb_size(this.options[this.selectedIndex].value);;this.options[0].selected=true;"" size=1 name=size>" & _
vbcrlf&"<option value=''>大小</option>" & _
vbcrlf&"<option value=-2>-2</option>" & _
vbcrlf&"<option value=-1>-1</option>" & _
vbcrlf&"<option value=1>1</option>" & _
vbcrlf&"<option value=2>2</option>" & _
vbcrlf&"<option value=3>3</option>" & _
vbcrlf&"<option value=4>4</option>" & _
vbcrlf&"<option value=5>5</option>" & _
vbcrlf&"<option value=6>6</option>" & _
vbcrlf&"<option value=7>7</option>" & _
vbcrlf&"</select></td>" & _
vbcrlf&"<td>&nbsp;&nbsp;<select style=""background:#DBDBDB"" onchange=""javascript:jk_ubb_color(this.options[this.selectedIndex].value);;this.options[0].selected=true;"" size=1 name=color>" & _
vbcrlf&"<option value=''>选择颜色</option>" & _
vbcrlf&"<OPTION style=""COLOR: black;BACKGROUND-COLOR: black"" value=Black>黑 色</OPTION>" & _
vbcrlf&"<option style=""COLOR: white;BACKGROUND: white"" value=White>白 色</option>" & _
vbcrlf&"<option style=""COLOR: pink;BACKGROUND: pink"" value=Pink>粉 色</option>" & _
vbcrlf&"<OPTION style=""COLOR: red;BACKGROUND-COLOR: red"" value=Red>红 色</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: yellow;BACKGROUND-COLOR: yellow"" value=Yellow>黄 色</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: green;BACKGROUND-COLOR: green"" value=Green>绿 色</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: orange;BACKGROUND-COLOR: orange"" value=Orange>橙 色</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: purple;BACKGROUND-COLOR: purple"" value=Purple>紫 色</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: blue;BACKGROUND-COLOR: blue"" value=Blue>蓝 色</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: brown;BACKGROUND-COLOR: brown"" value=Brown>褐 色</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: teal;BACKGROUND-COLOR: teal"" value=Teal>墨 绿</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: navy;BACKGROUND-COLOR: navy"" value=Navy>深 蓝</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: maroon;BACKGROUND-COLOR: maroon"" value=Maroon>赭 石</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #00ffff;BACKGROUND-COLOR: #00ffff"" value=#00FFFF>粉 绿</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #7fffd4;BACKGROUND-COLOR: #7fffd4"" value=#7FFFD4>淡 绿</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #ffe4c4;BACKGROUND-COLOR: #ffe4c4"" value=#FFE4C4>黄 灰</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #7fff00;BACKGROUND-COLOR: #7fff00"" value=#7FFF00>翠 绿</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #d2691e;BACKGROUND-COLOR: #d2691e"" value=#D2691E>综 红</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #ff7f50;BACKGROUND-COLOR: #ff7f50"" value=#FF7F50>砖 红</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #6495ed;BACKGROUND-COLOR: #6495ed"" value=#6495ED>淡 蓝</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #dc143c;BACKGROUND-COLOR: #dc143c"" value=#DC143C>暗 红</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #ff1493;BACKGROUND-COLOR: #ff1493"" value=#FF1493>玫瑰红</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #ff00ff;BACKGROUND-COLOR: #ff00ff"" value=#FF00FF>紫 红</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #ffd700;BACKGROUND-COLOR: #ffd700"" value=#FFD700>桔 黄</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #daa520;BACKGROUND-COLOR: #daa520"" value=#DAA520>军 黄</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #808080;BACKGROUND-COLOR: #808080"" value=#808080>烟 灰</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #778899;BACKGROUND-COLOR: #778899"" value=#778899>深 灰</OPTION>" & _
vbcrlf&"<OPTION style=""COLOR: #b0c4de;BACKGROUND-COLOR: #b0c4de"" value=#B0C4DE>灰 蓝</OPTION>" & _
vbcrlf&"</select></td>"
if bj=1 then
tmp1=tmp1&vbcrlf&"<td>&nbsp;&nbsp;<select style=""background:#DBDBDB"" onchange=""javascript:jk_ubb_dz(this.options[this.selectedIndex].value);;this.options[0].selected=true;"" size=1 name=dz>" & _
vbcrlf&"<option>背景音乐</option>" & _
vbcrlf&"<option>=====</option>" & _ 
vbcrlf&"<option value=""/奉献"">奉 献</option>" & _
vbcrlf&"<option value=""/心雨"">心 雨</option>" & _
vbcrlf&"<option value=""/童年"">童 年</option>" & _
vbcrlf&"<option value=""/国歌"">国 歌</option>" & _
vbcrlf&"<option value=""/天涯"">天 涯</option>" & _
vbcrlf&"<option value=""/天意"">天 意</option>" & _
vbcrlf&"<option value=""/女人"">女 人</option>" & _
vbcrlf&"<option value=""/后来"">后 来</option>" & _
vbcrlf&"<option value=""/彩虹"">彩 虹</option>" & _
vbcrlf&"<option value=""/最美"">最 美</option>" & _
vbcrlf&"<option value=""/心动"">心 动</option>" & _
vbcrlf&"<option value=""/勇气"">勇 气</option>" & _
vbcrlf&"<option value=""/星晴"">星 晴</option>" & _
vbcrlf&"<option value=""/约定"">约 定</option>" & _
vbcrlf&"<option value=""/宽容"">宽 容</option>" & _ 
vbcrlf&"</select></td>" & _
vbcrlf&"<td>&nbsp;&nbsp;<select style=""background:#DBDBDB"" onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options [this.selectedIndex].value;this.options[0].selected=true;}"" size=1 name='cd'>" & _
vbcrlf&"<option>特殊帖</option>" & _
vbcrlf&"<option>====</option>" & _ 
vbcrlf&"<option value=javascript:jk_ubb_reply()>回复贴</option>" & _
vbcrlf&"<option value=javascript:jk_ubb_money()>金钱贴</option>" & _
vbcrlf&"<option value=javascript:jk_ubb_point()>积分贴</option>" & _
vbcrlf&"<option value=javascript:jk_ubb_Post()>帖子数</option>" & _
vbcrlf&"<option value=javascript:jk_ubb_usemoney()>购买贴</option>" & _
vbcrlf&"<option value=javascript:jk_ubb_name()>指定贴</option>" & _
vbcrlf&"</select></td>"
end if
tmp1=tmp1&vbcrlf&"</tr>" & _
vbcrlf&"</table>" & _
vbcrlf&"<table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&"<tr><td height=30>"&uw&"<a href=""javascript:jk_ubb_bold();""><img alt='插入粗体文本' src='../images/ubb/bold.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_italicize();""><img alt='插入斜体文本' src='../images/ubb/italicize.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_underline();""><img alt='插入下划线' src='../images/ubb/underline.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_fly();""><img alt='插入文字飞翔' src='../images/ubb/fly.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_move();""><img alt='插入文字移动' src='../images/ubb/move.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_center();""><img alt='居中对齐' src='../images/ubb/center.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_link();""><img alt='插入超级链接' src='../images/ubb/url.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_email();""><img alt='插入邮件地址' src='../images/ubb/email.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_image();""><img alt='插入图像' src='../images/ubb/image.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_flash();""><img alt='插入 flash' src='../images/ubb/flash.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_code();""><img alt='插入代码' src='../images/ubb/code.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_quote();""><img alt='插入引用' src='../images/ubb/quote.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_rm();""><img alt='插入Realplay视频文件' src='../images/ubb/rm.gif' border=0></a>&nbsp;" & _
vbcrlf&"<a href=""javascript:jk_ubb_mp();""><img alt='插入Media Player播放文件' src='../images/ubb/mp.gif' border=0></a></td></tr></table>"
ffrm_ubb=tmp1
end function

sub frm_ubb_type(trc)
  response.write ffrm_ubb_type(trc)
end sub

function ffrm_ubb_type(trc)
  dim tmp1
  tmp1=vbcrlf&"UBB辅助：<br>" & _
       vbcrlf&"<input onclick=""javascript:jk_ubb_mode('2');"" type=radio checked value=2 name=mode "&trc&"> 提示插入<br>" & _
       vbcrlf&"<input onclick=""javascript:jk_ubb_mode('0');"" type=radio value=0 name=mode "&trc&"> 直接插入<br>" & _
       vbcrlf&"<input onclick=""javascript:jk_ubb_mode('1');"" type=radio value=1 name=mode "&trc&"> 帮助信息" 
ffrm_ubb_type=tmp1
end function

sub frm_word_size(fn,tn,ws,wv)
  response.write ffrm_word_size(fn,tn,ws,wv)
end sub

function ffrm_word_size(fn,tn,ws,wv)
%>
<script language=JavaScript>
<!--
function checklength(theform)
{
  var postmaxchars=<%response.write ws%>;
  var postchars=theform.<%response.write tn%>.value.length;
  var post_1="您输入的<%response.write wv%>已经超过系统允许的最大值！\n请删减部分<%response.write wv%>！";
  var message="";
  if (postmaxchars != 0) { message = "系统允许："+postmaxchars+"KB（约"+postmaxchars*1024+"个字符）"; }
  if (postmaxchars*1024>=postchars)
  {
    var postc=postmaxchars*1024-postchars;
    post_1="您还可以输入："+postc+"个字符（约"+Math.round(postc/1024)+"KB）";
  }
  alert("您输入的<%response.write wv%>的统计信息如下：\n\n当前长度："+postchars+"个字符（约"+Math.round(postchars/1024)+"KB）\n"+message+"\n"+post_1);
}
-->
</script>
<%
ffrm_word_size=vbcrlf&"<a href='###' onclick=""javascript:checklength(document."&fn&");"">[字数检查]</a>"
end function

function frm_topic(fn,tn)
  dim tmp1
  tmp1=vbcrlf&"<select onchange=""document."&fn&"."&tn&".focus(); document."&fn&"."&tn&".value = this.options[this.selectedIndex].value + document."&fn&"."&tn&".value;"">" & _ 
       vbcrlf&"<option value='' selected>选择</option>" & _
       vbcrlf&"<option value=[原创]>[原创]</option>" & _
       vbcrlf&"<option value=[转帖]>[转帖]</option>" & _
       vbcrlf&"<option value=[Hack]>[Hack]</option>" & _
       vbcrlf&"<option value=[砖头]>[砖头]</option>" & _
       vbcrlf&"<option value=[乱弹]>[乱弹]</option>" & _
       vbcrlf&"<option value=[灌水]>[灌水]</option>" & _
       vbcrlf&"<option value=[讨论]>[讨论]</option>" & _
       vbcrlf&"<option value=[警告]>[警告]</option>" & _
       vbcrlf&"<option value=[求助]>[求助]</option>" & _
       vbcrlf&"<option value=[推荐]>[推荐]</option>" & _
       vbcrlf&"<option value=[公告]>[公告]</option>" & _
       vbcrlf&"<option value=[成人]>[成人]</option>" & _
       vbcrlf&"<option value=[注意]>[注意]</option>" & _
       vbcrlf&"<option value=[贴图]>[贴图]</option>" & _
       vbcrlf&"<option value=[建议]>[建议]</option>" & _
       vbcrlf&"<option value=[下载]>[下载]</option>" & _
       vbcrlf&"<option value=[分享]>[分享]</option>" & _
       vbcrlf&"</select>"
  frm_topic=tmp1
end function

%>