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"> </div> </div> <!-- 主板块结束 --> <!-- #include file="page_admin_footer.html.asp" -->