📄 groupdebate_manage.asp
字号:
<tr class="hback">
<td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> <input type="submit" name="submit" value=" 保存 " />
<input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
<input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%="GroupDebate_manage.asp?Act=Del&gdID="&request.QueryString("gdID")%>'">
</td>
</tr>
</table></td>
</tr>
</form>
</table>
<%End Sub
Sub Search()
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form1" method="post" action="?Act=SearchGo">
<tr class="hback">
<td colspan="3" align="left" class="xingmu" >查询社群信息</td>
</tr>
<tr class="hback">
<td align="right">ID编号</td>
<td><input type="text" name="frm_gdID" size="40" value=""> </td>
</tr>
<tr class="hback">
<td width="25%" align="right">所属社群分类</td>
<td>
<!---联动菜单开始 onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');" --->
<select name="vclass1" id="vclass1" style="width:100px">
<option></option>
</select>
<!-- <select name="vclass2" id="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
<option></option>
</select> <select name="vclass3" id="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
<option></option>
</select> <select name="vclass4" id="vclass4" style="width:100px">
<option></option>
</select>
<!---联动菜单结束--- > -->
</td>
</tr>
<tr class="hback">
<td align="right">社群主题</td>
<td><input type="text" name="frm_Title" size="40" value=""> </td>
</tr>
<tr class="hback">
<td align="right">社群公告</td>
<td> <textarea name="frm_Content" cols="40" rows="5"></textarea>
</td>
</tr>
<tr class="hback">
<td align="right">可查看的用户编号</td>
<td> <textarea name="frm_AppointUserNumber" cols="40"></textarea>
多个则用“,”分开 </td>
</tr>
<tr class="hback">
<td align="right">可查看的会员组</td>
<td> <textarea name="frm_AppointUserGroup" cols="40"></textarea>
</td>
</tr>
<tr class="hback">
<td align="right">用于哪个子类</td>
<td> <select name="frm_InfoType">
<option value="">请选择</option>
<option value="0">新闻</option>
<option value="1">下载</option>
<option value="2">商品</option>
<option value="3">房产</option>
<option value="4">供求</option>
<option value="5">求职</option>
<option value="6">招聘</option>
<option value="7">其它</option>
</select> </td>
</tr>
<tr class="hback">
<td align="right">社群所属行业</td>
<td>
<!---联动菜单开始 onBlur="javascript:RemoveChildopt(this,'Hy_vclass2,Hy_vclass3,Hy_vclass4');" --->
<select name="Hy_vclass1" id="select" style="width:100px">
<option></option>
</select>
<!-- <select name="Hy_vclass2" id="select2" onBlur="javascript:RemoveChildopt(this,'Hy_vclass3,Hy_vclass4');" style="width:100px">
<option></option>
</select> <select name="Hy_vclass3" id="select3" onBlur="javascript:RemoveChildopt(this,'Hy_vclass4');" style="width:100px">
<option></option>
</select> <select name="Hy_vclass4" id="select4" style="width:100px">
<option></option>
</select>
<!---联动菜单结束--- > -->
</td>
</tr>
<tr class="hback">
<td align="right">加入时间</td>
<td> <input type="text" name="frm_AddTime" size="27" value="" readonly>
<input name="SelectDate2" type="button" id="SelectDate2" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_AddTime);"></td>
</tr>
<tr class="hback">
<td align="right">是否锁定</td>
<td> <input type="radio" name="frm_isLock" value="true">
已锁定
<input type="radio" name="frm_isLock" value="false">
未锁定 </td>
</tr>
<tr class="hback">
<td align="right">附件地址</td>
<td> <input type="text" name="frm_AccessFile" size="40" value="" require="true" dataType="Url" msg="非法的Url">
</td>
</tr>
<tr class="hback">
<td align="right">社群创始人用户编号</td>
<td> <input name="frm_UserNumber" type="text" value="" size="40" datatype="Require" msg="必须填写">
</td>
</tr>
<tr class="hback">
<td align="right">社群现在管理员用户编号</td>
<td> <input name="frm_AdminName" type="text" value="" size="40" datatype="Require" msg="必须填写">
</td>
</tr>
<tr class="hback">
<td align="right">此群的成员</td>
<td> <textarea name="frm_ClassMember" cols="40" datatype="Require" msg="必须填写"></textarea>
多个则用“,”分开 </td>
</tr>
<tr class="hback">
<td align="right">此群讨论每页显示多少数量</td>
<td> <input type="text" name="frm_PerPageNum" size="40" value="" dataType="Range" msg="在1~30之间" min="-1" max="31" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')" onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
</td>
</tr>
<tr class="hback">
<td align="right">社群是否是管理员建立</td>
<td> <input type="radio" name="frm_isSys" value="1" >
是
<input type="radio" name="frm_isSys" value="0" >
否 </td>
</tr>
<tr class="hback">
<td align="right">人气/点击数</td>
<td> <input type="text" name="frm_hits" size="40" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')" onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')"> </td>
</tr>
<tr class="hback">
<td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> <input type="submit" name="submit" value=" 执行查询 " />
<input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
</td>
</tr>
</table></td>
</tr>
</form>
</table>
<%End Sub%>
</BODY>
<%if instr(",Add,Edit,Search,",","&request.QueryString("Act")&",")>0 then%>
<script language="javascript">
<!--
//awen created
//联动菜单---行业类别 最多4级 --start
//数据格式 ID，父级ID，名称
var Hy_array=new Array();
<%dim sql,rs,i
sql="select VCID,ParentID,vClassName from FS_ME_VocationClass"
set rs=User_Conn.execute(sql)
i=0
do while not rs.eof
%>
Hy_array[<%=i%>]=new Array("<%=rs("VCID")%>","<%=rs("ParentID")%>","<%=rs("vClassName")%>");
<%
rs.movenext
i=i+1
loop
rs.close
%>
var Hy_liandong=new CLASS_LIANDONG_YAO(Hy_array)
Hy_liandong.firstSelectChange("0","Hy_vclass1");
/*
Hy_liandong.subSelectChange("Hy_vclass1","Hy_vclass2");
Hy_liandong.subSelectChange("Hy_vclass2","Hy_vclass3");
Hy_liandong.subSelectChange("Hy_vclass3","Hy_vclass4");
*/
Hy_liandong.close
//end
//---------------------------------------------
//联动菜单---所属的社群分类 --start
var array=new Array();
<%
sql="select VCID,ParentID,vClassName from FS_ME_GroupDebateClass"
set rs=User_Conn.execute(sql)
i=0
do while not rs.eof
%>
array[<%=i%>]=new Array("<%=rs("VCID")%>","<%=rs("ParentID")%>","<%=rs("vClassName")%>");
<%
rs.movenext
i=i+1
loop
rs.close
%>
var liandong=new CLASS_LIANDONG_YAO(array)
liandong.firstSelectChange("0","vclass1");
/*
liandong.subSelectChange("vclass1","vclass2");
liandong.subSelectChange("vclass2","vclass3");
liandong.subSelectChange("vclass3","vclass4");
*/
liandong.close
document.getElementById('vclass1').options.remove(1);
document.getElementById('Hy_vclass1').options.remove(1);
/*
//---------------------------清除关联下拉框的内容
function RemoveChildopt(obj,StrList)
{
var TmpArr = StrList.split(',');
if(obj.selectedIndex<2)
{
for (var i=TmpArr.length-1 ; i>=0; i--)
{
//alert(TmpArr[i]);
if (TmpArr[i]!='')
//清除下拉内容
for (var j=document.getElementById(TmpArr[i]).options.length-1 ; j>=0 ; j--)
document.getElementById(TmpArr[i]).options.remove(j);
}
}
}
*/
//end
-->
</script>
<%end if%>
<%
Set VClass_Rs=nothing
User_Conn.close
Set User_Conn=nothing
%>
</HTML>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -