addnewtop.asp

来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 440 行 · 第 1/2 页
ASP
440 行
<% If Menu="Addnew" or Menu="EditBbs" Then %>
	<TD width=126  height=25><B>文章标题</B> <SELECT onchange=DoTitle(this.options[this.selectedIndex].value)>
	<OPTION value="" selected>&nbsp;类型</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 width=481  colSpan=3 height=25>
	<INPUT maxLength=30 size=60 name=topic value=<%if Menu="EditBbs" Then Response.write conn.execute("Select Title from Forum where ShowID="&EditId)(0) %>></TD></TR>
<% End If %>

<TR>
<TD vAlign=top align=left width=126  height=23><B>您的表情</B></TD>
<TD width=481  colSpan=3>
<INPUT type=radio value=1 name=icon><IMG
src="images/brow/1.gif"> <INPUT type=radio value=2 name=icon><IMG
src="images/brow/2.gif"> <INPUT type=radio value=3 name=icon><IMG
src="images/brow/3.gif"> <INPUT type=radio value=4 name=icon><IMG
src="images/brow/4.gif"> <INPUT type=radio value=5 name=icon><IMG
src="images/brow/5.gif"> <INPUT type=radio value=6 name=icon><IMG
src="images/brow/6.gif"> <INPUT type=radio value=7 name=icon><IMG
src="images/brow/7.gif"> <INPUT type=radio value=8 name=icon><IMG
src="images/brow/8.gif"> <INPUT type=radio value=9 name=icon><IMG
src="images/brow/9.gif"> <INPUT type=radio value=10 name=icon><IMG
src="images/brow/10.gif"> <INPUT type=radio value=11 name=icon><IMG
src="images/brow/11.gif"> <INPUT type=radio value=12 name=icon><IMG
src="images/brow/12.gif"> <BR> <INPUT type=radio value=13 name=icon><IMG
src="images/brow/13.gif"> <INPUT type=radio value=14 name=icon><IMG
src="images/brow/14.gif"> <INPUT type=radio value=15 name=icon><IMG
src="images/brow/15.gif"> <INPUT type=radio value=16 name=icon><IMG
src="images/brow/16.gif"> <INPUT type=radio value=17 name=icon><IMG
src="images/brow/17.gif"> <INPUT type=radio value=18 name=icon><IMG
src="images/brow/18.gif"> <INPUT type=radio value=19 name=icon><IMG
src="images/brow/19.gif"> <INPUT type=radio value=20 name=icon><IMG
src="images/brow/20.gif"> <INPUT type=radio value=21 name=icon><IMG
src="images/brow/21.gif"> <INPUT type=radio value=22 name=icon><IMG
src="images/brow/22.gif"> <INPUT type=radio value=23 name=icon><IMG
src="images/brow/23.gif"> <INPUT type=radio value=24 name=icon><IMG
src="images/brow/24.gif"> </TD></TR>
<TR>
<TD vAlign=top width=126  rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=left 
border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=125 ><B>文章内容</B><BR>(<a href="javascript:CheckLength();">查看内容长度</a>)<BR>
<BR></TD></TR>
<TR>
<TD vAlign=center align=left width=125 bgcolor="#ECF5FF">
<TABLE
style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; WIDTH: 125px; BORDER-BOTTOM: 1px inset"
cellSpacing=1 cellPadding=3 align=left border=0>
<TBODY>
<TR align=middle>
<TD><A href="javascript:emoticon('/:)')"><IMG alt=笑脸
src="images/brow/regular_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/:d')"><IMG alt=开口笑脸
src="images/brow/teeth_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/:o')">
<IMG alt="惊讶的笑脸"
src="images/brow/omg_smile.gif" border=0></A></TD></TR>
<TR align=middle>
<TD><A href="javascript:emoticon('/:p')">
<IMG alt=吐舌笑脸
src="images/brow/tounge_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/;)')"><IMG alt=眨眼微笑
src="images/brow/wink_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/:(')">
<IMG alt=难过的脸
src="images/brow/sad_smile.gif" border=0></A></TD></TR>
<TR align=middle>
<TD><A href="javascript:emoticon('/:s')">
<IMG alt=困惑的笑脸
src="images/brow/confused_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/:|')">
<IMG alt=失望的脸
src="images/brow/whatchutalkingabout_smile.gif"
border=0></A></TD>
<TD><a href="javascript:emoticon('/:$')">
<IMG alt=尴尬的笑脸
src="images/brow/embaressed_smile.gif"
border=0></a></TD></TR></TBODY></TABLE>
<TR>
<TD ><BR><span id=ybb>YBB 代码： 支持<BR>表情字符： 支持<BR>[IMG]代码：支持<BR>[FLASH]代码：支持</span>
<script>
ybb.innerText=replace(ybb.innerText)
function replace(temp) {
temp = temp.replace(/1/ig,"支持");
temp = temp.replace(/0/ig,"禁止");
return (temp);
}
</script><br><br>
</TD></TR></TD></TR></TBODY></TABLE></TD>
<SCRIPT src="images/post.js"></SCRIPT>
<SCRIPT src="images/ybbcode.js"></SCRIPT>
<SCRIPT src="images/unybb.js"></SCRIPT>
<TD width=481  colSpan=3><INPUT title="加粗: [Alt] + b" style="FONT-WEIGHT: bold" accessKey=b onclick=YBBCbold() type=button value=" B " name=bold>
<INPUT title="倾斜: [Alt] + i" style="FONT-STYLE: italic" accessKey=i onclick=YBBCitalic() type=button value=" I " name=italic>
<INPUT title="下划线: [Alt] + u" style="TEXT-DECORATION: uānderline" accessKey=u onclick=YBBCunder() type=button value=" U " name=under>
<INPUT title="超链接: [Alt] + h" style="COLOR: blue; TEXT-DECORATION: underline" accessKey=h onclick=YBBCurl() type=button value=" http:// ">&nbsp;<INPUT title="EMAIL: [Alt] + e" style="COLOR: blue; TEXT-DECORATION: underline" accessKey=e onclick=YBBCemail() type=button value="  @ ">
<INPUT title="图片: [Alt] + p" accessKey=p onclick=YBBCimage() type=button value=" 图片 ">
<INPUT title="引用: [Alt] + q" accessKey=q onclick=YBBCquote() type=button value=" 引用 " name=quote>
<INPUT title="FLASH: [Alt] + f" accessKey=f onclick=YBBCflash() type=button value=" FLASH " name=flash>
<br><font color=333333>颜色：</font>
<select onchange=COLOR(this.options[this.selectedIndex].value)>
<option style=COLOR:000000;BACKGROUND-COLOR:000000 value=000000>黑色</option>
<option style=COLOR:FFFFFF;BACKGROUND-COLOR:FFFFFF value=FFFFFF>白色</option>
<option style=COLOR:008000;BACKGROUND-COLOR:008000 value=008000>绿色</option>
<option style=COLOR:800000;BACKGROUND-COLOR:800000 value=800000>褐色</option>
<option style=COLOR:808000;BACKGROUND-COLOR:808000 value=808000>橄榄色</option>
<option style=COLOR:000080;BACKGROUND-COLOR:000080 value=000080>深蓝色</option>
<option style=COLOR:800080;BACKGROUND-COLOR:800080 value=800080>紫色</option>
<option style=COLOR:808080;BACKGROUND-COLOR:808080 value=808080>灰色</option>
<option style=COLOR:FFFF00;BACKGROUND-COLOR:FFFF00 value=FFFF00>黄色</option>
<option style=COLOR:00FF00;BACKGROUND-COLOR:00FF00 value=00FF00>浅绿色</option>
<option style=COLOR:00FFFF;BACKGROUND-COLOR:00FFFF value=00FFFF>浅蓝色</option>
<option style=COLOR:FF00FF;BACKGROUND-COLOR:FF00FF value=FF00FF>粉红色</option>
<option style=COLOR:C0C0C0;BACKGROUND-COLOR:C0C0C0 value=C0C0C0>银白色</option>
<option style=COLOR:FF0000;BACKGROUND-COLOR:FF0000 value=FF0000>红色</option>
<option style=COLOR:0000FF;BACKGROUND-COLOR:0000FF value=0000FF>蓝色</option>
<option style=COLOR:008080;BACKGROUND-COLOR:008080 value=008080>蓝绿色</option>
</select>　
<font color=333333>字体：</font>
<select onchange=ybbfont(this.options[this.selectedIndex].value)>
<option value="宋体" selected>宋体</option>
<option value="黑体">黑体</option>
<option value="隶书">隶书</option>
<option value="幼圆">幼圆</option>
<option value="楷体_GB2312">楷体_GB2312</option>
<OPTION value=Verdana>Verdana</OPTION>
<OPTION value="Arial Black">Arial Black</OPTION>
<OPTION value="Courier New">Courier New</OPTION>
<OPTION value="Lucida Console">Lucida Console</OPTION>
<OPTION value="Times New Roman" >Times New Roman</OPTION>
<OPTION value="Webdings">Webdings</OPTION>
<OPTION value="Wingdings">Wingdings</OPTION>
</SELECT>　
<font color=333333>字体大小：</font>
<select onchange=ybbsize(this.options[this.selectedIndex].value)>
<OPTION value=1>1</OPTION>
<OPTION value=2>2</OPTION>
<OPTION value=3>3</OPTION>
<OPTION value=4>4</OPTION>
<OPTION value=5>5</OPTION>
<OPTION value=6>6</OPTION>
<OPTION value=7>7</OPTION>
</SELECT>
</TD></TR>
<TR>
<TD width=481  colSpan=3 align="center">
<TEXTAREA onkeydown=presskey(); name=content rows=10 cols=65><%

