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

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

数据库编程

开发平台：

ASP/ASPX

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