page_admin_forum_mdy_form.html.asp

jsp 同学录源码

<!-- #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">&nbsp;</div>
</div>

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