Select Case Request.QueryString("menu")
	Case "Rebbs"
		if Quot <> "" and IsNumEric(Quot)=True Then 
			content=conn.execute("Select Content from Forum where ShowID="&Quot)(0)
			Content=Replace(Content,"<TEXTAREA cols=65 rows=6>","")
			Content=Replace(Content,"<INPUT onclick=runEx() type=button value=运行此代码>","")
			Content=Replace(Content,"</TEXTAREA>","")
			Response.write "[QUOTE]原文由 [B]"&conn.execute("Select UserName from Forum where ShowID="&Quot)(0)&"[/B] 发表:"&vbCrlf&content&"[/QUOTE]"
		end if
		if Quote <> "" and IsNumEric(Quot)=True Then
			content=conn.execute("Select Content from ReForum where ReID="&Quote)(0)
			Content=Replace(Content,"<TEXTAREA cols=65 rows=6>","")
			Content=Replace(Content,"<INPUT onclick=runEx() type=button value=运行此代码>","")
			Content=Replace(Content,"</TEXTAREA>","")
			Response.write "[QUOTE]原文由 [B]"&conn.execute("Select UserName from ReForum where ReID="&Quote)(0)&"[/B] 发表:"&vbCrlf&content&"[/QUOTE]" 
		end if
	Case "EditRebbs" 
		if IsNumEric(EditId)<>"" and IsNumEric(EditId)=true Then
		Response.write conn.execute("Select Content from ReForum where ReID="&EditId)(0)
		end if
	Case "EditBbs"
		if IsNumEric(EditId)<>"" and IsNumEric(EditId)=true Then
			Content=conn.execute("Select Content from Forum where ShowID="&EditId)(0)
			Content=Replace(Content,"<TEXTAREA cols=65 rows=6>","")
			Content=Replace(Content,"<INPUT onclick=runEx() type=button value=运行此代码>","")
			Content=Replace(Content,"</TEXTAREA>","")
			Response.write Content
		End if
