www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > template_a/page_admin_forum_mdy_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_mdy_save.asp" method="post" id="vbform" name="vbform" onSubmit="return verify(this)"> <div id="main_content_table"> <% If IsObject(TAG_objDicUnit) AND TAG_objDicUnit.Exists("Exist") Then %> <!--html_row DataRS=TAG_objDicUnit--> <input type="hidden" name="intForumId" value="<%=TAG_objDicUnit.Item("FORUM_ID")%>"> <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="<%=TAG_objDicUnit.Item("FORUM_NAME")%>" type="text" /><span class="asterisk">*</span></td> <td class="label" width="20%" >板块简要描述:</td> <td width="30%"> <input class="text" name="iptDes" maxlength="40" value="<%=TAG_objDicUnit.Item("FORUM_DES")%>" type="text" /><span class="asterisk">*</span> </td> </tr> <tr> <td class="label" width="20%" >板块所属分类:</td> <td width="30%"> <select name="selCate" class="commselect"> <option value="<%=TAG_objDicUnit.Item("FORUM_CATE_ID")%>"><%=TAG_objDicUnit.Item("CATE_NAME")%></option> <!--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%"> <input class="text_min" name="iptOrder" maxlength="3" value="<%=TAG_objDicUnit.Item("FORUM_ORDER")%>" type="text" /><span class="asterisk">*</span>(必须为数字,数字大的先显示) </td> </tr> <tr> <td class="label" width="20%" >板块图标:</td> <td colspan="3"> <input class="text" name="iptIco" maxlength="50" value="<%=TAG_objDicUnit.Item("FORUM_ICO")%>" type="text"/>(请将该图标文件须传至网站目录下的images/forum/子目录下,若为空,则使用默认图标)</td> </tr> <tr> <td class="label" width="20%" >是否在首页推荐:</td> <td width="30%"> <select name="selHomeShow"> <option value="<%=TAG_objDicUnit.Item("FORUM_HOME_SHOW")%>"> <% If TAG_objDicUnit.Item("FORUM_HOME_SHOW") = 0 Then Response.Write "是" Else Response.Write "否" End If %> </option> <option value="0">是</option> <option value="1">否</option> </select></td> <td class="label" width="20%" >允许回复:</td> <td width="30%"> <select name="selReadOnly"> <option value="<%=TAG_objDicUnit.Item("FORUM_READ_ONLY")%>"> <% If TAG_objDicUnit.Item("FORUM_READ_ONLY") = 0 Then Response.Write "允许" Else Response.Write "不允许" End If %> </option> <option value="0">允许</option> <option value="1">不允许</option> </select> </td> </tr> <tr> <td class="label" width="20%" >设置贴吧版主:</td> <td colspan="3"> <input class="text_long" name="iptMaster" maxlength="50" value="<%=TAG_objDicUnit.Item("FORUM_MASTER")%>" type="text" /> (请填写用户登陆帐号,用 | 分隔,并去掉不必要空格)</td> </tr> <tr> <td class="label" width="20%" >当前贴吧版主:</td> <td colspan="2"><%=TAG_objDicUnit.Item("FORUM_MASTER_NAME")%></td> <td class="label"></td> </tr> </table> <!--/html_row--> <% If IsObject(TAG_objDicUnit) Then Set TAG_objDicUnit = Nothing End If End If %> </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" -->