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

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

数据库编程

开发平台：

ASP/ASPX

GroupDebate_Class.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. Dim Conn,User_Conn,VClass_Rs,VClass_Sql
  8. Dim str_Url_Add,CheckStr
  9. MF_Default_Conn
  10. MF_User_Conn
  11. MF_Session_TF
  12. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  13. int_RPP=15 '设置每页显示数目
  14. int_showNumberLink_=10 '数字导航显示数目
  15. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  16. str_nonLinkColor_="#999999" '非热链接颜色
  17. toF_="<font face=webdings>9</font>"    '首页 
  18. toP10_=" <font face=webdings>7</font>" '上十
  19. toP1_=" <font face=webdings>3</font>" '上一
  20. toN1_=" <font face=webdings>4</font>" '下一
  21. toN10_=" <font face=webdings>8</font>" '下十
  22. toL_="<font face=webdings>:</font>" '尾页
  23. '******************************************************************
  24. Sub DelClass()
  25. Dim DelID,Str_Tmp,Str_Tmp1
  26. DelID = request.Form("DelID")
  27. if DelID = "" then 
  28. response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>你必须选择一项再删除。</li>")
  29. response.End()
  30. end if
  31. DelID = replace(DelID," ","")
  32. Str_Tmp1 = DelID
  33. ''**********************
  34. do while Str_Tmp1 <> "" 
  35. Str_Tmp1 = Get_VCID_VCID_TO_Del(Str_Tmp1)
  36. Str_Tmp = Str_Tmp & Str_Tmp1 
  37. loop
  38. if right(Str_Tmp,1) = "," then 
  39. Str_Tmp = Str_Tmp & DelID
  40. elseif Str_Tmp<>"" then 
  41. Str_Tmp = Str_Tmp &","& DelID
  42. else
  43. Str_Tmp = DelID
  44. end if
  45. ''**********************
  46. 'response.Write(Str_Tmp)
  47. ''+++++++++++++++++
  48. ''删除相关的其它表内容.
  49. User_Conn.execute("delete from FS_ME_GroupDebateManage where ClassID in ("&Str_Tmp&")")
  50. ''+++++++++++++++++
  51. User_Conn.execute("delete from FS_ME_GroupDebateClass where VCID in ("&Str_Tmp&")")
  52. response.Redirect("../Success.asp?ErrorUrl=User/GroupDebate_Class.asp&ErrCodes=<li>恭喜，删除成功。</li>")
  53. End Sub
  55. Sub SaveClass()
  56. call Say_Limit_Class("SaveMode") 
  57. Dim Edit_PartID,ii,Str_Req_Child,Str_Req_Tmp,Str_Biangeng_ParentID_ParentID,Err_info
  58. VClass_Sql = "select VCID,vClassName,vClassName_En,ParentID from FS_ME_GroupDebateClass"
  59. if NoSqlHack(request.Form("ParID"))<>"" then 
  60. ''新增
  61. if CheckCardCF(NoSqlHack(Trim(request.Form("vClassName"))),request.Form("ParID"))<>"" then 
  62. response.Redirect("../Error.asp?ErrCodes=<li>同级别的类别: "&request.Form("vClassName")&" 已经存在。</li>")
  63. response.End()
  64. end if
  65. VClass_Sql = VClass_Sql & " where VCID=0"
  66. elseif  NoSqlHack(request.Form("VCID"))<>"" then 
  67. ''修改
  68. VClass_Sql = VClass_Sql & " where VCID=" & NoSqlHack(request.Form("VCID"))
  69. ''**********************
  70. ''当行业类别要变更时判断当前级别加上其子级再加上要变更的类别一共是否在4级以内。若不再这返回。
  71. for ii = 4 to 1 step -1
  72. if request.Form("vclass"&ii)<>"" then Edit_PartID = request.Form("vclass"&ii) : exit for
  73. next
  74. ''''''''''''''''''''''''''
  75. if Edit_PartID = "[ChangeToTop]" then Edit_PartID = 0
  76. if Edit_PartID > 0 then
  77. ''''''''''''''''
  78. ''Str_Biangeng_ParentID_ParentID准备变更到的父级类别和其本身的父级类别
  79. Str_Req_Tmp = Edit_PartID
  80. do while Str_Req_Tmp<>""
  81. Str_Req_Tmp = Get_ParID_ParID_TO_Save(Str_Req_Tmp)
  82. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID & Str_Req_Tmp 
  83. loop
  84. if right(Str_Biangeng_ParentID_ParentID,1) = "," then 
  85. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID & Edit_PartID
  86. elseif Str_Biangeng_ParentID_ParentID<>"" then 
  87. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID &","& Edit_PartID
  88. else
  89. Str_Biangeng_ParentID_ParentID = Edit_PartID
  90. end if
  91. Err_info = Err_info & "<li>欲变更到的父级和其所有父级:"&Str_Biangeng_ParentID_ParentID&"</li>"
  92. response.Write(Err_info)
  93. 'response.End()
  94. ''''''''''''''''''''''''''
  95. ''Str_Req_Child当前的类别和其子内
  96. Str_Req_Tmp = request.Form("VCID")
  97. do while Str_Req_Tmp <> "" 
  98. Str_Req_Tmp = Get_VCID_VCID_TO_Del(Str_Req_Tmp)
  99. Str_Req_Child = Str_Req_Child & Str_Req_Tmp 
  100. loop
  101. if right(Str_Req_Child,1) = "," then 
  102. Str_Req_Child = Str_Req_Child & request.Form("VCID")
  103. elseif Str_Req_Child<>"" then 
  104. Str_Req_Child = Str_Req_Child &","& request.Form("VCID")
  105. else
  106. Str_Req_Child = request.Form("VCID")
  107. end if
  108. Err_info = Err_info & "<li>当前类别和其所有子类:"&Str_Req_Child&"</li>"
  109. Err_info = Err_info & "<li>预料的总级数:"&ubound(split(Str_Biangeng_ParentID_ParentID & "," & Str_Req_Child,",")) + 1&"</li>"
  110. response.Write(Err_info)
  111. 'response.End()
  112. if ubound(split(Str_Biangeng_ParentID_ParentID & "," & Str_Req_Child,",")) + 1 > 4 then
  113. Err_info = Err_info & "<li>抱歉,将要或已经超过四级!所有不能更改到该类下.</li>"
  114. response.Redirect("../error.asp?ErrCodes="&Err_info&"")
  115. response.End()
  116. end if
  117. '''''''''''''''
  118. end if
  119. ''**********************
  120. else
  121. response.Redirect("../error.asp?ErrCodes=<li>必要的行业ID没有提供。</li>")
  122. response.End()
  123. end if
  124. 'response.Write(VClass_Sql)
  125. 'response.End()
  126. Set VClass_Rs = CreateObject(G_FS_RS)
  127. VClass_Rs.Open VClass_Sql,User_Conn,3,3
  128. if NoSqlHack(request.Form("ParID"))<>"" then 
  129. VClass_Rs.AddNew
  130. VClass_Rs("ParentID") = NoSqlHack(request.Form("ParID"))
  131. VClass_Rs("vClassName") = NoSqlHack(Trim(request.Form("vClassName")))
  132. VClass_Rs("vClassName_En") = NoSqlHack(Trim(request.Form("vClassName_En")))
  133. VClass_Rs.update
  134. VClass_Rs.close
  135. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/GroupDebate_Class.asp?Act=Add&VCID="&NoSqlHack(request.Form("ParID"))&"&VCText="&NoSqlHack(request.Form("VCText")) )&"&ErrCodes=<li>恭喜，存盘成功。</li>")
  136. end if
  137. '''修改
  138. if NoSqlHack(request.Form("VCID"))<>"" then 
  139. 'response.Write("<br>VClass_Sql:"&VClass_Sql&"<br>Edit_PartID:"&Edit_PartID)
  140. 'response.End()
  141. VClass_Rs("vClassName") = NoSqlHack(Trim(request.Form("vClassName")))
  142. VClass_Rs("vClassName_En") = NoSqlHack(Trim(request.Form("vClassName_En")))
  143. if Edit_PartID<>"" then VClass_Rs("ParentID") = Edit_PartID
  144. VClass_Rs.update
  146. if Edit_PartID<>"" then 
  147. Dim PartID_PartID_Rs
  148. ''取得变更后的父级ID的父级ID，并传给返回的VCID，以便显示父级ID同级别的所有类别
  149. set PartID_PartID_Rs = User_Conn.execute("select ParentID from FS_ME_GroupDebateClass where VCID="&Edit_PartID)
  150. if not PartID_PartID_Rs.eof then  Edit_PartID = PartID_PartID_Rs(0)
  151. PartID_PartID_Rs.close
  152. set PartID_PartID_Rs = nothing
  153. else
  154. Edit_PartID = VClass_Rs("ParentID")
  155. end if
  156. VClass_Rs.close
  157. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/GroupDebate_Class.asp?Act=View&VCID="&Edit_PartID )&"&ErrCodes=<li>恭喜，存盘成功。</li>")
  158. end if
  159. End Sub
  161. Function CheckCardCF(vClassName,ParentID)
  162. ''检查录入的是否重复,重复则返回vClassName,不重复则返回""
  163. Dim CheckCardCF_Rs
  164. set CheckCardCF_Rs = User_Conn.execute( "select Count(*) from FS_ME_GroupDebateClass where vClassName='"&vClassName&"' and ParentID="&ParentID )
  165. if  CheckCardCF_Rs(0)>0 then 
  166. CheckCardCF = vClassName
  167. else 
  168. CheckCardCF = ""
  169. end if
  170. CheckCardCF_Rs.close
  171. End Function
  173. Sub Say_Limit_Class(SownMode)
  174. Dim Arr_Tmp,str_Session
  175. str_Session = session("TopMenu_DaoHang_VCID_List")
  176. select case SownMode
  177. case "AddMode"
  178. ''============================
  179. ''行业类别最多四级的判断.
  180. if str_Session <> "" then 
  181. if left(str_Session,1)="," then str_Session = mid(str_Session,2,len(str_Session))
  182. if right(str_Session,1)="," then str_Session = mid(str_Session,1,len(str_Session) - 1)
  183. Arr_Tmp = split(str_Session,",")
  184. if ubound(Arr_Tmp)>2 then 
  185. ''按扭
  186. response.Write(" disabled title=""行业分类最多四级!当前等级:第"&cstr(ubound(Arr_Tmp) + 1)&"级."" ")
  187. end if
  188. end if
  189. ''============================
  190. case "SaveMode"
  191. ''============================
  192. ''行业类别最多四级的判断.
  193. if str_Session <> "" then 
  194. if left(str_Session,1)="," then str_Session = mid(str_Session,2,len(str_Session))
  195. if right(str_Session,1)="," then str_Session = mid(str_Session,1,len(str_Session) - 1)
  196. Arr_Tmp = split(str_Session,",")
  197. if ubound(Arr_Tmp)>2 then 
  198. response.Redirect("../error.asp?ErrCodes=<li>行业类别不能超过四级。</li>")
  199. response.End()
  200. else
  201. response.Write("行业分类最多四级!当前等级:第"&cstr(ubound(Arr_Tmp) + 1)&"级.")
  202. end if
  203. end if
  204. ''============================
  205. case else
  207. end select 
  208. End Sub
  210. Function Get_VClass(vcid)
  211. ''递归调用显示分类
  212. Dim Get_Html
  213. VClass_Sql = "select VCID,vClassName,vClassName_En,ParentID from FS_ME_GroupDebateClass"
  214. if vcid<>"" and vcid>0 then 
  215. VClass_Sql = VClass_Sql &" where ParentID = "&vcid
  216. else
  217. VClass_Sql = VClass_Sql &" where ParentID = 0"
  218. end if
  219. Set VClass_Rs = CreateObject(G_FS_RS)
  220. VClass_Rs.Open VClass_Sql,User_Conn,1,1
  221. IF not VClass_Rs.eof THEN
  223. VClass_Rs.PageSize=int_RPP
  224. cPageNo=NoSqlHack(Request.QueryString("Page"))
  225. If cPageNo="" Then cPageNo = 1
  226. If not isnumeric(cPageNo) Then cPageNo = 1
  227. cPageNo = Clng(cPageNo)
  228. If cPageNo<=0 Then cPageNo=1
  229. If cPageNo>VClass_Rs.PageCount Then cPageNo=VClass_Rs.PageCount 
  230. VClass_Rs.AbsolutePage=cPageNo
  232.   FOR int_Start=1 TO int_RPP 
  233. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  234. Get_Html = Get_Html & "<td align=""center"">"& VClass_Rs("vClassName") & "</td>" & vbcrlf
  235. ' Get_Html = Get_Html & "<td align=""center""><a href=GroupDebate_Class.asp?Act=View&VCID="&VClass_Rs("VCID")&">"& VClass_Rs("vClassName") & "</a></td>" & vbcrlf
  236. Get_Html = Get_Html & "<td align=""center"">"& VClass_Rs("vClassName_En") & "</td>" & vbcrlf
  237. ' Get_Html = Get_Html & "<td align=""center""><a href=""GroupDebate_Class.asp?Act=Add&VCID="&VClass_Rs("VCID")&"&VCText="&VClass_Rs("vClassName")&"""  class=""otherset"">新增</FONT></a></td>" & vbcrlf
  238. Get_Html = Get_Html & "<td align=""center""><a href=""GroupDebate_Class.asp?Act=Edit&VCID="&VClass_Rs("VCID")&"&VCText="&VClass_Rs("vClassName")&"""  class=""otherset"">设置</FONT></a></td>" & vbcrlf
  239. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" "&CheckStr&" name=""DelID"" id=""DelID"" value="""&VClass_Rs("VCID")&""" /></td>" & vbcrlf
  240. Get_Html = Get_Html & "</tr>" & vbcrlf
  241. CheckStr = ""
  242. VClass_Rs.MoveNext
  243.   if VClass_Rs.eof or VClass_Rs.bof then exit for
  244.       NEXT
  245. END IF
  246. 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
  247. Get_Html = Get_Html & fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  248. Get_Html = Get_Html & "</td><td align=right><input type=""button"" name=""button1112"" value="" 新增同级栏目 "" onClick=""location='GroupDebate_Class.asp?Act=Add"& str_Url_Add &"'"">" & vbcrlf
  249. Get_Html = Get_Html & "<input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"& vbcrlf
  250. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  251. VClass_Rs.close
  252. Get_VClass = Get_Html
  253. End Function
  255. Function Get_VCID_VCID_TO_Del(Req_VCID)
  256. ''循环调用，通过传入的VCID得到子级的VCID，并且组合起来，一起传给DelClass过程以删除所有相关类别。
  257. Dim Str_Tmp,This_Fun_Sql
  258. if Req_VCID="" or isnull(Req_VCID) or Req_VCID="," then Get_VCID_VCID_TO_Del="" : exit Function
  259. This_Fun_Sql="select VCID from FS_ME_GroupDebateClass where ParentID in ("&Req_VCID&")"
  260. set VClass_Rs=User_Conn.execute(This_Fun_Sql)
  261. do while not VClass_Rs.eof 
  262. Str_Tmp = Str_Tmp & VClass_Rs(0) & ","
  263. VClass_Rs.movenext
  264. loop
  265. VClass_Rs.close
  266. Get_VCID_VCID_TO_Del = Str_Tmp
  267. End Function
  269. Function Get_ParID_ParID_TO_Save(Req_ParID)
  270. ''循环调用，通过传入的ParentID得到其上的所有ParentID，并且组合起来，一起传给SaveClass过程以判断是否超过4级.
  271. Dim Str_Tmp,This_Fun_Sql
  272. if Req_ParID="" or isnull(Req_ParID) or Req_ParID="," then Get_ParID_ParID_TO_Save="" : exit Function
  273. This_Fun_Sql="select ParentID from FS_ME_GroupDebateClass where VCID in ("&Req_ParID&")"
  274. set VClass_Rs=User_Conn.execute(This_Fun_Sql)
  275. do while not VClass_Rs.eof 
  276. if VClass_Rs(0)=0 then exit do : Get_ParID_ParID_TO_Save="" : exit Function 
  277. Str_Tmp = Str_Tmp & VClass_Rs(0) & ","
  278. VClass_Rs.movenext
  279. loop
  280. VClass_Rs.close
  281. Get_ParID_ParID_TO_Save = Str_Tmp
  282. End Function
  284. Function Get_PatID_TO_View(View_ID)
  285. ''导航作用，得到父级ID以便返回父级层查看
  286. Dim This_Fun_Sql
  287. if View_ID="" then Get_PatID_TO_View=0 : exit Function
  288. This_Fun_Sql = "select ParentID from FS_ME_GroupDebateClass where VCID="&NoSqlHack(View_ID)
  289. Set VClass_Rs = User_Conn.execute(This_Fun_Sql)
  290. if not VClass_Rs.eof then 
  291. Get_PatID_TO_View = VClass_Rs(0)
  292. else
  293. Get_PatID_TO_View = 0
  294. end if
  295. VClass_Rs.close
  296. End Function
  298. Function Get_PatTxt_TO_View(View_ID)
  299. ''导航作用，得到父级类目名称以便返回父级层查看，和上面对应
  300. Dim VClass_Rs1,This_Fun_Sql
  301. if View_ID="" then Get_PatTxt_TO_View="无" : exit Function
  302. This_Fun_Sql = "select ParentID from FS_ME_GroupDebateClass where VCID="&NoSqlHack(View_ID)
  303. Set VClass_Rs = User_Conn.execute(This_Fun_Sql)
  304. if not VClass_Rs.eof then 
  305. set VClass_Rs1 = User_Conn.execute( "select vClassName from FS_ME_GroupDebateClass where VCID="&VClass_Rs(0) )
  306. if not VClass_Rs1.eof then 
  307. Get_PatTxt_TO_View = VClass_Rs1(0)
  308. else
  309. Get_PatTxt_TO_View = "无"
  310. end if
  311. VClass_Rs1.close
  312. set VClass_Rs1=nothing
  313. else
  314. Get_PatTxt_TO_View = "无"
  315. end if
  316. VClass_Rs.close
  317. End Function
  319. Function TopMenu_DaoHang()
  320. ''层层导航作用 session("TopMenu_DaoHang_VCID_List") = ',1,2,3,4,'
  321. Dim str_Req_VCID,str_Session,Sql_Session,Per_ID_Session,Str_Tmp,Str_Remove,Arr_Tmp,This_Fun_Sql
  322. if request.QueryString("VCID")="" or request.QueryString("VCID")="0" then 
  323. session("TopMenu_DaoHang_VCID_List")="" : TopMenu_DaoHang = "" : exit Function
  324. end if
  325. ''**************
  326. str_Req_VCID = NoSqlHack(request.QueryString("VCID"))
  327. str_Req_VCID = ","&str_Req_VCID&","
  328. 'if session("TopMenu_DaoHang_VCID_List") = "" then session("TopMenu_DaoHang_VCID_List") = str_Req_VCID
  329. str_Session = session("TopMenu_DaoHang_VCID_List")
  330. if str_Session = "" or isEmpty(str_Session) then str_Session = str_Req_VCID 
  331. if left(str_Session,1)<>"," then str_Session = ","&str_Session
  332. if right(str_Session,1)<>"," then str_Session = str_Session&","
  333. session("TopMenu_DaoHang_VCID_List") = str_Session
  334. 'response.Write("原"&session("TopMenu_DaoHang_VCID_List"))
  335. ',1,2,3,4,' 与 ',3,'
  336. if right(str_Session,len(str_Req_VCID)) <> str_Req_VCID then 
  337. if instr(str_Session,str_Req_VCID)>0 then
  338. ''截取
  339. str_Session = mid(str_Session,1,instr(str_Session,str_Req_VCID) + len(str_Req_VCID) - 1)
  340. session("TopMenu_DaoHang_VCID_List") = str_Session
  341. 'response.Write("减"&session("TopMenu_DaoHang_VCID_List"))
  342. else
  343. ''添加
  344. str_Session = str_Session & NoSqlHack(request.QueryString("VCID")) &","
  345. session("TopMenu_DaoHang_VCID_List") = str_Session
  346. 'response.Write("加"&session("TopMenu_DaoHang_VCID_List"))
  347. end if
  348. end if
  349. ''**************
  350. Sql_Session = str_Session
  351. if left(Sql_Session,1)="," then Sql_Session = mid(Sql_Session,2,len(Sql_Session))
  352. if right(Sql_Session,1)="," then Sql_Session = mid(Sql_Session,1,len(Sql_Session) - 1)
  353. 'response.Write(session("TopMenu_DaoHang_VCID_List"))
  354. ''**************
  355. ''顺序真实的组合
  356. str_Session = ""
  357. Arr_Tmp = split(Sql_Session,",")
  358. for each Per_ID_Session in Arr_Tmp
  359. This_Fun_Sql = "select VCID,vClassName from FS_ME_GroupDebateClass where VCID = "&Per_ID_Session
  360. Set VClass_Rs = User_Conn.execute(This_Fun_Sql)
  361. if not VClass_Rs.eof then 
  362. Str_Tmp = Str_Tmp & "<a href=""GroupDebate_Class.asp?Act=View&VCID=" &VClass_Rs(0)&""">"&VClass_Rs(1)&"<a> >> "
  363. str_Session = str_Session &VClass_Rs(0)& "," 
  364. end if
  365. VClass_Rs.close
  366. next
  367. session("TopMenu_DaoHang_VCID_List") = "," & str_Session
  368. if right(Str_Tmp,len(" >> "))=" >> " then Str_Tmp = mid(Str_Tmp,1,len(Str_Tmp) - len(" >> "))
  369. TopMenu_DaoHang = Str_Tmp
  370. 'response.Write(session("TopMenu_DaoHang_VCID_List"))
  371. End Function
  372. %>
  373. <html xmlns="http://www.w3.org/1999/xhtml">
  374. <HEAD>
  375. <TITLE>FoosunCMS</TITLE>
  376. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  377. <script language="JavaScript" type="text/JavaScript">
  378. <!--
  379. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  380.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  381.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  382.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  383. }
  384. MM_reloadPage(true);
  385. -->
  386. </script>
  387. </HEAD>
  388. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  389. <%if request.QueryString("Act")="Edit" then%><script language="javascript" src="../../FS_Inc/class_liandong.js" type="text/javascript"></script><%end if%>
  390. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  391. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  392. <%
  393. '******************************************************************
  394. select case request.QueryString("Act")
  395. case "View",""
  396. ViewClass
  397. case "Add"
  398. AddClass
  399. case "Del"
  400. DelClass
  401. case "Edit"
  402. EditClass
  403. case "Save"
  404. SaveClass
  405. end select
  406. '******************************************************************
  408. Sub ViewClass()
  409. Dim View_VCID,IsOk,VClass_Rs1
  410. IsOk = false
  411. View_VCID = NoSqlHack(request.QueryString("VCID"))
  412. if View_VCID<>"" then if isnumeric(View_VCID) then if View_VCID>0 then IsOk = true
  413. if IsOk=false then 
  414. str_Url_Add = "&VCID=0&VCText=无"
  415. else
  416. set VClass_Rs1 = User_Conn.execute( "select vClassName from FS_ME_GroupDebateClass where VCID="&View_VCID )
  417. if not VClass_Rs1.eof then 
  418. str_Url_Add = "&VCID="&View_VCID&"&VCText=" & VClass_Rs1(0)
  419. else
  420. str_Url_Add = "&VCID=0&VCText=无"
  421. end if
  422. VClass_Rs1.close
  423. set VClass_Rs1=nothing
  424. end if
  425. %>
  426. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  427.   <form name="VCForm" id="VCForm" method="post" action="?Act=Del">
  428.   <tr  class="hback"> 
  429.     <td class="xingmu"  colspan="5">社群分类管理</td>
  430.   </tr>
  431.     <tr  class="hback"> 
  432.       <td colspan="5"><a href="GroupDebate_Class.asp">管理首页</a> | <a href="GroupDebate_manage.asp">社群总管理</a> 
  433.         <!-- | 分类导航：<a href="GroupDebate_Class.asp">首页</a> >> < %=TopMenu_DaoHang()%> -->
  434.       </td>
  435.     </tr>
  436.     <tr  class="hback"> 
  437.       <td align="center" class="xingmu" >分类名称</td>
  438.       <td width="35%" align="center" class="xingmu">英文名称</td>
  439. <!--   <td width="10%" align="center" class="xingmu">新增子栏目</td> -->
  440.       <td width="20%" align="center" class="xingmu">设置</td>
  441.       <td width="5%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  442.     </tr>
  443.     <%
  444. response.Write( Get_VClass(request.QueryString("VCID")) )
  445. %>
  446.   </form>
  447. </table>
  448. <%End Sub
  449. Sub AddClass()
  450. dim View_Par_ID
  451. if request.QueryString("VCID")<>"" then 
  452. View_Par_ID = request.QueryString("VCID")
  453. else
  454. View_Par_ID = request.QueryString("ParID")
  455. end if
  456. %>
  457. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  458.   <form name="VCForm" id="VCForm" method="post" action="?Act=Save">
  459.     <tr  class="hback"> 
  460.       <td align="left" class="xingmu" colspan="5"><a href="GroupDebate_Class.asp">管理首页</a> 
  461.         | <a href="GroupDebate_manage.asp">社群总管理</a> 
  462.         <!-- | 分类导航：<a href="GroupDebate_Class.asp">首页</a> >> < %=TopMenu_DaoHang()%> -->
  463.       </td>
  464.     </tr>
  465.     <tr  class="hback"> 
  466.       <td colspan="2" align="left" class="xingmu" >新增社群分类信息 目前最多一级</td>
  467.     </tr>
  468.     <tr  class="hback"> 
  469.       <td width="200" align="right">上一级行业名称</td>
  470.       <td width="774">
  471.   <input name="VCText" id="VCText" readonly type="text" size="50" value="<%=request.QueryString("VCText")%>"/>
  472.   <input type="hidden" name="ParID" id="ParID" value="<%=View_Par_ID%>"/>
  473.   </td>
  474.     </tr>
  475.     <tr class="hback"> 
  476.       <td align="right">新的行业名称：</td>
  477.       <td width="774"><input name="vClassName" type="text" id="vClassName" size="50" onBlur="if(this.value==''){Chk_vCName.innerText='该项必须填写';this.focus();} else if(Chk_vCName.innerText!='')Chk_vCName.innerText=''"><span id="Chk_vCName" class="tx"></span> 
  478.       </td>
  479.     </tr>
  480.     <tr class="hback"> 
  481.       <td align="right">对应英文名：</td>
  482.       <td width="774"><input name="vClassName_En" type="text" id="vClassName_En" size="50" onKeyUp="value=value.replace(/[^a-zA-Z0-9_-]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^a-zA-Z0-9_-]/g,''))"> 
  483.       </td>
  484.     </tr>
  485.     <tr  class="hback"> 
  486.       <td colspan="4">
  487.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  488.    <tr>
  489.   <td align="center">
  490. <input type="submit" <%call Say_Limit_Class("AddMode")%> name="SaveClass" id="SaveClass" value=" 保存 " onClick="if(vClassName.value==''){alert('必要的参数必须填写');vClassName.focus();return false}" /> &nbsp;
  491. <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  492.   </td>
  493.   <td width="50" align="right">
  494. <a href="GroupDebate_Class.asp?Act=View&VCID=<%=Get_PatID_TO_View(View_Par_ID)%>">返回父级</a>
  495.   </td>
  496.   <td width="50" align="right">
  497. <a href="#" onClick="javascript:history.back();">返回</a>
  498.   </td>
  499. </tr>  
  500.       </table>
  501.       </td>
  502.     </tr>
  503.   </form>
  504. </table>
  505. <%End Sub
  506. Sub EditClass()
  507. %>
  508. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  509.   <form name="VCForm" id="VCForm" method="post" action="?Act=Save">
  510.     <tr  class="hback"> 
  511.       <td align="left" class="xingmu" colspan="5"><a href="GroupDebate_Class.asp">管理首页</a> 
  512.         | <a href="GroupDebate_manage.asp">社群总管理</a> 
  513.         <!-- | 分类导航：<a href="GroupDebate_Class.asp">首页</a> >> < %=TopMenu_DaoHang()%> -->
  514.       </td>
  515.     </tr>
  516.     <tr  class="hback"> 
  517.       <td colspan="2" align="left" class="xingmu" >修改社群分类信息 目前最多一级</td>     
  518.     </tr>
  519. <tr  class="hback" style="display:none"> 
  520.       <td width="201" align="right">变更上级类别<br><span class="tx">若不变更请重置</span></td>
  521.       <td width="773">
  522. <!---联动菜单开始--->
  523. <SELECT NAME="vclass1" ID="vclass1" onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');"  style="width:100px">
  524.          <OPTION></OPTION>
  525.     </SELECT>
  526. <SELECT NAME="vclass2" ID="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
  527.          <OPTION></OPTION>
  528.     </SELECT>
  529. <SELECT NAME="vclass3" ID="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
  530.         <OPTION></OPTION>
  531.     </SELECT>
  532. <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 width="773">
  541.   <input name="vClassName" id="vClassName" type="text" size="50" value="<%=request.QueryString("VCText")%>" onBlur="if(this.value==''){Chk_vCName.innerText='该项必须填写';this.focus()} else if(Chk_vCName.innerText!='')Chk_vCName.innerText=''"><span id="Chk_vCName" class="tx"></span>
  542.       <input type="hidden" name="VCID" id="VCID" value="<%=request.QueryString("VCID")%>">
  543.      <!--<input type="text" name="ParentID" id="ParentID" value="">-->
  544.   </td>
  545.     </tr>
  546.     <tr class="hback"> 
  547.       <td align="right">对应英文名：</td>
  548.       <td width="773"><input name="vClassName_En" type="text" id="vClassName_En" size="50" onKeyUp="value=value.replace(/[^a-zA-Z0-9_-]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^a-zA-Z0-9_-]/g,''))"> 
  549.       </td>
  550.     </tr>
  551.     <tr  class="hback"> 
  552.       <td colspan="4">
  553.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  554.    <tr>
  555.   <td align="center">
  556. <input type="submit" <%call Say_Limit_Class("AddMode")%> name="SaveClass" id="SaveClass" value=" 保存 " onClick="if(vClassName.value==''){vClassName.focus();return false}" /> &nbsp;
  557. <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  558.   </td>
  559.   <td width="50" align="right">
  560. <a href="GroupDebate_Class.asp?Act=View&VCID=<%=Get_PatID_TO_View(request.QueryString("VCID"))%>">返回父级</a>
  561.   </td>
  562.   <td width="50" align="right">
  563. <a href="#" onClick="javascript:history.back();">返回</a>
  564.   </td>
  565. </tr>  
  566.       </table>
  567.       </td>
  568.     </tr>
  569.   </form>
  570. </table>
  571. <%End Sub%>
  572. </body>
  573. <%if request.QueryString("Act")="Edit" then%>
  574. <script language="javascript">
  575. <!-- 
  576. //awen created
  577. //联动菜单---行业类别   最多4级   --start 
  578. //数据格式 ID，父级ID，名称
  579. var array=new Array();
  580. <%dim sql,rs,i
  581.   sql="select VCID,ParentID,vClassName from FS_ME_GroupDebateClass where VCID<>"&request.QueryString("VCID")
  582.   set rs=User_Conn.execute(sql)
  583.   i=0
  584.   do while not rs.eof
  585. %>
  586. array[<%=i%>]=new Array("<%=rs("VCID")%>","<%=rs("ParentID")%>","<%=rs("vClassName")%>"); 
  587. <%
  588. rs.movenext
  589. i=i+1
  590. loop
  591. rs.close
  592. %>
  594. var liandong=new CLASS_LIANDONG_YAO(array)
  595. liandong.firstSelectChange("0","vclass1");
  596. liandong.subSelectChange("vclass1","vclass2");
  597. liandong.subSelectChange("vclass2","vclass3");
  598. liandong.subSelectChange("vclass3","vclass4");
  600. //---------------------------清除关联下拉框的内容
  601. function RemoveChildopt(obj,StrList)
  602. {
  603. /*
  604. if (StrList=='') 
  605. if (document.getElementById('ParentID')!=null) 
  606. {
  607. if (obj.value!='')
  608. {document.getElementById('ParentID').value=obj.value;return;}
  609. else
  610. {document.getElementById('ParentID').value=document.getElementById('vclass3').value;return;}
  611. }
  612. */
  613. var TmpArr = StrList.split(',');
  614. if(obj.selectedIndex<2)
  615. {
  616. for (var i=TmpArr.length-1 ; i>=0; i--)
  617. {
  618. //alert(TmpArr[i]);
  619. if (TmpArr[i]!='') 
  620. //清除下拉内容
  621. for (var j=document.getElementById(TmpArr[i]).options.length-1 ; j>=0 ; j--)
  622. document.getElementById(TmpArr[i]).options.remove(j);
  623. }
  624. }
  625. /* else
  626. //选择实际项目将值副给隐藏域，以便修改的时候存盘。
  627. {
  628. var Tmpstr = '';
  629. for (var i=TmpArr.length-1 ; i>=0; i--)
  630. {
  631. if (TmpArr[i]!='')
  632. { if (document.getElementById(TmpArr[i]).selectedIndex>1)
  633. Tmpstr += document.getElementById(TmpArr[i]).options[document.getElementById(TmpArr[i]).selectedIndex].value;
  634. }
  635. }
  636. //alert(document.VCForm.ParentID.value);
  637. if (Tmpstr=='')
  638. {
  639. //副给隐藏域
  640. if (document.getElementById('ParentID')!=null) document.all.ParentID.value=obj.value;
  641. }
  642. }
  643. */
  644. } 
  645. //end 
  646. -->
  647. </script>
  648. <%end if%>
  649. <%
  650. Set VClass_Rs=nothing
  651. User_Conn.close
  652. Set User_Conn=nothing
  653. %>
  655. </html>
  656. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->