End Select	
%></TEXTAREA><br>
<Script>
document.form.content.focus();
function delquote(temp) {
temp = temp.replace(/(<BLOCKQUOTE>)(.[^\[]*)(<\/BLOCKQUOTE\>)/ig,"$2");
return (temp);
}
temp=delquote(document.form.content.value);
document.form.content.value = unybbcode(temp);
function runEx(){var winEx = window.open('', '', 'resizable,scrollbars');winEx.document.write(unescape(event.srcElement.parentElement.children[0].value));}
</Script>

『 <a href="javascript:replac()">替换文本</a> 』 『  
<a href="javascript:HighlightAll('form.content')">复制到剪贴板</a> 』</TD></TR>
<TR bgcolor="#BFD3EE">
<TD align=left ><b>选项</b></TD>
<TD align=left colSpan=3 bgcolor="#BFD3EE"><font color="#FFFFFF"><b><IFRAME src="upfile.asp?Menu=UpFile" frameBorder=0 width="100%" scrolling=no height=21></IFRAME></b></font></TD></TR>
<TR>
<TD vAlign=top width=126  height=30></TD>
<TD width=481 colSpan=3 height=30>
<% If Request.Cookies("Product") > 2 Then %>
<INPUT type=checkbox value=1 name=htmlcode> HTML代码
&nbsp;&nbsp;&nbsp;&nbsp;<INPUT type=checkbox value=1 name=TopTopic> 置顶主题<BR>
<INPUT type=checkbox value=1 name=ybbcode> 禁止YBB代码
&nbsp;<INPUT type=checkbox value=1 name=LockTopic> 禁止回复<BR>
<INPUT type=checkbox valāue=1 name=smilies> 禁止表情字符
<INPUT type=checkbox value=1 name=InIndex> 首页显示
<% Else %>
<INPUT type=checkbox value=1 name=htmlcode> HTML代码<BR>
<INPUT type=checkbox value=1 name=ybbcode> 禁止YBB代码<BR>
<INPUT type=checkbox value=1 name=smilies> 禁止表情字符
<% End If %>

</TD></TR>
<TR>
<TD align=middle  colSpan=4 height=27 width="618"><INPUT tabIndex=4 type=submit value=<%= Thean %> name=submit1> <INPUT type=reset onclick="{if(confirm('该项操作要清除全部的内容，您确定要清除吗?')){return true;}return false;}" value=" 重 写 "></TD></TR></TBODY></TABLE></FORM>
<% htmlend %>
addnewtop.asp - 源码说明

本页面展示了「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数据库：Access2000」中的 addnewtop.asp 源码文件，采用 ASP 编程语言编写，共 440 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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