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

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

数据库编程

开发平台：

ASP/ASPX

VocationClass.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
  13. if not MF_Check_Pop_TF("ME_HY") then Err_Show 
  15. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  16. int_RPP=15 '设置每页显示数目
  17. int_showNumberLink_=10 '数字导航显示数目
  18. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  19. str_nonLinkColor_="#999999" '非热链接颜色
  20. toF_="<font face=webdings>9</font>"    '首页 
  21. toP10_=" <font face=webdings>7</font>" '上十
  22. toP1_=" <font face=webdings>3</font>" '上一
  23. toN1_=" <font face=webdings>4</font>" '下一
  24. toN10_=" <font face=webdings>8</font>" '下十
  25. toL_="<font face=webdings>:</font>" '尾页
  26. '******************************************************************
  27. Sub DelClass()
  28. if not MF_Check_Pop_TF("ME026") then Err_Show 
  29. Dim DelID,Str_Tmp,Str_Tmp1
  30. DelID = request.Form("DelID")
  31. if DelID = "" then 
  32. response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>你必须选择一项再删除。</li>")
  33. response.End()
  34. end if
  35. DelID = replace(DelID," ","")
  36. Str_Tmp1 = DelID
  37. ''**********************
  38. do while Str_Tmp1 <> "" 
  39. Str_Tmp1 = Get_VCID_VCID_TO_Del(Str_Tmp1)
  40. Str_Tmp = Str_Tmp & Str_Tmp1 
  41. loop
  42. if right(Str_Tmp,1) = "," then 
  43. Str_Tmp = Str_Tmp & DelID
  44. elseif Str_Tmp<>"" then 
  45. Str_Tmp = Str_Tmp &","& DelID
  46. else
  47. Str_Tmp = DelID
  48. end if
  49. 'response.Write(Str_Tmp)
  50. ''**********************
  51. User_Conn.execute("delete from FS_ME_VocationClass where VCID in ("&Str_Tmp&")")
  52. response.Redirect("../Success.asp?ErrorUrl=User/VocationClass.asp&ErrCodes=<li>恭喜，删除成功。</li>")
  53. End Sub
  55. Sub SaveClass()
  56. if not MF_Check_Pop_TF("ME026") then Err_Show 
  57. call Say_Limit_Class("SaveMode") 
  58. Dim Edit_PartID,ii,Str_Req_Child,Str_Req_Tmp,Str_Biangeng_ParentID_ParentID,Err_info
  59. VClass_Sql = "select VCID,vClassName,vClassName_En,ParentID from FS_ME_VocationClass"
  60. if NoSqlHack(request.Form("ParID"))<>"" then 
  61. ''新增
  62. if CheckCardCF(NoSqlHack(Trim(request.Form("vClassName"))),request.Form("ParID"))<>"" then 
  63. response.Redirect("../Error.asp?ErrCodes=<li>同级别的类别: "&request.Form("vClassName")&" 已经存在。</li>")
  64. response.End()
  65. end if
  66. VClass_Sql = VClass_Sql & " where VCID=0"
  67. elseif  NoSqlHack(request.Form("VCID"))<>"" then 
  68. ''修改
  69. VClass_Sql = VClass_Sql & " where VCID=" & NoSqlHack(request.Form("VCID"))
  70. ''**********************
  71. ''当行业类别要变更时判断当前级别加上其子级再加上要变更的类别一共是否在4级以内。若不再这返回。
  72. for ii = 4 to 1 step -1
  73. if request.Form("vclass"&ii)<>"" then Edit_PartID = request.Form("vclass"&ii) : exit for
  74. next
  75. ''''''''''''''''''''''''''
  76. if Edit_PartID = "[ChangeToTop]" then Edit_PartID = 0
  77. if Edit_PartID > 0 then
  78. ''''''''''''''''
  79. ''Str_Biangeng_ParentID_ParentID准备变更到的父级类别和其本身的父级类别
  80. Str_Req_Tmp = Edit_PartID
  81. do while Str_Req_Tmp<>""
  82. Str_Req_Tmp = Get_ParID_ParID_TO_Save(Str_Req_Tmp)
  83. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID & Str_Req_Tmp 
  84. loop
  85. if right(Str_Biangeng_ParentID_ParentID,1) = "," then 
  86. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID & Edit_PartID
  87. elseif Str_Biangeng_ParentID_ParentID<>"" then 
  88. Str_Biangeng_ParentID_ParentID = Str_Biangeng_ParentID_ParentID &","& Edit_PartID
  89. else
  90. Str_Biangeng_ParentID_ParentID = Edit_PartID
  91. end if
  92. Err_info = Err_info & "<li>欲变更到的父级和其所有父级:"&Str_Biangeng_ParentID_ParentID&"</li>"
  93. response.Write(Err_info)
  94. 'response.End()
  95. ''''''''''''''''''''''''''
  96. ''Str_Req_Child当前的类别和其子内
  97. Str_Req_Tmp = request.Form("VCID")
  98. do while Str_Req_Tmp <> "" 
  99. Str_Req_Tmp = Get_VCID_VCID_TO_Del(Str_Req_Tmp)
  100. Str_Req_Child = Str_Req_Child & Str_Req_Tmp 
  101. loop
  102. if right(Str_Req_Child,1) = "," then 
  103. Str_Req_Child = Str_Req_Child & request.Form("VCID")
  104. elseif Str_Req_Child<>"" then 
  105. Str_Req_Child = Str_Req_Child &","& request.Form("VCID")
  106. else
  107. Str_Req_Child = request.Form("VCID")
  108. end if
  109. Err_info = Err_info & "<li>当前类别和其所有子类:"&Str_Req_Child&"</li>"
  110. Err_info = Err_info & "<li>预料的总级数:"&ubound(split(Str_Biangeng_ParentID_ParentID & "," & Str_Req_Child,",")) + 1&"</li>"
  111. response.Write(Err_info)
  112. 'response.End()
  113. if ubound(split(Str_Biangeng_ParentID_ParentID & "," & Str_Req_Child,",")) + 1 > 4 then
  114. Err_info = Err_info & "<li>抱歉,将要或已经超过四级!所有不能更改到该类下.</li>"
  115. response.Redirect("../error.asp?ErrCodes="&Err_info&"")
  116. response.End()
  117. end if
  118. '''''''''''''''
  119. end if
  120. ''**********************
  121. else
  122. response.Redirect("../error.asp?ErrCodes=<li>必要的行业ID没有提供。</li>")
  123. response.End()
  124. end if
  125. 'response.Write(VClass_Sql)
  126. 'response.End()
  127. Set VClass_Rs = CreateObject(G_FS_RS)
  128. VClass_Rs.Open VClass_Sql,User_Conn,3,3
  129. if NoSqlHack(request.Form("ParID"))<>"" then 
  130. VClass_Rs.AddNew
  131. VClass_Rs("ParentID") = NoSqlHack(request.Form("ParID"))
  132. VClass_Rs("vClassName") = NoSqlHack(Trim(request.Form("vClassName")))
  133. VClass_Rs("vClassName_En") = NoSqlHack(Trim(request.Form("vClassName_En")))
  134. VClass_Rs.update
  135. VClass_Rs.close
  136. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/VocationClass.asp?Act=Add&VCID="&NoSqlHack(request.Form("ParID"))&"&VCText="&NoSqlHack(request.Form("VCText")) )&"&ErrCodes=<li>恭喜，存盘成功。</li>")
  137. end if
  138. '''修改
  139. if NoSqlHack(request.Form("VCID"))<>"" then 
  140. 'response.Write("<br>VClass_Sql:"&VClass_Sql&"<br>Edit_PartID:"&Edit_PartID)
  141. 'response.End()
  142. VClass_Rs("vClassName") = NoSqlHack(Trim(request.Form("vClassName")))
  143. VClass_Rs("vClassName_En") = NoSqlHack(Trim(request.Form("vClassName_En")))
  144. if Edit_PartID<>"" then VClass_Rs("ParentID") = Edit_PartID
  145. VClass_Rs.update
  147. if Edit_PartID<>"" then 
  148. Dim PartID_PartID_Rs
  149. ''取得变更后的父级ID的父级ID，并传给返回的VCID，以便显示父级ID同级别的所有类别
  150. set PartID_PartID_Rs = User_Conn.execute("select ParentID from FS_ME_VocationClass where VCID="&Edit_PartID)
  151. if not PartID_PartID_Rs.eof then  Edit_PartID = PartID_PartID_Rs(0)
  152. PartID_PartID_Rs.close
  153. set PartID_PartID_Rs = nothing
  154. else
  155. Edit_PartID = VClass_Rs("ParentID")
  156. end if
  157. VClass_Rs.close
  158. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/VocationClass.asp?Act=View&VCID="&Edit_PartID )&"&ErrCodes=<li>恭喜，存盘成功。</li>")
  159. end if
  160. End Sub
  162. Function CheckCardCF(vClassName,ParentID)
  163. ''检查录入的是否重复,重复则返回vClassName,不重复则返回""
  164. Dim CheckCardCF_Rs
  165. set CheckCardCF_Rs = User_Conn.execute( "select Count(*) from FS_ME_VocationClass where vClassName='"&vClassName&"' and ParentID="&ParentID )
  166. if  CheckCardCF_Rs(0)>0 then 
  167. CheckCardCF = vClassName
  168. else 
  169. CheckCardCF = ""
  170. end if
  171. CheckCardCF_Rs.close
  172. End Function
  174. Sub Say_Limit_Class(SownMode)
  175. Dim Arr_Tmp,str_Session
  176. str_Session = session("TopMenu_DaoHang_VCID_List")
  177. select case SownMode
  178. case "AddMode"
  179. ''============================
  180. ''行业类别最多四级的判断.
  181. if str_Session <> "" then 
  182. if left(str_Session,1)="," then str_Session = mid(str_Session,2,len(str_Session))
  183. if right(str_Session,1)="," then str_Session = mid(str_Session,1,len(str_Session) - 1)
  184. Arr_Tmp = split(str_Session,",")
  185. if ubound(Arr_Tmp)>2 then 
  186. ''按扭
  187. response.Write(" disabled title=""行业分类最多四级!当前等级:第"&cstr(ubound(Arr_Tmp) + 1)&"级."" ")
  188. end if
  189. end if
  190. ''============================
  191. case "SaveMode"
  192. ''============================
  193. ''行业类别最多四级的判断.
  194. if str_Session <> "" then 
  195. if left(str_Session,1)="," then str_Session = mid(str_Session,2,len(str_Session))
  196. if right(str_Session,1)="," then str_Session = mid(str_Session,1,len(str_Session) - 1)
  197. Arr_Tmp = split(str_Session,",")
  198. if ubound(Arr_Tmp)>2 then 
  199. response.Redirect("../error.asp?ErrCodes=<li>行业类别不能超过四级。</li>")
  200. response.End()
  201. else
  202. response.Write("行业分类最多四级!当前等级:第"&cstr(ubound(Arr_Tmp) + 1)&"级.")
  203. end if
  204. end if
  205. ''============================
  206. case else
  208. end select 
  209. End Sub
  211. Function Get_VClass(vcid)
  212. ''递归调用显示分类
  213. Dim Get_Html
  214. VClass_Sql = "select VCID,vClassName,vClassName_En,ParentID from FS_ME_VocationClass"
  215. if vcid<>"" and vcid>0 then 
  216. VClass_Sql = VClass_Sql &" where ParentID = "&vcid
  217. else
  218. VClass_Sql = VClass_Sql &" where ParentID = 0"
  219. end if
  220. Set VClass_Rs = CreateObject(G_FS_RS)
  221. VClass_Rs.Open VClass_Sql,User_Conn,1,1
  222. IF not VClass_Rs.eof THEN
  224. VClass_Rs.PageSize=int_RPP
  225. cPageNo=NoSqlHack(Request.QueryString("Page"))
  226. If cPageNo="" Then cPageNo = 1
  227. If not isnumeric(cPageNo) Then cPageNo = 1
  228. cPageNo = Clng(cPageNo)
  229. If cPageNo<=0 Then cPageNo=1
  230. If cPageNo>VClass_Rs.PageCount Then cPageNo=VClass_Rs.PageCount 
  231. VClass_Rs.AbsolutePage=cPageNo
  233.   FOR int_Start=1 TO int_RPP 
  234. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  235. Get_Html = Get_Html & "<td align=""center""><a href=VocationClass.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=""VocationClass.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=""VocationClass.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='VocationClass.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_VocationClass 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_VocationClass 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_VocationClass 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_VocationClass 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_VocationClass 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_VocationClass 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=""VocationClass.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_VocationClass 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 align="left" colspan="5">分类导航：<a href="VocationClass.asp" >管理首页</a> 
  433.         >> <%=TopMenu_DaoHang()%></td>
  434.     </tr>
  435.     <tr  class="hback"> 
  436.       <td align="left" class="xingmu">分类名称</td>
  437.       <td width="20%" align="center" class="xingmu">英文名称</td>
  438.   <td width="10%" align="center" class="xingmu">新增子栏目</td>
  439.       <td width="10%" align="center" class="xingmu">设置</td>
  440.       <td width="5%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  441.     </tr>
  442.     <%
  443. response.Write( Get_VClass(request.QueryString("VCID")) )
  444. %>
  445.   </form>
  446. </table>
  447. <%End Sub
  448. Sub AddClass()
  449. if not MF_Check_Pop_TF("ME026") then Err_Show 
  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="VocationClass.asp" >管理首页</a> 
  461.         >> <%=TopMenu_DaoHang()%></td>
  462.     </tr>
  463.     <tr  class="hback"> 
  464.       <td colspan="2" align="left" class="xingmu" >新增行业信息 行业分类最多四级</td>
  465.     </tr>
  466.     <tr  class="hback"> 
  467.       <td width="171" align="right">上一级行业名称</td>
  468.       <td width="803">
  469.   <input name="VCText" id="VCText" readonly type="text" size="50" value="<%=request.QueryString("VCText")%>"/>
  470.   <input type="hidden" name="ParID" id="ParID" value="<%=View_Par_ID%>"/>
  471.   </td>
  472.     </tr>
  473.     <tr class="hback"> 
  474.       <td align="right">新的行业名称：</td>
  475.       <td width="803"><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> 
  476.       </td>
  477.     </tr>
  478.     <tr class="hback"> 
  479.       <td align="right">对应英文名：</td>
  480.       <td width="803"><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,''))"> 
  481.       </td>
  482.     </tr>
  483.     <tr  class="hback"> 
  484.       <td colspan="4">
  485.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  486.    <tr>
  487.   <td align="center">
  488. <input type="submit" <%call Say_Limit_Class("AddMode")%> name="SaveClass" id="SaveClass" value=" 保存 " onClick="if(vClassName.value==''){alert('必要的参数必须填写');vClassName.focus();return false}" /> &nbsp;
  489. <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  490.   </td>
  491.   <td width="50" align="right">
  492. <a href="VocationClass.asp?Act=View&VCID=<%=Get_PatID_TO_View(View_Par_ID)%>">返回父级</a>
  493.   </td>
  494.   <td width="50" align="right">
  495. <a href="#" onClick="javascript:history.back();">返回</a>
  496.   </td>
  497. </tr>  
  498.       </table>
  499.       </td>
  500.     </tr>
  501.   </form>
  502. </table>
  503. <%End Sub
  504. Sub EditClass()
  505. if not MF_Check_Pop_TF("ME026") then Err_Show 
  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="VocationClass.asp" >管理首页</a> >> <%=TopMenu_DaoHang()%></td>
  512.     </tr>
  513.     <tr  class="hback"> 
  514.       <td colspan="2" align="left" class="xingmu" >修改行业信息 行业分类最多四级</td>
  515.     </tr>
  516. <tr  class="hback"> 
  517.       <td width="168" align="right">变更上级类别<br><span class="tx">若不变更请重置</span></td>
  518.       <td width="806">
  519. <!---联动菜单开始--->
  520. <SELECT NAME="vclass1" ID="vclass1" onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');"  style="width:100px">
  521.          <OPTION></OPTION>
  522.     </SELECT>
  523. <SELECT NAME="vclass2" ID="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
  524.          <OPTION></OPTION>
  525.     </SELECT>
  526. <SELECT NAME="vclass3" ID="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
  527.         <OPTION></OPTION>
  528.     </SELECT>
  529. <SELECT NAME="vclass4" ID="vclass4" style="width:100px">
  530.      <OPTION></OPTION>
  531.     </SELECT>
  532. <!---联动菜单结束--->
  533.       </td>
  534.     </tr>
  535.     <tr  class="hback"> 
  536.       <td align="right">行业名称</td>
  537.       <td width="806">
  538.   <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>
  539.       <input type="hidden" name="VCID" id="VCID" value="<%=request.QueryString("VCID")%>">
  540.      <!--<input type="text" name="ParentID" id="ParentID" value="">-->
  541.   </td>
  542.     </tr>
  543.     <tr class="hback"> 
  544.       <td align="right">对应英文名：</td>
  545.       <td width="806"><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,''))"> 
  546.       </td>
  547.     </tr>
  548.     <tr  class="hback"> 
  549.       <td colspan="4">
  550.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  551.    <tr>
  552.   <td align="center">
  553. <input type="submit" <%call Say_Limit_Class("AddMode")%> name="SaveClass" id="SaveClass" value=" 保存 " onClick="if(vClassName.value==''){vClassName.focus();return false}" /> &nbsp;
  554. <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  555.   </td>      
  556.   <td width="50" align="right">
  557. <a href="VocationClass.asp?Act=View&VCID=<%=Get_PatID_TO_View(request.QueryString("VCID"))%>">返回父级</a>
  558.   </td>
  559.   <td width="50" align="right">
  560. <a href="#" onClick="javascript:history.back();">返回</a>
  561.   </td>
  562. </tr>  
  563.       </table>
  564.       </td>
  565.     </tr>
  566.   </form>
  567. </table>
  568. <%End Sub%>
  569. </body>
  570. <%if request.QueryString("Act")="Edit" then%>
  571. <script language="javascript">
  572. <!-- 
  573. //awen created
  574. //联动菜单---行业类别   最多4级   --start 
  575. //数据格式 ID，父级ID，名称
  576. var array=new Array();
  577. <%dim sql,rs,i
  578.   sql="select VCID,ParentID,vClassName from FS_ME_VocationClass where VCID<>"&request.QueryString("VCID")
  579.   set rs=User_Conn.execute(sql)
  580.   i=0
  581.   do while not rs.eof
  582. %>
  583. array[<%=i%>]=new Array("<%=rs("VCID")%>","<%=rs("ParentID")%>","<%=rs("vClassName")%>"); 
  584. <%
  585. rs.movenext
  586. i=i+1
  587. loop
  588. rs.close
  589. %>
  591. var liandong=new CLASS_LIANDONG_YAO(array)
  592. liandong.firstSelectChange("0","vclass1");
  593. liandong.subSelectChange("vclass1","vclass2");
  594. liandong.subSelectChange("vclass2","vclass3");
  595. liandong.subSelectChange("vclass3","vclass4");
  597. //---------------------------清除关联下拉框的内容
  598. function RemoveChildopt(obj,StrList)
  599. {
  600. /*
  601. if (StrList=='') 
  602. if (document.getElementById('ParentID')!=null) 
  603. {
  604. if (obj.value!='')
  605. {document.getElementById('ParentID').value=obj.value;return;}
  606. else
  607. {document.getElementById('ParentID').value=document.getElementById('vclass3').value;return;}
  608. }
  609. */
  610. var TmpArr = StrList.split(',');
  611. if(obj.selectedIndex<2)
  612. {
  613. for (var i=TmpArr.length-1 ; i>=0; i--)
  614. {
  615. //alert(TmpArr[i]);
  616. if (TmpArr[i]!='') 
  617. //清除下拉内容
  618. for (var j=document.getElementById(TmpArr[i]).options.length-1 ; j>=0 ; j--)
  619. document.getElementById(TmpArr[i]).options.remove(j);
  620. }
  621. }
  622. /* else
  623. //选择实际项目将值副给隐藏域，以便修改的时候存盘。
  624. {
  625. var Tmpstr = '';
  626. for (var i=TmpArr.length-1 ; i>=0; i--)
  627. {
  628. if (TmpArr[i]!='')
  629. { if (document.getElementById(TmpArr[i]).selectedIndex>1)
  630. Tmpstr += document.getElementById(TmpArr[i]).options[document.getElementById(TmpArr[i]).selectedIndex].value;
  631. }
  632. }
  633. //alert(document.VCForm.ParentID.value);
  634. if (Tmpstr=='')
  635. {
  636. //副给隐藏域
  637. if (document.getElementById('ParentID')!=null) document.all.ParentID.value=obj.value;
  638. }
  639. }
  640. */
  641. } 
  642. //end 
  643. -->
  644. </script>
  645. <%end if%>
  646. <%
  647. Set VClass_Rs=nothing
  648. User_Conn.close
  649. Set User_Conn=nothing
  650. %>
  652. </html>
  653. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->