开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
GroupDebate_manage.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：33k
源码类别：

数据库编程

开发平台：

ASP/ASPX

GroupDebate_manage.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp" -->
  5. <!--#include file="../../FS_Inc/Func_page.asp" -->
  6. <% 'Copyright (c) 2006 Foosun Inc. Code by awen
  7. 'on error resume next
  8. Dim Conn,User_Conn,VClass_Rs,VClass_Sql
  9. MF_Default_Conn
  10. MF_User_Conn
  11. MF_Session_TF
  12. if not MF_Check_Pop_TF("ME_Form") then Err_Show 
  14. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  15. int_RPP=15 '设置每页显示数目
  16. int_showNumberLink_=10 '数字导航显示数目
  17. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  18. str_nonLinkColor_="#999999" '非热链接颜色
  19. toF_="<font face=webdings>9</font>"    '首页 
  20. toP10_=" <font face=webdings>7</font>" '上十
  21. toP1_=" <font face=webdings>3</font>" '上一
  22. toN1_=" <font face=webdings>4</font>" '下一
  23. toN10_=" <font face=webdings>8</font>" '下十
  24. toL_="<font face=webdings>:</font>" '尾页
  26. set VClass_Rs=User_Conn.execute("select count(*) from FS_ME_GroupDebateClass")
  27. if VClass_Rs(0) = 0 then response.Redirect("GroupDebate_Class.asp") : response.End()
  28. VClass_Rs.close
  30. Function set_Def(old,Def)
  31. if old<>"" then 
  32. set_Def = old
  33. else
  34. set_Def = Def
  35. end if
  36. End Function
  38. Function Get_FValue_Html(Add_Sql,orderby)
  39. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  40. Dim fun_ii,fun_ClassID,fun_ClassType
  41. Str_Tmp = "gdID,ClassID,Title,InfoType,ClassType,hits,AddTime,isLock"
  42. This_Fun_Sql = "select "&Str_Tmp&" from FS_ME_GroupDebateManage"
  43. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  44. if orderby<>"" then This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  45. if request.QueryString("Act")="SearchGo" then 
  46. Str_Tmp = "gdID,Title,Content,AppointUserNumber,AppointUserGroup,InfoType,AddTime,isLock,AccessFile,UserNumber,AdminName,ClassMember,PerPageNum,isSys,hits"
  47. Arr_Tmp = split(Str_Tmp,",")
  48. for each Str_Tmp in Arr_Tmp
  49. if Trim(request("frm_"&Str_Tmp))<>"" then 
  50. Req_Str = NoSqlHack(Trim(request("frm_"&Str_Tmp)))
  51. select case Str_Tmp
  52. case "gdID","InfoType","hits","AddTime","isLock","PerPageNum","isSys"
  53. ''数字,日期
  54. regxp = "|<|>|=|<=|>=|<>|"
  55. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  56. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  57. elseif instr(Req_Str,"*")>0 then 
  58. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  59. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  60. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  61. else
  62. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  63. end if
  64. case else
  65. ''字符
  66. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  67. end select 
  68. end if
  69. next
  70. ''=========================================
  71. '''vclass表示ClassID,Hy_vclass表示ClassType
  72. for fun_ii = 4 to 1 step -1
  73. if request.Form("vclass"&fun_ii)<>"" then fun_ClassID = request.Form("vclass"&fun_ii) : exit for
  74. next
  75. for fun_ii = 4 to 1 step -1
  76. if request.Form("Hy_vclass"&fun_ii)<>"" then fun_ClassType = request.Form("Hy_vclass"&fun_ii) : exit for
  77. next
  78. if fun_ClassID = "[ChangeToTop]" then fun_ClassID = 0
  79. if fun_ClassType = "[ChangeToTop]" then fun_ClassType = 0
  80. if fun_ClassID<>"" then New_Search_Str = and_where( New_Search_Str ) & "ClassID" &" = "& fun_ClassID
  81. if fun_ClassType<>"" then New_Search_Str = and_where( New_Search_Str ) & "ClassType" &" = "& fun_ClassType
  83. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  84. 'response.Write(This_Fun_Sql)
  85. 'response.End()
  86. end if
  88. Str_Tmp = ""
  89. On Error Resume Next
  90. Set VClass_Rs = CreateObject(G_FS_RS)
  91. VClass_Rs.Open This_Fun_Sql,User_Conn,1,1
  92. if Err<>0 then 
  93. Err.Clear
  94. response.Redirect("../error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
  95. response.End()
  96. end if
  97. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  98. IF VClass_Rs.eof THEN
  99.   response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>") 
  100. else
  101. VClass_Rs.PageSize=int_RPP
  102. cPageNo=NoSqlHack(Request.QueryString("Page"))
  103. If cPageNo="" Then cPageNo = 1
  104. If not isnumeric(cPageNo) Then cPageNo = 1
  105. cPageNo = Clng(cPageNo)
  106. If cPageNo<=0 Then cPageNo=1
  107. If cPageNo>VClass_Rs.PageCount Then cPageNo=VClass_Rs.PageCount 
  108. VClass_Rs.AbsolutePage=cPageNo
  110.   FOR int_Start=1 TO int_RPP 
  111. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  112. Get_Html = Get_Html & "<td align=""center""><a href=""GroupDebate_manage.asp?Act=Edit&gdID="&VClass_Rs("gdID")&""" class=""otherset"" title='点击修改'>"&VClass_Rs("gdID")&"</a></td>" & vbcrlf
  113. Get_Html = Get_Html & "<td align=""center""><a href=""GroupDebate_manage.asp?Act=Edit&gdID="&VClass_Rs("gdID")&""" class=""otherset"" title='点击修改'>"& VClass_Rs("Title") & "</a></td>" & vbcrlf
  114. Str_Tmp = Get_FildValue("select vClassName from FS_ME_GroupDebateClass where VCID="&set_Def(VClass_Rs("ClassID"),0),"无") ''社群分类
  115. Get_Html = Get_Html & "<td align=""center"">"& Str_Tmp & "</td>" & vbcrlf
  116. select case VClass_Rs("InfoType")
  117. case 0
  118. Str_Tmp = "新闻"  
  119. case 1
  120. Str_Tmp = "下载"
  121. case 2
  122. Str_Tmp = "商品"
  123. case 3
  124. Str_Tmp = "房产"
  125. case 4
  126. Str_Tmp = "供求"
  127. case 5
  128. Str_Tmp = "求职"
  129. case 6
  130. Str_Tmp = "招聘"
  131. case 7
  132. Str_Tmp = "其它"
  133. case else
  134. Str_Tmp = "无"
  135. end select 
  136. Get_Html = Get_Html & "<td align=""center"">"& Str_Tmp & "</td>" & vbcrlf
  137. Str_Tmp = Get_FildValue("select vClassName from FS_ME_VocationClass where VCID="&set_Def(VClass_Rs("ClassID"),0),"无") ''行业分类
  138. Get_Html = Get_Html & "<td align=""center"">"& Str_Tmp & "</td>" & vbcrlf
  139. Get_Html = Get_Html & "<td align=""center"">"& set_Def(VClass_Rs("hits"),0) & "</td>" & vbcrlf
  140. Get_Html = Get_Html & "<td align=""center"">"& VClass_Rs("AddTime") & "</td>" & vbcrlf
  141. if cbool(VClass_Rs("isLock")) then 
  142. ''锁定,需要解锁
  143. Get_Html = Get_Html & "<td align=""center""><input type=button value=""锁 定"" onclick=""javascript:location='GroupDebate_manage.asp?Act=OtherEdit&EditSql="&server.URLEncode(Encrypt( "Update FS_ME_GroupDebateManage set isLock=false where gdID="&VClass_Rs("gdID")) )&"&Red_Url='"" title=""点击解锁"" style=""color:red""></td>" & vbcrlf
  144. else
  145. Get_Html = Get_Html & "<td align=""center""><input type=button value=""正 常"" onclick=""javascript:location='GroupDebate_manage.asp?Act=OtherEdit&EditSql="&server.URLEncode(Encrypt( "Update FS_ME_GroupDebateManage set isLock=true where gdID="&VClass_Rs("gdID")) )&"&Red_Url='"" title=""点击锁定""></td>" & vbcrlf
  146. end if
  147. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""gdID"" id=""gdID"" value="""&VClass_Rs("gdID")&""" /></td>" & vbcrlf
  148. Get_Html = Get_Html & "</tr>" & vbcrlf
  149. VClass_Rs.MoveNext
  150.   if VClass_Rs.eof or VClass_Rs.bof then exit for
  151.       NEXT
  152. END IF
  153. Get_Html = Get_Html & "<tr class=""hback""><td colspan=20 align=""center"" class=""ischeck"">"& vbcrlf &"<table width=""100%"" border=0><tr><td height=30>" & vbcrlf
  154. Get_Html = Get_Html & fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  155. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  156. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  157. VClass_Rs.close
  158. Get_FValue_Html = Get_Html
  159. End Function
  161. Function Get_FildValue(This_Fun_Sql,Default)
  162. Dim This_Fun_Rs
  163. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  164. if not This_Fun_Rs.eof then 
  165. Get_FildValue = This_Fun_Rs(0)
  166. else
  167. Get_FildValue = Default
  168. end if
  169. This_Fun_Rs.close
  170. End Function
  172. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  173. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  174. Dim Get_Html,This_Fun_Rs,Text
  175. On Error Resume Next
  176. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  177. If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,Get_FildValue_List函数传入的Sql语句有问题.或表和字段不存在.</li>")
  178. do while not This_Fun_Rs.eof 
  179. select case Get_Type
  180.   case 1
  181. ''<option>
  182. if instr(This_Fun_Sql,",") >0 then 
  183. Text = This_Fun_Rs(1)
  184. else
  185. Text = This_Fun_Rs(0)
  186. end if
  187. if EquValue = This_Fun_Rs(0) then 
  188. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  189. else
  190. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  191. end if
  192.   case else
  193. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function
  194.     end select
  195. This_Fun_Rs.movenext
  196. loop
  197. This_Fun_Rs.close
  198. Get_FildValue_List = Get_Html
  199. End Function ''================================================================
  202. Sub OtherEdit()
  203. if not MF_Check_Pop_TF("ME025") then Err_Show '权限判断
  204. Dim Red_Url
  205. Red_Url = request.QueryString("Red_Url")
  206. if Red_Url = "" then Red_Url = "GroupDebate_manage.asp"
  207. On Error Resume Next
  208. if request.QueryString("EditSql")<>"" then 
  209. User_Conn.execute( Decrypt(request.QueryString("EditSql")) )
  210. If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,OtherEdit过程传入的Sql语句有问题.或表和字段不存在.</li>")
  211. end if
  212. response.Redirect(Red_Url)
  213. End Sub
  215. Sub Del()
  216. if not MF_Check_Pop_TF("ME024") then Err_Show '权限判断
  217. Dim Str_Tmp
  218. if request.QueryString("gdID")<>"" then 
  219. User_Conn.execute("Delete from FS_ME_GroupDebateManage where gdID = "&request.QueryString("gdID"))
  220. else
  221. Str_Tmp = request.form("gdID")
  222. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>")
  223. Str_Tmp = replace(Str_Tmp," ","")
  224. User_Conn.execute("Delete from FS_ME_GroupDebateManage where gdID in ("&Str_Tmp&")")
  225. end if
  226. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/GroupDebate_manage.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  227. End Sub
  229. Sub Save()
  230. '''vclass表示ClassID,Hy_vclass表示ClassType
  231. Dim Str_Tmp,Arr_Tmp,gdID,ii,New_ClassID,New_ClassType
  232. for ii = 4 to 1 step -1
  233. if request.Form("vclass"&ii)<>"" then New_ClassID = request.Form("vclass"&ii) : exit for
  234. next
  235. for ii = 4 to 1 step -1
  236. if request.Form("Hy_vclass"&ii)<>"" then New_ClassType = request.Form("Hy_vclass"&ii) : exit for
  237. next
  238. if New_ClassID = "[ChangeToTop]" then New_ClassID = 0
  239. if New_ClassType = "[ChangeToTop]" then New_ClassType = 0
  240. Str_Tmp = "ClassID,Title,Content,AppointUserNumber,AppointUserGroup,InfoType,ClassType,AddTime,isLock,AccessFile,UserNumber,AdminName,ClassMember,PerPageNum,isSys,hits"
  241. gdID = NoSqlHack(request.Form("gdID"))
  242. if not isnumeric(gdID) or gdID = "" then gdID = 0 
  243. VClass_Sql = "select "&Str_Tmp&" from FS_ME_GroupDebateManage where gdID="&gdID
  244. Set VClass_Rs = CreateObject(G_FS_RS)
  245. VClass_Rs.Open VClass_Sql,User_Conn,3,3
  246. Str_Tmp = "Title,Content,AppointUserNumber,AppointUserGroup,InfoType,AddTime,isLock,AccessFile,UserNumber,AdminName,ClassMember,PerPageNum,isSys,hits"
  247. Arr_Tmp = split(Str_Tmp,",")
  248. if gdID > 0 then 
  249. ''修改
  250. ''''''''''''''''''''''''''
  251. if not MF_Check_Pop_TF("ME024") then Err_Show '权限判断
  252. for each Str_Tmp in Arr_Tmp
  253. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  254. next
  255. if New_ClassID<>"" then VClass_Rs("ClassID") = New_ClassID
  256. if New_ClassType<>"" then VClass_Rs("ClassType") = New_ClassType
  257. VClass_Rs.update
  258. VClass_Rs.close
  259. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/GroupDebate_manage.asp?Act=Edit&gdID="&gdID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  260. else
  261. ''新增
  262. if not MF_Check_Pop_TF("ME022") then Err_Show '权限判断
  263. VClass_Rs.addnew
  264. for each Str_Tmp in Arr_Tmp
  265. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  266. 'response.Write(Str_Tmp&":"&NoSqlHack(request.Form("frm_"&Str_Tmp))&"<br>")
  267. next
  268. VClass_Rs("ClassID") = set_Def(New_ClassID,0)
  269. VClass_Rs("ClassType") = set_Def(New_ClassType,0)
  270. VClass_Rs.update
  271. VClass_Rs.close
  272. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/GroupDebate_manage.asp?Act=Add" ) &"ErrCodes=<li>恭喜，新增成功。</li>")
  273. end if
  274. End Sub
  275. ''=========================================================
  276. %>
  277. <html xmlns="http://www.w3.org/1999/xhtml">
  278. <HEAD>
  279. <TITLE>FoosunCMS</TITLE>
  280. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  281. </HEAD>
  282. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  283. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  284. <script language="JavaScript" src="../../FS_Inc/PublicJS_YanZheng.js" type="text/JavaScript"></script>
  285. <%if instr(",Add,Edit,Search,",","&request.QueryString("Act")&",")>0 then%>
  286. <script language="javascript" src="../../FS_Inc/class_liandong.js" type="text/javascript"></script>
  287. <%end if%>
  288. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;"> 
  289. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  290.   <tr  class="hback"> 
  291.     <td class="xingmu" >社群总管理</td>
  292.   </tr>
  293.  <tr  class="hback"> 
  294.     <td align="left"><a href="GroupDebate_manage.asp?Act=View">管理首页</a> 
  295.       | <a href="GroupDebate_manage.asp?Act=Add">新建</a> | <a href="GroupDebate_manage.asp?Act=View&Add_Sql=islock">已锁定</a> 
  296.       | <a href="GroupDebate_manage.asp?Act=View&Add_Sql=not islock">未锁定</a> 
  297.       | <a href="GroupDebate_manage.asp?Act=Search">查询</a> | <a href="GroupDebate_Class.asp">社群分类管理</a></td>
  298.  </tr>
  299. </table>
  301. <%
  302. '******************************************************************
  303. select case request.QueryString("Act")
  304. case "","View","SearchGo"
  305. View
  306. case "Add","Edit" 
  307. Add_Edit
  308. case "Save"
  309. Save
  310. case "Del"
  311. Del
  312. case "Search"
  313. Search
  314. case "OtherEdit"
  315. OtherEdit
  316. end select
  318. '******************************************************************
  319. Sub View()%>
  320. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  321.   <form name="form1" id="form1" method="post" action="?Act=Del">
  322.     <tr  class="hback">  
  323.       <td align="center" class="xingmu">〖编号〗</td>
  324.   <td align="center" class="xingmu">社群主题</td>
  325.       <td align="center" class="xingmu">社群分类</td>
  326.       <td align="center" class="xingmu">应用子类</td>
  327.   <td align="center" class="xingmu">所属行业</td>
  328.       <td align="center" class="xingmu">人气</td>
  329.   <td align="center" class="xingmu">加入时间</td>
  330.       <td align="center" class="xingmu">是否锁定</td>
  331.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  332.     </tr>
  333.     <%
  334. response.Write( Get_FValue_Html( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  335. %>
  336.   </form>
  337. </table>
  338. <%End Sub
  340. Sub Add_Edit()
  341. Dim gdID,Bol_IsEdit,AppointUserNumber,AppointUserGroup
  342. Bol_IsEdit = false
  343. if request.QueryString("Act")="Edit" then 
  344. gdID = request.QueryString("gdID")
  345. if gdID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的gdID没有提供</li>") : response.End()
  346. VClass_Sql = "select gdID,ClassID,Title,Content,AppointUserNumber,AppointUserGroup,InfoType,ClassType,AddTime,isLock,AccessFile,UserNumber,AdminName,ClassMember,PerPageNum,isSys,hits from FS_ME_GroupDebateManage where gdID="&gdID
  347. Set VClass_Rs = CreateObject(G_FS_RS)
  348. VClass_Rs.Open VClass_Sql,User_Conn,1,1
  349. if VClass_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  350. Bol_IsEdit = True
  351. AppointUserNumber = VClass_Rs(4)
  352. AppointUserGroup = VClass_Rs(5)
  353. end if
  354. %>
  355. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  356.   <form name="form_Save" id="form_Save" onSubmit="return Validator.Validate(this,3);" method="post" action="?Act=Save">
  357.     <tr  class="hback"> 
  358.       <td colspan="3" align="left" class="xingmu" > <%if Bol_IsEdit then response.Write("修改社群信息"&vbNewLine&"<input type=""hidden"" name=""gdID"" value="""&VClass_Rs(0)&""">" ) else response.Write("添加社群信息")  end if%> </td>
  359.     </tr>
  360.     <tr  class="hback"<%if not Bol_IsEdit then response.Write(" style=""display:none""") end if%>> 
  361.       <td width="25%" align="right">所属社群分类</td>
  362.       <td><strong>
  363.         <%if Bol_IsEdit then response.Write( Get_FildValue( "select vClassName from FS_ME_GroupDebateClass where VCID="&set_Def(VClass_Rs("ClassID"),0),"无" ) ) end if%>
  364.         </strong></td>
  365.     </tr>
  366.     <tr  class="hback"> 
  367.       <td width="25%" align="right"><%if Bol_IsEdit then response.Write("〖变更为〗") else response.Write("所属社群分类") end if%></td>
  368.       <td> 
  369.         <!---联动菜单开始  onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');"--->
  370.         <select name="vclass1" id="vclass1"<%if not Bol_IsEdit then%> datatype="Require" msg="必须填写"<%end if%> style="width:100px">
  371.           <option></option>
  372.        </select>
  373. <!--    <select name="vclass2" id="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
  374.           <option></option>
  375.         </select> <select name="vclass3" id="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
  376.           <option></option>
  377.         </select> <select name="vclass4" id="vclass4" style="width:100px">
  378.           <option></option>
  379.         </select> 
  380.         <!---联动菜单结束--- > -->
  381.       </td>
  382.     </tr>
  383.     <tr  class="hback"> 
  384.       <td align="right">社群主题</td>
  385.       <td> <input type="text" name="frm_Title" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(2)) end if%>" dataType="Require" msg="必须填写"> 
  386.       </td>
  387.     </tr>
  388.     <tr  class="hback"> 
  389.       <td align="right">社群公告</td>
  390.       <td> <textarea name="frm_Content" cols="40" rows="5" dataType="Require" msg="必须填写"><%if Bol_IsEdit then response.Write(VClass_Rs(3)) end if%></textarea> 
  391.       </td>
  392.     </tr>
  393.     <tr  class="hback"> 
  394.       <td align="right">可查看的用户编号</td>
  395.       <td> <textarea name="frm_AppointUserNumber" cols="40" dataType="Require" msg="必须填写"><%if Bol_IsEdit then response.Write(VClass_Rs(4)) end if%></textarea>
  396.         多个则用“,”分开 </td>
  397.     </tr>
  398.     <tr  class="hback"> 
  399.       <td align="right">可查看的会员组</td>
  400.       <td> <textarea name="frm_AppointUserGroup" cols="40" dataType="Require" msg="必须填写"><%if Bol_IsEdit then response.Write(VClass_Rs(5)) end if%></textarea>
  401.         多个则用“,”分开 </td>
  402.     </tr>
  403.     <tr  class="hback"> 
  404.       <td align="right">用于哪个子类</td>
  405.       <td> <select name="frm_InfoType" datatype="Require" msg="必须选择">
  406.           <option value="0"<%if Bol_IsEdit then if VClass_Rs(6)=0 then response.Write(" selected") end if end if%>>新闻</option>
  407.           <option value="1"<%if Bol_IsEdit then if VClass_Rs(6)=1 then response.Write(" selected") end if end if%>>下载</option>
  408.           <option value="2"<%if Bol_IsEdit then if VClass_Rs(6)=2 then response.Write(" selected") end if end if%>>商品</option>
  409.           <option value="3"<%if Bol_IsEdit then if VClass_Rs(6)=3 then response.Write(" selected") end if end if%>>房产</option>
  410.           <option value="4"<%if Bol_IsEdit then if VClass_Rs(6)=4 then response.Write(" selected") end if end if%>>供求</option>
  411.           <option value="5"<%if Bol_IsEdit then if VClass_Rs(6)=5 then response.Write(" selected") end if end if%>>求职</option>
  412.           <option value="6"<%if Bol_IsEdit then if VClass_Rs(6)=6 then response.Write(" selected") end if end if%>>招聘</option>
  413.           <option value="7"<%if Bol_IsEdit then if VClass_Rs(6)=7 then response.Write(" selected") end if end if%>>其它</option>
  414.         </select> </td>
  415.     </tr>
  416.     <tr class="hback"<%if not Bol_IsEdit then response.Write(" style=""display:none""") end if%>> 
  417.       <td align="right">社群所属行业</td>
  418.       <td><strong>
  419.         <%if Bol_IsEdit then response.Write( Get_FildValue( "select vClassName from FS_ME_VocationClass where VCID="&set_Def(VClass_Rs("ClassType"),0),"无" ) ) end if%>
  420.         </strong></td>
  421.     </tr>
  422.     <tr  class="hback"> 
  423.       <td align="right"><%if Bol_IsEdit then response.Write("〖变更为〗") else response.Write("社群所属行业") end if%></td>
  424.       <td> 
  425.         <!---联动菜单开始 onBlur="javascript:RemoveChildopt(this,'Hy_vclass2,Hy_vclass3,Hy_vclass4');"--->
  426.         <select name="Hy_vclass1" id="select"<%if not Bol_IsEdit then%> datatype="Require" msg="必须填写"<%end if%>  style="width:100px">
  427.           <option></option>
  428.         </select>
  429. <!-- <select name="Hy_vclass2" id="select2" onBlur="javascript:RemoveChildopt(this,'Hy_vclass3,Hy_vclass4');" style="width:100px">
  430.           <option></option>
  431.         </select> <select name="Hy_vclass3" id="select3" onBlur="javascript:RemoveChildopt(this,'Hy_vclass4');" style="width:100px">
  432.           <option></option>
  433.         </select> <select name="Hy_vclass4" id="select4" style="width:100px">
  434.           <option></option>
  435.         </select> 
  436.         <!---联动菜单结束--- > -->
  437.       </td>
  438.     </tr>
  439.     <tr  class="hback"> 
  440.       <td align="right">加入时间</td>
  441.       <td> <input type="text" name="frm_AddTime" size="27" value="<%if Bol_IsEdit then response.Write(VClass_Rs(8)) else response.Write(date()) end if%>" dataType="Date" msg="日期格式不对"  format="ymd" readonly>
  442.       <input name="SelectDate" type="button" id="SelectDate" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_AddTime);">      </td>
  443.     </tr>
  444.     <tr  class="hback"> 
  445.       <td align="right">是否锁定</td>
  446.       <td> <input type="radio" name="frm_isLock"  value="true" <%if Bol_IsEdit then if VClass_Rs(9) then response.Write(" checked ") end if end if%>>
  447.         已锁定 
  448.         <input type="radio" name="frm_isLock"  value="false" <%if Bol_IsEdit then if not VClass_Rs(9) then response.Write(" checked ") end if else response.Write(" checked ") end if%>>
  449.         不锁定 </td>
  450.     </tr>
  451.     <tr  class="hback"> 
  452.       <td align="right">附件地址</td>
  453.       <td> <input type="text" name="frm_AccessFile" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(10)) end if%>" require="true" dataType="Url"   msg="非法的Url"> 
  454.       </td>
  455.     </tr>
  456.     <tr  class="hback"> 
  457.       <td align="right">社群创始人用户编号</td>
  458.       <td> <input name="frm_UserNumber" type="text" value="<%if Bol_IsEdit then response.Write(VClass_Rs(11)) end if%>" size="40" datatype="Require" msg="必须填写"> 
  459.       </td>
  460.     </tr>
  461.     <tr  class="hback"> 
  462.       <td align="right">社群现在管理员用户编号</td>
  463.       <td> <input name="frm_AdminName" type="text" value="<%if Bol_IsEdit then response.Write(VClass_Rs(12)) end if%>" size="40" datatype="Require" msg="必须填写"> 
  464.       </td>
  465.     </tr>
  466.     <tr  class="hback"> 
  467.       <td align="right">此群的成员</td>
  468.       <td> <textarea name="frm_ClassMember" cols="40" datatype="Require" msg="必须填写"><%if Bol_IsEdit then response.Write(VClass_Rs(13)) end if%></textarea>
  469.         多个则用“,”分开 </td>
  470.     </tr>
  471.     <tr  class="hback"> 
  472.       <td align="right">此群讨论每页显示多少数量</td>
  473.       <td> <input type="text" name="frm_PerPageNum" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(14)) end if%>" 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')"> 
  474.       </td>
  475.     </tr>
  476.     <tr  class="hback"> 
  477.       <td align="right">社群是否是管理员建立</td>
  478.       <td> <input type="radio" name="frm_isSys"  value="1" <%if Bol_IsEdit then if VClass_Rs(15)=1 then response.Write(" checked ") end if end if%>>
  479.         是 
  480.         <input type="radio" name="frm_isSys"  value="0" <%if Bol_IsEdit then if VClass_Rs(15)=0 then response.Write(" checked ") end if else response.Write(" checked ") end if%>>
  481.         否 </td>
  482.     </tr>
  483.     <tr  class="hback"> 
  484.       <td align="right">人气/点击数</td>
  485.       <td> <input type="text" name="frm_hits" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(16)) else response.Write("0") end if%>" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  dataType="Range" msg="在1~10W之间" min="-1" max="100001"> 
  486.       </td>
  487.     </tr>
  488.     <tr  class="hback"> 
  489.       <td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
  490.           <tr> 
  491.             <td align="center"> <input type="submit" name="submit" value=" 保存 " /> 
  492.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  493.     &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("GroupDebate_manage.asp?Act=Del&gdID="&NoSqlHack(request.QueryString("gdID")))%>'">
  494.             </td>
  495.           </tr>
  496.         </table></td>
  497.     </tr>
  498.   </form>
  499. </table>
  500. <%End Sub
  501. Sub Search()
  502. %>
  504. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  505.   <form name="form1" method="post" action="?Act=SearchGo">
  506.     <tr  class="hback"> 
  507.       <td colspan="3" align="left" class="xingmu" >查询社群信息</td>
  508.     </tr>
  509.     <tr  class="hback"> 
  510.       <td align="right">ID编号</td>
  511.       <td><input type="text" name="frm_gdID" size="40" value=""> </td>
  512.     </tr>
  513.     <tr  class="hback"> 
  514.       <td width="25%" align="right">所属社群分类</td>
  515.       <td> 
  516.         <!---联动菜单开始 onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');" --->
  517.         <select name="vclass1" id="vclass1" style="width:100px">
  518.           <option></option>
  519.         </select>
  520. <!--  <select name="vclass2" id="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
  521.           <option></option>
  522.         </select> <select name="vclass3" id="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
  523.           <option></option>
  524.         </select> <select name="vclass4" id="vclass4" style="width:100px">
  525.           <option></option>
  526.         </select> 
  527.         <!---联动菜单结束--- > -->
  528.       </td>
  529.     </tr>
  530.     <tr  class="hback"> 
  531.       <td align="right">社群主题</td>
  532.       <td><input type="text" name="frm_Title" size="40" value=""> </td>
  533.     </tr>
  534.     <tr  class="hback"> 
  535.       <td align="right">社群公告</td>
  536.       <td> <textarea name="frm_Content" cols="40" rows="5"></textarea> 
  537.       </td>
  538.     </tr>
  539.     <tr  class="hback"> 
  540.       <td align="right">可查看的用户编号</td>
  541.       <td> <textarea name="frm_AppointUserNumber" cols="40"></textarea>
  542.         多个则用“,”分开 </td>
  543.     </tr>
  544.     <tr class="hback"> 
  545.       <td align="right">可查看的会员组</td>
  546.       <td> <textarea name="frm_AppointUserGroup" cols="40"></textarea> 
  547.       </td>
  548.     </tr>
  549.     <tr  class="hback"> 
  550.       <td align="right">用于哪个子类</td>
  551.       <td> <select name="frm_InfoType">
  552.           <option value="">请选择</option>
  553.           <option value="0">新闻</option>
  554.           <option value="1">下载</option>
  555.           <option value="2">商品</option>
  556.           <option value="3">房产</option>
  557.           <option value="4">供求</option>
  558.           <option value="5">求职</option>
  559.           <option value="6">招聘</option>
  560.           <option value="7">其它</option>
  561.         </select> </td>
  562.     </tr>
  563.     <tr  class="hback"> 
  564.       <td align="right">社群所属行业</td>
  565.       <td> 
  566.         <!---联动菜单开始 onBlur="javascript:RemoveChildopt(this,'Hy_vclass2,Hy_vclass3,Hy_vclass4');"  --->
  567.         <select name="Hy_vclass1" id="select" style="width:100px">
  568.           <option></option>
  569.         </select>
  570. <!-- <select name="Hy_vclass2" id="select2" onBlur="javascript:RemoveChildopt(this,'Hy_vclass3,Hy_vclass4');" style="width:100px">
  571.           <option></option>
  572.         </select> <select name="Hy_vclass3" id="select3" onBlur="javascript:RemoveChildopt(this,'Hy_vclass4');" style="width:100px">
  573.           <option></option>
  574.         </select> <select name="Hy_vclass4" id="select4" style="width:100px">
  575.           <option></option>
  576.         </select> 
  577.         <!---联动菜单结束--- > -->
  578.       </td>
  579.     </tr>
  580.     <tr  class="hback"> 
  581.       <td align="right">加入时间</td>
  582.       <td> <input type="text" name="frm_AddTime" size="27" value="" readonly>
  583.         <input name="SelectDate2" type="button" id="SelectDate2" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_AddTime);"></td>
  584.     </tr>
  585.     <tr  class="hback"> 
  586.       <td align="right">是否锁定</td>
  587.       <td> <input type="radio" name="frm_isLock"  value="true">
  588.         已锁定 
  589.         <input type="radio" name="frm_isLock"  value="false">
  590.         未锁定 </td>
  591.     </tr>
  592.     <tr  class="hback"> 
  593.       <td align="right">附件地址</td>
  594.       <td> <input type="text" name="frm_AccessFile" size="40" value="" require="true" dataType="Url"   msg="非法的Url"> 
  595.       </td>
  596.     </tr>
  597.     <tr  class="hback"> 
  598.       <td align="right">社群创始人用户编号</td>
  599.       <td> <input name="frm_UserNumber" type="text" value="" size="40" datatype="Require" msg="必须填写"> 
  600.       </td>
  601.     </tr>
  602.     <tr  class="hback"> 
  603.       <td align="right">社群现在管理员用户编号</td>
  604.       <td> <input name="frm_AdminName" type="text" value="" size="40" datatype="Require" msg="必须填写"> 
  605.       </td>
  606.     </tr>
  607.     <tr  class="hback"> 
  608.       <td align="right">此群的成员</td>
  609.       <td> <textarea name="frm_ClassMember" cols="40" datatype="Require" msg="必须填写"></textarea>
  610.         多个则用“,”分开 </td>
  611.     </tr>
  612.     <tr  class="hback"> 
  613.       <td align="right">此群讨论每页显示多少数量</td>
  614.       <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')"> 
  615.       </td>
  616.     </tr>
  617.     <tr  class="hback"> 
  618.       <td align="right">社群是否是管理员建立</td>
  619.       <td> <input type="radio" name="frm_isSys"  value="1" >
  620.         是 
  621.         <input type="radio" name="frm_isSys"  value="0" >
  622.         否 </td>
  623.     </tr>
  624.     <tr  class="hback"> 
  625.       <td align="right">人气/点击数</td>
  626.       <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>
  627.     </tr>
  628.     <tr  class="hback"> 
  629.       <td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
  630.           <tr> 
  631.             <td align="center"> <input type="submit" name="submit" value=" 执行查询 " /> 
  632.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " /> 
  633.             </td>
  634.           </tr>
  635.         </table></td>
  636.     </tr>
  637.   </form>
  638. </table>
  640. <%End Sub%>
  642. </BODY>
  643. <%if instr(",Add,Edit,Search,",","&request.QueryString("Act")&",")>0 then%>
  645. <script language="javascript">
  646. <!-- 
  647. //awen created
  648. //联动菜单---行业类别   最多4级   --start 
  649. //数据格式 ID，父级ID，名称
  650. var Hy_array=new Array();
  651. <%dim sql,rs,i
  652.   sql="select VCID,ParentID,vClassName from FS_ME_VocationClass"
  653.   set rs=User_Conn.execute(sql)
  654.   i=0
  655.   do while not rs.eof
  656. %>
  657. Hy_array[<%=i%>]=new Array("<%=rs("VCID")%>","<%=rs("ParentID")%>","<%=rs("vClassName")%>"); 
  658. <%
  659. rs.movenext
  660. i=i+1
  661. loop
  662. rs.close
  663. %>
  665. var Hy_liandong=new CLASS_LIANDONG_YAO(Hy_array)
  666. Hy_liandong.firstSelectChange("0","Hy_vclass1");
  667. /*
  668. Hy_liandong.subSelectChange("Hy_vclass1","Hy_vclass2");
  669. Hy_liandong.subSelectChange("Hy_vclass2","Hy_vclass3");
  670. Hy_liandong.subSelectChange("Hy_vclass3","Hy_vclass4");
  671. */
  672. Hy_liandong.close
  673. //end 
  674. //---------------------------------------------
  675. //联动菜单---所属的社群分类     --start 
  676. var array=new Array();
  677. <%
  678.   sql="select VCID,ParentID,vClassName from FS_ME_GroupDebateClass"
  679.   set rs=User_Conn.execute(sql)
  680.   i=0
  681.   do while not rs.eof
  682. %>
  683. array[<%=i%>]=new Array("<%=rs("VCID")%>","<%=rs("ParentID")%>","<%=rs("vClassName")%>"); 
  684. <%
  685. rs.movenext
  686. i=i+1
  687. loop
  688. rs.close
  689. %>
  691. var liandong=new CLASS_LIANDONG_YAO(array)
  692. liandong.firstSelectChange("0","vclass1");
  693. /*
  694. liandong.subSelectChange("vclass1","vclass2");
  695. liandong.subSelectChange("vclass2","vclass3");
  696. liandong.subSelectChange("vclass3","vclass4");
  697. */
  698. liandong.close
  699. document.getElementById('vclass1').options.remove(1);
  700. document.getElementById('Hy_vclass1').options.remove(1);
  702. /*
  703. //---------------------------清除关联下拉框的内容
  704. function RemoveChildopt(obj,StrList)
  705. {
  706. var TmpArr = StrList.split(',');
  707. if(obj.selectedIndex<2)
  708. {
  709. for (var i=TmpArr.length-1 ; i>=0; i--)
  710. {
  711. //alert(TmpArr[i]);
  712. if (TmpArr[i]!='') 
  713. //清除下拉内容
  714. for (var j=document.getElementById(TmpArr[i]).options.length-1 ; j>=0 ; j--)
  715. document.getElementById(TmpArr[i]).options.remove(j);
  716. }
  717. }
  718. } 
  719. */
  720. //end 
  721. -->
  722. </script>
  723. <%end if%>
  725. <%
  726. Set VClass_Rs=nothing
  727. User_Conn.close
  728. Set User_Conn=nothing
  729. %>
  730. </HTML>
  731. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->