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

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

数据库编程

开发平台：

ASP/ASPX

DefineTable_Manage.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_Inc/Function.asp"-->
  4. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="../FS_InterFace/NS_Function.asp" -->
  6. <!--#include file="../FS_Inc/Func_page.asp" -->
  7. <%'Copyright (c) 2006 Foosun Inc. Code by awen www.ueuo.cn 网络收藏夹
  8. Dim Conn,VClass_Rs,VClass_Sql
  9. MF_Default_Conn
  10. 'session判断
  11. MF_Session_TF
  12. if not MF_Check_Pop_TF("MF_Define") then Err_Show
  13. Dim CheckStr,str_Url_Add
  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>" '尾页
  25. '******************************************************************
  26. Sub DelClass()       
  27. Dim DelID,Str_Tmp,Str_Tmp1   
  28. DelID = request.Form("DelID")
  29. if DelID = "" then 
  30. response.Redirect("error.asp?ErrorUrl=&ErrCodes=<li>你必须选择一项再删除。</li>")
  31. response.End()
  32. end if
  33. DelID = replace(DelID," ","")
  34. Str_Tmp1 = DelID
  35. ''**********************
  36. do while Str_Tmp1 <> "" 
  37. Str_Tmp1 = Get_DefineID_DefineID_TO_Del(Str_Tmp1)
  38. Str_Tmp = Str_Tmp & Str_Tmp1 
  39. loop
  40. if right(Str_Tmp,1) = "," then 
  41. Str_Tmp = Str_Tmp & DelID
  42. elseif Str_Tmp<>"" then 
  43. Str_Tmp = Str_Tmp &","& DelID
  44. else
  45. Str_Tmp = DelID
  46. end if
  47. 'response.Write(Str_Tmp)
  48. ''**********************
  49. Conn.execute("delete from FS_MF_DefineTableClass where DefineID in ("&Str_Tmp&")")
  50. ''+++++++++++++++++
  51. ''删除相关的其它表内容.
  52. Conn.execute("delete from FS_MF_DefineTable where ClassID in ("&Str_Tmp&")")
  53. ''+++++++++++++++++
  54. response.Redirect("Success.asp?ErrorUrl=DefineTable_Manage.asp&ErrCodes=<li>恭喜，删除成功。</li>")
  55. End Sub
  57. Sub SaveClass()
  58. call Say_Limit_Class("SaveMode") 
  59. Dim Edit_PartID,ii,Str_Req_Child,Str_Req_Tmp,Str_Biangeng_ParentID_ParentID,Err_info
  60. VClass_Sql = "select DefineID,DefineName,ParentID from FS_MF_DefineTableClass"
  61. if NoSqlHack(request.Form("ParID"))<>"" then 
  62. ''新增
  63. if CheckCardCF(NoSqlHack(Trim(request.Form("DefineName"))),request.Form("ParID"))<>"" then 
  64. response.Redirect("error.asp?ErrCodes=<li>同级别的类别: "&request.Form("DefineName")&" 已经存在。</li>")
  65. response.End()
  66. end if
  67. VClass_Sql = VClass_Sql & " where DefineID=0"
  68. elseif  NoSqlHack(request.Form("DefineID"))<>"" then 
  69. ''修改
  70. VClass_Sql = VClass_Sql & " where DefineID=" & NoSqlHack(request.Form("DefineID"))
  71. ''**********************
  72. ''当自定义字段类别要变更时判断当前级别加上其子级再加上要变更的类别一共是否在4级以内。若不再这返回。
  73. for ii = 1 to 1 step -1
  74. if request.Form("vclass"&ii)<>"" then Edit_PartID = request.Form("vclass"&ii) : exit for
  75. next
  76. ''''''''''''''''''''''''''
  77. if Edit_PartID = "[ChangeToTop]" then Edit_PartID = 0
  78. if Edit_PartID > 0 then
  79. ''''''''''''''''
  80. ''Str_Biangeng_ParentID_ParentID准备变更到的父级类别和其本身的父级类别
  81. Str_Req_Tmp = Edit_PartID
  82. do while Str_Req_Tmp<>""
  83. Str_Req_Tmp = Get_ParID_ParID_TO_Save(Str_Req_Tmp)
  84. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID & Str_Req_Tmp 
  85. loop
  86. if right(Str_Biangeng_ParentID_ParentID,1) = "," then 
  87. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID & Edit_PartID
  88. elseif Str_Biangeng_ParentID_ParentID<>"" then 
  89. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID &","& Edit_PartID
  90. else
  91. Str_Biangeng_ParentID_ParentID = Edit_PartID
  92. end if
  93. Err_info = Err_info & "<li>欲变更到的父级和其所有父级:"&Str_Biangeng_ParentID_ParentID&"</li>"
  94. response.Write(Err_info)
  95. 'response.End()
  96. ''''''''''''''''''''''''''
  97. ''Str_Req_Child当前的类别和其子内
  98. Str_Req_Tmp = request.Form("DefineID")
  99. do while Str_Req_Tmp <> "" 
  100. Str_Req_Tmp = Get_DefineID_DefineID_TO_Del(Str_Req_Tmp)
  101. Str_Req_Child = Str_Req_Child & Str_Req_Tmp 
  102. loop
  103. if right(Str_Req_Child,1) = "," then 
  104. Str_Req_Child = Str_Req_Child & request.Form("DefineID")
  105. elseif Str_Req_Child<>"" then 
  106. Str_Req_Child = Str_Req_Child &","& request.Form("DefineID")
  107. else
  108. Str_Req_Child = request.Form("DefineID")
  109. end if
  110. Err_info = Err_info & "<li>当前类别和其所有子类:"&Str_Req_Child&"</li>"
  111. Err_info = Err_info & "<li>预料的总级数:"&ubound(split(Str_Biangeng_ParentID_ParentID & "," & Str_Req_Child,",")) + 1&"</li>"
  112. response.Write(Err_info)
  113. 'response.End()
  114. if ubound(split(Str_Biangeng_ParentID_ParentID & "," & Str_Req_Child,",")) + 1 > 4 then
  115. Err_info = Err_info & "<li>抱歉,将要或已经超过四级!所有不能更改到该类下.</li>"
  116. response.Redirect("error.asp?ErrCodes="&Err_info&"")
  117. response.End()
  118. end if
  119. '''''''''''''''
  120. end if
  121. ''**********************
  122. else
  123. response.Redirect("error.asp?ErrCodes=<li>必要的自定义字段ID没有提供。</li>")
  124. response.End()
  125. end if
  126. 'response.Write(VClass_Sql)
  127. 'response.End()
  128. Set VClass_Rs = CreateObject(G_FS_RS)
  129. VClass_Rs.Open VClass_Sql,Conn,3,3
  130. if NoSqlHack(request.Form("ParID"))<>"" then 
  131. VClass_Rs.AddNew
  132. VClass_Rs("ParentID") = NoSqlHack(request.Form("ParID"))
  133. VClass_Rs("DefineName") = NoSqlHack(Trim(request.Form("DefineName")))
  134. VClass_Rs.update
  135. VClass_Rs.close
  136. response.Redirect("Success.asp?ErrorUrl="&server.URLEncode( "DefineTable_Manage.asp?Act=Add&DefineID="&NoSqlHack(request.Form("ParID"))&"&VCText="&NoSqlHack(request.Form("VCText")) )&"&ErrCodes=<li>恭喜，存盘成功。</li>")
  137. end if
  138. '''修改
  139. if NoSqlHack(request.Form("DefineID"))<>"" then 
  140. 'response.Write("<br>VClass_Sql:"&VClass_Sql&"<br>Edit_PartID:"&Edit_PartID)
  141. 'response.End()
  142. VClass_Rs("DefineName") = NoSqlHack(Trim(request.Form("DefineName")))
  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，并传给返回的DefineID，以便显示父级ID同级别的所有类别
  149. set PartID_PartID_Rs = Conn.execute("select ParentID from FS_MF_DefineTableClass where DefineID="&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( "DefineTable_Manage.asp?Act=View&DefineID="&Edit_PartID )&"&ErrCodes=<li>恭喜，存盘成功。</li>")
  158. end if
  159. End Sub
  161. Function CheckCardCF(DefineName,ParentID)
  162. ''检查录入的是否重复,重复则返回DefineName,不重复则返回""
  163. Dim CheckCardCF_Rs
  164. set CheckCardCF_Rs = Conn.execute( "select Count(*) from FS_MF_DefineTableClass where DefineName='"&DefineName&"' and ParentID="&ParentID )
  165. if  CheckCardCF_Rs(0)>0 then 
  166. CheckCardCF = DefineName
  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_DefineID_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)>0 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)>0 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(DefineID)
  211. ''递归调用显示分类
  212. Dim Get_Html
  213. VClass_Sql = "select DefineID,DefineName,ParentID from FS_MF_DefineTableClass"
  214. if DefineID<>"" and DefineID>0 then 
  215. VClass_Sql = VClass_Sql &" where ParentID = "&DefineID&" order by DefineID desc"
  216. else
  217. VClass_Sql = VClass_Sql &" where ParentID = 0 order by DefineID desc"
  218. end if
  219. Set VClass_Rs = CreateObject(G_FS_RS)
  220. VClass_Rs.Open VClass_Sql,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("DefineName") & "</td>" & vbcrlf
  235. Get_Html = Get_Html & "<td align=""center""><a href=""DefineTable_Info_Manage.asp?Act=View&Add_Sql="& server.URLEncode(Encrypt( "ClassID="&VClass_Rs("DefineID") )) &"""  class=""otherset"">查看该类字段</FONT></a></td>" & vbcrlf
  236. '' Get_Html = Get_Html & "<td align=""center""><a href=DefineTable_Manage.asp?Act=View&DefineID="&VClass_Rs("DefineID")&">"& VClass_Rs("DefineName") & "</a></td>" & vbcrlf
  237. Get_Html = Get_Html & "<td align=""center""><a href=""DefineTable_Info_Manage.asp?Act=Add&ClassID="&VClass_Rs("DefineID")&"""  class=""otherset"">新增该类字段</FONT></a></td>" & vbcrlf
  238. '' Get_Html = Get_Html & "<td align=""center""><a href=""DefineTable_Manage.asp?Act=Add&DefineID="&VClass_Rs("DefineID")&"&VCText="&VClass_Rs("DefineName")&"""  class=""otherset"">新增</FONT></a></td>" & vbcrlf
  239. Get_Html = Get_Html & "<td align=""center""><a href=""DefineTable_Manage.asp?Act=Edit&DefineID="&VClass_Rs("DefineID")&"&VCText="&VClass_Rs("DefineName")&"""  class=""otherset"">设置</FONT></a></td>" & vbcrlf
  240. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" "&CheckStr&" name=""DelID"" id=""DelID"" value="""&VClass_Rs("DefineID")&""" /></td>" & vbcrlf
  241. Get_Html = Get_Html & "</tr>" & vbcrlf
  242. CheckStr = ""
  243. VClass_Rs.MoveNext
  244.   if VClass_Rs.eof or VClass_Rs.bof then exit for
  245.       NEXT
  246. END IF
  247. 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
  248. Get_Html = Get_Html & fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  249. Get_Html = Get_Html & "</td><td align=right><input type=""button"" name=""button1112"" value="" 新增同级栏目 "" onClick=""location='DefineTable_Manage.asp?Act=Add"& str_Url_Add &"'"">" & vbcrlf
  250. Get_Html = Get_Html & "<input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"& vbcrlf
  251. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  252. VClass_Rs.close
  253. Get_VClass = Get_Html
  254. End Function
  256. Function Get_DefineID_DefineID_TO_Del(Req_DefineID)
  257. ''循环调用，通过传入的DefineID得到子级的DefineID，并且组合起来，一起传给DelClass过程以删除所有相关类别。
  258. Dim Str_Tmp,This_Fun_Sql
  259. if Req_DefineID="" or isnull(Req_DefineID) or Req_DefineID="," then Get_DefineID_DefineID_TO_Del="" : exit Function
  260. This_Fun_Sql="select DefineID from FS_MF_DefineTableClass where ParentID in ("&Req_DefineID&")"
  261. set VClass_Rs=Conn.execute(This_Fun_Sql)
  262. do while not VClass_Rs.eof 
  263. Str_Tmp = Str_Tmp & VClass_Rs(0) & ","
  264. VClass_Rs.movenext
  265. loop
  266. VClass_Rs.close
  267. Get_DefineID_DefineID_TO_Del = Str_Tmp
  268. End Function
  270. Function Get_ParID_ParID_TO_Save(Req_ParID)
  271. ''循环调用，通过传入的ParentID得到其上的所有ParentID，并且组合起来，一起传给SaveClass过程以判断是否超过4级.
  272. Dim Str_Tmp,This_Fun_Sql
  273. if Req_ParID="" or isnull(Req_ParID) or Req_ParID="," then Get_ParID_ParID_TO_Save="" : exit Function
  274. This_Fun_Sql="select ParentID from FS_MF_DefineTableClass where DefineID in ("&Req_ParID&")"
  275. set VClass_Rs=Conn.execute(This_Fun_Sql)
  276. do while not VClass_Rs.eof 
  277. if VClass_Rs(0)=0 then exit do : Get_ParID_ParID_TO_Save="" : exit Function 
  278. Str_Tmp = Str_Tmp & VClass_Rs(0) & ","
  279. VClass_Rs.movenext
  280. loop
  281. VClass_Rs.close
  282. Get_ParID_ParID_TO_Save = Str_Tmp
  283. End Function
  285. Function Get_PatID_TO_View(View_ID)
  286. ''导航作用，得到父级ID以便返回父级层查看
  287. Dim This_Fun_Sql
  288. if View_ID="" then Get_PatID_TO_View=0 : exit Function
  289. This_Fun_Sql = "select ParentID from FS_MF_DefineTableClass where DefineID="&NoSqlHack(View_ID)
  290. Set VClass_Rs = Conn.execute(This_Fun_Sql)
  291. if not VClass_Rs.eof then 
  292. Get_PatID_TO_View = VClass_Rs(0)
  293. else
  294. Get_PatID_TO_View = 0
  295. end if
  296. VClass_Rs.close
  297. End Function
  299. Function Get_PatTxt_TO_View(View_ID)
  300. ''导航作用，得到父级类目名称以便返回父级层查看，和上面对应
  301. Dim VClass_Rs1,This_Fun_Sql
  302. if View_ID="" then Get_PatTxt_TO_View="无" : exit Function
  303. This_Fun_Sql = "select ParentID from FS_MF_DefineTableClass where DefineID="&NoSqlHack(View_ID)
  304. Set VClass_Rs = Conn.execute(This_Fun_Sql)
  305. if not VClass_Rs.eof then 
  306. set VClass_Rs1 = Conn.execute( "select DefineName from FS_MF_DefineTableClass where DefineID="&VClass_Rs(0) )
  307. if not VClass_Rs1.eof then 
  308. Get_PatTxt_TO_View = VClass_Rs1(0)
  309. else
  310. Get_PatTxt_TO_View = "无"
  311. end if
  312. VClass_Rs1.close
  313. set VClass_Rs1=nothing
  314. else
  315. Get_PatTxt_TO_View = "无"
  316. end if
  317. VClass_Rs.close
  318. End Function
  320. Function TopMenu_DaoHang()
  321. ''层层导航作用 session("TopMenu_DaoHang_DefineID_List") = ',1,2,3,4,'
  322. Dim str_Req_DefineID,str_Session,Sql_Session,Per_ID_Session,Str_Tmp,Str_Remove,Arr_Tmp,This_Fun_Sql
  323. if request.QueryString("DefineID")="" or request.QueryString("DefineID")="0" then 
  324. session("TopMenu_DaoHang_DefineID_List")="" : TopMenu_DaoHang = "" : exit Function
  325. end if
  326. ''**************
  327. str_Req_DefineID = NoSqlHack(request.QueryString("DefineID"))
  328. str_Req_DefineID = ","&str_Req_DefineID&","
  329. 'if session("TopMenu_DaoHang_DefineID_List") = "" then session("TopMenu_DaoHang_DefineID_List") = str_Req_DefineID
  330. str_Session = session("TopMenu_DaoHang_DefineID_List")
  331. if str_Session = "" or isEmpty(str_Session) then str_Session = str_Req_DefineID 
  332. if left(str_Session,1)<>"," then str_Session = ","&str_Session
  333. if right(str_Session,1)<>"," then str_Session = str_Session&","
  334. session("TopMenu_DaoHang_DefineID_List") = str_Session
  335. 'response.Write("原"&session("TopMenu_DaoHang_DefineID_List"))
  336. ',1,2,3,4,' 与 ',3,'
  337. if right(str_Session,len(str_Req_DefineID)) <> str_Req_DefineID then 
  338. if instr(str_Session,str_Req_DefineID)>0 then
  339. ''截取
  340. str_Session = mid(str_Session,1,instr(str_Session,str_Req_DefineID) + len(str_Req_DefineID) - 1)
  341. session("TopMenu_DaoHang_DefineID_List") = str_Session
  342. 'response.Write("减"&session("TopMenu_DaoHang_DefineID_List"))
  343. else
  344. ''添加
  345. str_Session = str_Session & NoSqlHack(request.QueryString("DefineID")) &","
  346. session("TopMenu_DaoHang_DefineID_List") = str_Session
  347. 'response.Write("加"&session("TopMenu_DaoHang_DefineID_List"))
  348. end if
  349. end if
  350. ''**************
  351. Sql_Session = str_Session
  352. if left(Sql_Session,1)="," then Sql_Session = mid(Sql_Session,2,len(Sql_Session))
  353. if right(Sql_Session,1)="," then Sql_Session = mid(Sql_Session,1,len(Sql_Session) - 1)
  354. 'response.Write(session("TopMenu_DaoHang_DefineID_List"))
  355. ''**************
  356. ''顺序真实的组合
  357. str_Session = ""
  358. Arr_Tmp = split(Sql_Session,",")
  359. for each Per_ID_Session in Arr_Tmp
  360. This_Fun_Sql = "select DefineID,DefineName from FS_MF_DefineTableClass where DefineID = "&Per_ID_Session
  361. Set VClass_Rs = Conn.execute(This_Fun_Sql)
  362. if not VClass_Rs.eof then 
  363. Str_Tmp = Str_Tmp & "<a href=""DefineTable_Manage.asp?Act=View&DefineID=" &VClass_Rs(0)&""" class=""sd""><b>"&VClass_Rs(1)&"</b><a> >> "
  364. str_Session = str_Session &VClass_Rs(0)& "," 
  365. end if
  366. VClass_Rs.close
  367. next
  368. session("TopMenu_DaoHang_DefineID_List") = "," & str_Session
  369. if right(Str_Tmp,len(" >> "))=" >> " then Str_Tmp = mid(Str_Tmp,1,len(Str_Tmp) - len(" >> "))
  370. TopMenu_DaoHang = Str_Tmp
  371. 'response.Write(session("TopMenu_DaoHang_DefineID_List"))
  372. End Function
  373. %>
  374. <html xmlns="http://www.w3.org/1999/xhtml">
  375. <HEAD>
  376. <TITLE>FoosunCMS</TITLE>
  377. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  378. </HEAD>
  379. <script language="JavaScript" src="../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  380. <%if request.QueryString("Act")="Edit" then%><script language="javascript" src="../FS_Inc/class_liandong.js" type="text/javascript"></script><%end if%>
  381. <link href="images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  382. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  383. <%
  384. '******************************************************************
  385. select case request.QueryString("Act")
  386. case "View",""
  387. ViewClass
  388. case "Add"
  389. AddClass
  390. case "Del"
  391. DelClass
  392. case "Edit"
  393. EditClass
  394. case "Save"
  395. SaveClass
  396. end select
  397. '******************************************************************
  399. Sub ViewClass()
  400. Dim View_DefineID,IsOk,VClass_Rs1
  401. IsOk = false
  402. View_DefineID = NoSqlHack(request.QueryString("DefineID"))
  403. if View_DefineID<>"" then if isnumeric(View_DefineID) then if View_DefineID>0 then IsOk = true
  404. if IsOk=false then 
  405. str_Url_Add = "&DefineID=0&VCText=无"
  406. else
  407. set VClass_Rs1 = Conn.execute( "select DefineName from FS_MF_DefineTableClass where DefineID="&View_DefineID )
  408. if not VClass_Rs1.eof then 
  409. str_Url_Add = "&DefineID="&View_DefineID&"&VCText=" & VClass_Rs1(0)
  410. else
  411. str_Url_Add = "&DefineID=0&VCText=无"
  412. end if
  413. VClass_Rs1.close
  414. set VClass_Rs1=nothing
  415. end if
  416. %>
  417. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  418.   <tr class="xingmu">
  419.     <td class="xingmu"><a href="#" onmouseover="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by 张文 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>自定义管理</strong></a></td>
  420.   </tr>
  421.   <tr class="hback">
  422.     <td class="hback"><!--<a href="DefineTable_Info_Manage.asp?Act=View">管理首页</a> -->
  423.       <!-- | <a href="DefineTable_Manage.asp?Act=View&DefineID=<%=Get_PatID_TO_View(request.QueryString("DefineID"))%>" class="sd"><b>返回父级</b></a>
  424.    | <a href="#" onClick="javascript:history.back();" class="sd"><b>返回</b></a>-->
  425.      <!-- | --><a href="DefineTable_Info_Manage.asp">字段内容管理</a></td>
  426.   </tr>
  427. </table>
  428. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  429.   <form name="VCForm" id="VCForm" method="post" action="?Act=Del">
  430.     <tr  class="hback"> 
  431.       <td align="left" class="xingmu" colspan="5"> 
  432.         <!-- | 分类导航：<a href="DefineTable_Manage.asp" class="sd"><b>首页</b></a>  >> <%=TopMenu_DaoHang()%>-->
  433.       </td>
  434.     </tr>
  435.     <tr  class="hback"> 
  436.       <td align="center"  class="xingmu">分类名称</td>
  437.       <td width="25%" align="center" class="xingmu">查看自定义字段</td>
  438.       <td width="25%" align="center" class="xingmu">新增自定义字段</td>
  439.       <!--<td width="10%" align="center" class="xingmu">新增子栏目</td>-->
  440.       <td width="10%" 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("DefineID")) )
  445. %>
  446.   </form>
  447. </table>
  448. <%End Sub
  449. Sub AddClass()
  450. dim View_Par_ID
  451. if request.QueryString("DefineID")<>"" then 
  452. View_Par_ID = request.QueryString("DefineID")
  453. else
  454. View_Par_ID = request.QueryString("ParID")
  455. end if
  456. %>
  457. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  458.   <tr class="xingmu"> 
  459.     <td class="xingmu">自定义管理</td>
  460.   </tr>
  461.   <tr class="hback"> 
  462.     <td class="hback"><a href="DefineTable_Manage.asp?Act=View">管理首页</a> 
  463.       <!-- | <a href="DefineTable_Manage.asp?Act=View&DefineID=<%=Get_PatID_TO_View(request.QueryString("DefineID"))%>" class="sd"><b>返回父级</b></a>
  464.    | <a href="#" onClick="javascript:history.back();" class="sd"><b>返回</b></a>-->
  465.       | <a href="DefineTable_Info_Manage.asp">字段内容管理</a></td>
  466.   </tr>
  467. </table>
  468. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  469.   <form name="VCForm" id="VCForm" method="post" action="?Act=Save">
  470.     <tr  class="hback"> 
  471.       <td colspan="2" align="left" class="xingmu" >新增自定义字段分类信息 自定义字段分类目前一级</td>
  472.     </tr>
  473.     <tr  class="hback"> 
  474.       <td align="right">上一级自定义字段名称</td>
  475.       <td width="596"> <input name="VCText" id="VCText" readonly type="text" size="50" value="<%=request.QueryString("VCText")%>"/> 
  476.         <input type="hidden" name="ParID" id="ParID" value="<%=View_Par_ID%>"/> 
  477.       </td>
  478.     </tr>
  479.     <tr class="hback"> 
  480.       <td align="right">新的自定义字段名称：</td>
  481.       <td width="596"><input name="DefineName" type="text" id="DefineName" size="50" onBlur="if(this.value==''){Chk_vCName.innerText='该项必须填写';this.focus();} else if(Chk_vCName.innerText!='')Chk_vCName.innerText=''" />
  482.         <span id="Chk_vCName" class="tx"></span> </td>
  483.     </tr>
  484.     <tr  class="hback"> 
  485.       <td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
  486.           <tr> 
  487.             <td align="center"> <input type="submit" <%call Say_Limit_Class("AddMode")%> name="SaveClass" id="SaveClass" value=" 保存 " onClick="if(DefineName.value==''){alert('必要的参数必须填写');DefineName.focus();return false}" /> 
  488.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " /> 
  489.             </td>
  490.             <td width="50" align="right"> <a href="DefineTable_Manage.asp?Act=View&DefineID=<%=Get_PatID_TO_View(View_Par_ID)%>">返回父级</a> 
  491.             </td>
  492.             <td width="50" align="right"> <a href="#" onClick="javascript:history.back();">返回</a> 
  493.             </td>
  494.           </tr>
  495.         </table></td>
  496.     </tr>
  497.   </form>
  498. </table>
  499. <%End Sub
  500. Sub EditClass()
  501. %>
  502. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  503.   <tr class="xingmu"> 
  504.     <td class="xingmu">自定义管理</td>
  505.   </tr>
  506.   <tr class="hback"> 
  507.     <td class="hback"><a href="DefineTable_Manage.asp?Act=View">管理首页</a> 
  508.       <!-- | <a href="DefineTable_Manage.asp?Act=View&DefineID=<%=Get_PatID_TO_View(request.QueryString("DefineID"))%>" class="sd"><b>返回父级</b></a>
  509.    | <a href="#" onClick="javascript:history.back();" class="sd"><b>返回</b></a>-->
  510.       | <a href="DefineTable_Info_Manage.asp">字段内容管理</a></td>
  511.   </tr>
  512. </table>
  513. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  514.   <form name="VCForm" id="VCForm" method="post" action="?Act=Save">
  515.     <tr  class="hback"> 
  516.       <td colspan="2" align="left" class="xingmu" >修改自定义字段分类信息 自定义字段分类目前一级</td>
  517.     </tr>
  518.     <tr  class="hback" style="display:none"> 
  519.       <td align="right">变更上级类别<br>
  520.         <span class="tx">若不变更请重置</span></td>
  521.       <td width="596"> <SELECT NAME="vclass1" ID="vclass1" style="width:100px">
  522.           <OPTION></OPTION>
  523.         </SELECT> 
  524.         <!--   
  525. <!---联动菜单开始--- >
  526. <SELECT NAME="vclass1" ID="vclass1" onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');"  style="width:100px">
  527.          <OPTION></OPTION>
  528.     </SELECT>
  529. <SELECT NAME="vclass2" ID="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
  530.          <OPTION></OPTION>
  531.     </SELECT>
  532. <SELECT NAME="vclass3" ID="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
  533.         <OPTION></OPTION>
  534.     </SELECT>
  535. <SELECT NAME="vclass4" ID="vclass4" style="width:100px">
  536.      <OPTION></OPTION>
  537.     </SELECT>
  538. <!---联动菜单结束--- > -->
  539.       </td>
  540.     </tr>
  541.     <tr  class="hback"> 
  542.       <td align="right">自定义字段名称</td>
  543.       <td width="596"> <input name="DefineName" id="DefineName" 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=''" />
  544.         <span id="Chk_vCName" class="tx"></span> <input type="hidden" name="DefineID" id="DefineID" value="<%=request.QueryString("DefineID")%>"> 
  545.         <!--<input type="text" name="ParentID" id="ParentID" value="">-->
  546.       </td>
  547.     </tr>
  548.     <tr  class="hback"> 
  549.       <td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
  550.           <tr> 
  551.             <td align="center"> <input type="submit" <%call Say_Limit_Class("AddMode")%> name="SaveClass2" id="SaveClass2" value=" 保存 " onClick="if(DefineName.value==''){DefineName.focus();return false}" /> 
  552.               &nbsp; <input type="reset" name="ReSet2" id="ReSet2" value=" 重置 " /> 
  553.             </td>
  554.             <td width="50" align="right"> <a href="DefineTable_Manage.asp?Act=View&DefineID=<%=Get_PatID_TO_View(request.QueryString("DefineID"))%>">返回父级</a> 
  555.             </td>
  556.             <td width="50" align="right"> <a href="#" onClick="javascript:history.back();">返回</a> 
  557.             </td>
  558.           </tr>
  559.         </table></td>
  560.     </tr>
  561.   </form>
  562. </table>
  563. <%End Sub%>
  564. <script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
  565. </body>
  566. <%if request.QueryString("Act")="Edit" then%>
  567. <script language="javascript">
  568. <!-- 
  569. //awen created
  570. //联动菜单---自定义字段类别   最多4级  目前1级 --start 
  571. //数据格式 ID，父级ID，名称
  572. var array=new Array();
  573. <%dim NS_JS_Sql,NS_JS_RS,NS_JS_i
  574.   NS_JS_Sql="select DefineID,ParentID,DefineName from FS_MF_DefineTableClass where DefineID<>"&request.QueryString("DefineID")
  575.   set NS_JS_RS=Conn.execute(NS_JS_Sql)
  576.   NS_JS_i=0
  577.   do while not NS_JS_RS.eof
  578. %>
  579. array[<%=NS_JS_i%>]=new Array("<%=NS_JS_RS("DefineID")%>","<%=NS_JS_RS("ParentID")%>","<%=NS_JS_RS("DefineName")%>"); 
  580. <%
  581. NS_JS_RS.movenext
  582. NS_JS_i=NS_JS_i+1
  583. loop
  584. NS_JS_RS.close
  585. %>
  587. var liandong=new CLASS_LIANDONG_YAO(array)
  588. liandong.firstSelectChange("0","vclass1");
  589. /*
  590. liandong.subSelectChange("vclass1","vclass2");
  591. liandong.subSelectChange("vclass2","vclass3");
  592. liandong.subSelectChange("vclass3","vclass4");
  594. //---------------------------清除关联下拉框的内容
  595. function RemoveChildopt(obj,StrList)
  596. {
  597. var TmpArr = StrList.split(',');
  598. if(obj.selectedIndex<2)
  599. {
  600. for (var i=TmpArr.length-1 ; i>=0; i--)
  601. {
  602. //alert(TmpArr[i]);
  603. if (TmpArr[i]!='') 
  604. //清除下拉内容
  605. for (var j=document.getElementById(TmpArr[i]).options.length-1 ; j>=0 ; j--)
  606. document.getElementById(TmpArr[i]).options.remove(j);
  607. }
  608. }
  609. }    */
  610. //end 
  611. -->
  612. </script>
  613. <%end if%>
  614. <%
  615. Set VClass_Rs=nothing
  616. Conn.close
  617. Set Conn=nothing
  618. %>
  620. </html>