www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > template_a/page_admin_forum_add_form.html.asp

    <!-- #include file="page_admin_forum_header.html.asp" -->             
<!-- 主板块开始 --->
<%Call ActionView(CONST_ACTION_FUNC)%>
<script language="Javascript">
//表单校验
function verify(theform)
{
	<%=TAG_strVerifyCode%>
	return true;
}


</script>
<div id="main_content">
	<div id="main_content_title">
		<div class="note">贴吧板块添加</div>
	</div>
	<form action="admin_forum_add_save.asp" method="post" id="vbform" name="vbform" onSubmit="return verify(this)">
	<div id="main_content_table">
		<table width="100%" border="0" cellspacing="4" cellpadding="0">
			<tr>
				<td class="label" width="20%" >贴吧板块名称:</td>
				<td width="30%">
					<input  class="text" name="iptName" maxlength="20" value="" type="text" /><span class="asterisk">*</span></td>
				<td class="label" width="20%" >板块简要描述:</td>
				<td width="30%">
					 <input  class="text" name="iptDes" maxlength="40" value="" type="text" /><span class="asterisk">*</span>
				</td>
			</tr>
			<tr>
				<td class="label" width="20%" >板块所属分类:</td>
				<td width="30%">
					<select name="selCateId" class="commselect">
					<!--html_select values=TAG_arrValues outputs=TAG_arrOutputs-->
<%
 Dim m 
 For m = Lbound(TAG_arrValues) To Ubound(TAG_arrValues)
 Response.Write "<option value='" & TAG_arrValues(m) & "'>" & TAG_arrOutputs(m) & "</option>"
 Next
%>
</select>
<!--/html_select--></select><span class="asterisk">*</span></td>
				<td class="label" width="20%" ></td>
				<td width="30%"></td>
			</tr>
		</table>
	</div>
	<div id="main_content_action">
		<span>
		<input id="submit" name="submit" type="submit" value="提 交" /></span>
		<span>
		<input  name="reset" type="reset" value="重 来" /></span>
	</div>
	</form>
	<div id="main_content_foot">&nbsp;</div>
</div>

<!-- 主板块结束 -->   
<!-- #include file="page_admin_footer.html.asp" -->