jk_frm.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 200 行

<%
'****************************************************
' 玫瑰情缘 2006v3.0      power by www.meigui8.cn
' email: [e-mail]  , [e-mail]
' web: http://www.meigui8.cn
' copyright (c) 2006 meigui8.cn all rights reserved.
'****************************************************

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)
%><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><table border=0 cellspacing=0 cellpadding=0><tr>
<td height=30><%response.write uw%><select onchange="javascript:jk_ubb_font(this.options[this.selectedindex].value);" size=1 name=font>
<option value=宋体>宋体</option>
<option value=黑体>黑体</option>
<option value=arial>arial</option>
<option value="book antiqua">book antiqua</option>
<option value="century gothic">century gothic</option>
<option value="courier new" selected>courier new</option>
<option value=georgia>georgia</option>
<option value=impact>impact</option>
<option value=tahoma>tahoma</option>
<option value="times new roman">times new roman</option>
<option value=verdana>verdana</option>
</select></td>
<td>&nbsp;&nbsp;<select onchange="javascript:jk_ubb_size(this.options[this.selectedindex].value);" size=1 name=size>
<option value=-2>-2</option>
<option value=-1>-1</option>
<option value=1>1</option>
<option value=2>2</option>
<option value=3 selected>3</option>
<option value=4>4</option>
<option value=5>5</option>
<option value=6>6</option>
<option value=7>7</option>
</select></td>
<td>&nbsp;&nbsp;<select onchange="javascript:jk_ubb_color(this.options[this.selectedindex].value);" size=1 name=color>
<option style="color: white" value=white>white</option>
<option style="color: black" value=black selected>black</option>
<option style="color: red" value=red>red</option>
<option style="color: yellow" value=yellow>yellow</option>
<option style="color: pink" value=pink>pink</option>
<option style="color: green" value=green>green</option>
<option style="color: orange" value=orange>orange</option>
<option style="color: purple" value=purple>purple</option>
<option style="color: blue" value=blue>blue</option>
<option style="color: beige" value=beige>beige</option>
<option style="color: brown" value=brown>brown</option>
<option style="color: teal" value=teal>teal</option>
<option style="color: navy" value=navy>navy</option>
<option style="color: maroon" value=maroon>maroon</option>
<option style="color: limegreen" value=limegreen>limegreen</option>
</select></td>
<%if bj=1 then%>
<td>&nbsp;&nbsp;<select onchange="javascript:jk_ubb_dz(this.options[this.selectedindex].value);" size=1 name=dz>
<option>背景音乐</option>
<option>=====</option> 
<option value="/奉献">奉  献</option>
<option value="/心雨">心  雨</option>
<option value="/回家">回  家</option>
<option value="/梁祝">梁  祝</option>
<option value="/小薇">小  薇</option>
<option value="/丁香花">丁香花</option>
<option value="/七里香">七里香</option>
<option value="/东风破">东风破</option>
<option value="/茉莉花">茉莉花</option>
<option value="/欧若拉">欧若拉</option>
<option value="/猪之歌">猪之歌</option>
<option value="/逍遥叹">逍遥叹</option>
<option value="/杀破狼">杀破狼</option>
<option value="/喜欢你">喜欢你</option>
<option value="/忘忧草">忘忧草</option> 
</select></td>
<td>&nbsp;&nbsp;<select onchange="if(this.options[this.selectedindex].value!=''){location=this.options [this.selectedindex].value;this.options[0].selected=true;}" size=1 name="cd">
<option>特殊帖</option>
<option>====</option> 
<option value=javascript:jk_ubb_reply()>回复贴</option>
<option value=javascript:jk_ubb_usemoney()>购买贴</option>
<option value=javascript:jk_ubb_money()>金钱贴</option>
<option value=javascript:jk_ubb_point()>积分贴</option>
<option value=javascript:jk_ubb_name()>指定贴</option>
<option value=javascript:jk_ubb_news()>新闻贴</option>
<option value=javascript:jk_ubb_art()>文章贴</option>
</select></td>
<%end if%>

</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td height=30><%response.write uw%><a href="javascript:jk_ubb_bold();"><img alt='插入粗体文本' src='images/ubb/bold.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_italicize();"><img alt='插入斜体文本' src='images/ubb/italicize.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_underline();"><img alt='插入下划线' src='images/ubb/underline.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_center();"><img alt='居中对齐' src='images/ubb/center.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_link();"><img alt='插入超级链接' src='images/ubb/url.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_email();"><img alt='插入邮件地址' src='images/ubb/email.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_image();"><img alt='插入图像' src='images/ubb/image.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_flash();"><img alt='插入 flash' src='images/ubb/flash.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_code();"><img alt='插入代码' src='images/ubb/code.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_quote();"><img alt='插入引用' src='images/ubb/quote.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_rm();"><img alt='插入realplay视频文件' src='images/ubb/rm.gif' border=0></a>&nbsp;
<a href="javascript:jk_ubb_mp();"><img alt='插入media player播放文件' src='images/ubb/mp.gif' border=0></a></td></tr></table><%
end sub

sub frm_ubb_type(trc)
%>ubb辅助：<br>
<input onclick="javascript:jk_ubb_mode('2');" type=radio checked value=2 name=mode <%response.write trc%>> 提示插入<br>
<input onclick="javascript:jk_ubb_mode('0');" type=radio value=0 name=mode <%response.write trc%>> 直接插入<br>
<input onclick="javascript:jk_ubb_mode('1');" type=radio value=1 name=mode <%response.write trc%>> 帮助信息<%
end sub

sub frm_word_size(fn,tn,ws,wv)
%>
<a href="###" onclick="javascript:checklength(document.<%response.write fn%>);">[字数检查]</a>
<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><%
end sub

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

'****************************************************
' 玫瑰情缘 2006v3.0      power by www.meigui8.cn
' email: [e-mail]  , [e-mail]
' web: http://www.meigui8.cn
' copyright (c) 2006 meigui8.cn all rights reserved.
'****************************************************
%>