📄 wm.cre_cls.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
      xTemp = xTemp & "<option value=''>选择分类</option>"
	  xSort = ""
      Set Rs = Conn.Execute("Select * from WM_CompanySort Order By WM_ClassID,WM_Taxis")
      If Rs.EOF Then
        xTemp = xTemp & "<option value=''>还没有任何分类</option>"
      Else
	    xI = 1
        Do While Not Rs.EOF
		xSort = xSort & "Arr"&xTimer&"["&xI-1&"] = new Array("""
        If Rs("WM_Child") > 0 Then xSort = xSort & "+ " Else xSort = xSort & "　"
		xSort = xSort & Rs("WM_Name")&""","&Rs("WM_ID")&","&Rs("WM_ParentID")&","&Rs("WM_Child")&","&Rs("WM_Depth")&");" & vbCrLf
		MaxID = xI
		xI = xI + 1
		If Rs("WM_Key") = 0 Then xTemp = xTemp & "<option value='" & Rs("WM_ID") & "'>" Else xTemp = xTemp & "<optgroup label='"
        If Rs("WM_Depth") > 0 Then
          For i = 1 To Rs("WM_Depth")
            xTemp = xTemp & "　"
          Next
        End If
        If Rs("WM_Child") > 0 Then xTemp = xTemp & "+ " Else xTemp = xTemp & "- "
        xTemp = xTemp & Rs("WM_Name")
		If Rs("WM_Key") = 0 Then xTemp = xTemp & "</option>" Else xTemp = xTemp & "'>"
        Rs.MoveNext
        Loop
      End If
	  Rs.Close
      xTemp = xTemp & "</select>"
	  Set Rs = Nothing
	  xTemp = WRMPS.ToJs(xTemp)
      xSort = SortJs(xSort,MaxID,xTimer,"ClassID")
      Call WRMPS.FsoBegin()
	  Call WRMPS.CreateFile("../Inc/Js/CompanySelect.Js",xTemp)
      Call WRMPS.CreateFile("../Inc/Js/CompanyPost.Js",xSort)
	  Call WRMPS.FsoEnd()
End Sub

'优惠券分类
Sub CouponSort()
      xTimer = int(rnd*9998)+1000
      xTemp = "<select name='ClassID' style='font: 12px Tahoma, Verdana;font-weight: normal'>"
      xTemp = xTemp & "<option value=''>选择分类</option>"
	  xSort = ""
      Set Rs = Conn.Execute("Select * from WM_CouponSort Order By WM_ClassID,WM_Taxis")
      If Rs.EOF Then
        xTemp = xTemp & "<option value=''>还没有任何分类</option>"
      Else
	    xI = 1
        Do While Not Rs.EOF
		xSort = xSort & "Arr"&xTimer&"["&xI-1&"] = new Array("""
        If Rs("WM_Child") > 0 Then xSort = xSort & "+ " Else xSort = xSort & "　"
		xSort = xSort & Rs("WM_Name")&""","&Rs("WM_ID")&","&Rs("WM_ParentID")&","&Rs("WM_Child")&","&Rs("WM_Depth")&");" & vbCrLf
		MaxID = xI
		xI = xI + 1
		If Rs("WM_Key") = 0 Then xTemp = xTemp & "<option value='" & Rs("WM_ID") & "'>" Else xTemp = xTemp & "<optgroup label='"
        If Rs("WM_Depth") > 0 Then
          For i = 1 To Rs("WM_Depth")
            xTemp = xTemp & "　"
          Next
        End If
        If Rs("WM_Child") > 0 Then xTemp = xTemp & "+ " Else xTemp = xTemp & "- "
        xTemp = xTemp & Rs("WM_Name")
		If Rs("WM_Key") = 0 Then xTemp = xTemp & "</option>" Else xTemp = xTemp & "'>"
        Rs.MoveNext
        Loop
      End If
	  Rs.Close
      xTemp = xTemp & "</select>"
	  Set Rs = Nothing
	  xTemp = WRMPS.ToJs(xTemp)
      xSort = SortJs(xSort,MaxID,xTimer,"ClassID")
      Call WRMPS.FsoBegin()
	  Call WRMPS.CreateFile("../Inc/Js/CouponSelect.Js",xTemp)
      Call WRMPS.CreateFile("../Inc/Js/CouponPost.Js",xSort)
	  Call WRMPS.FsoEnd()
End Sub

'信息分类
Sub ClassSort()
      xTimer = int(rnd*9998)+1000
      xTemp = "<select name='ClassID' style='font: 12px Tahoma, Verdana;font-weight: normal'>"
      xTemp = xTemp & "<option value=''>选择分类</option>"
	  xSort = ""
      Set Rs = Conn.Execute("Select * from WM_ClassSort Order By WM_ClassID,WM_Taxis")
      If Rs.EOF Then
        xTemp = xTemp & "<option value=''>还没有任何分类</option>"
      Else
	    xI = 1
        Do While Not Rs.EOF
		xSort = xSort & "Arr"&xTimer&"["&xI-1&"] = new Array("""
        If Rs("WM_Child") > 0 Then xSort = xSort & "+ " Else xSort = xSort & "　"
		xSort = xSort & Rs("WM_Name")&""","&Rs("WM_ID")&","&Rs("WM_ParentID")&","&Rs("WM_Child")&","&Rs("WM_Depth")&");" & vbCrLf
		MaxID = xI
		xI = xI + 1
		If Rs("WM_Key") = 0 Then xTemp = xTemp & "<option value='" & Rs("WM_ID") & "'>" Else xTemp = xTemp & "<optgroup label='"
        If Rs("WM_Depth") > 0 Then
          For i = 1 To Rs("WM_Depth")
            xTemp = xTemp & "　"
          Next
        End If
        If Rs("WM_Child") > 0 Then xTemp = xTemp & "+ " Else xTemp = xTemp & "- "
        xTemp = xTemp & Rs("WM_Name")
		If Rs("WM_Key") = 0 Then xTemp = xTemp & "</option>" Else xTemp = xTemp & "'>"
        Rs.MoveNext
        Loop
      End If
	  Rs.Close
      xTemp = xTemp & "</select>"
	  Set Rs = Nothing
	  xTemp = WRMPS.ToJs(xTemp)
      xSort = SortJs(xSort,MaxID,xTimer,"ClassID")
      Call WRMPS.FsoBegin()
	  Call WRMPS.CreateFile("../Inc/Js/ClassSelect.Js",xTemp)
      Call WRMPS.CreateFile("../Inc/Js/ClassPost.Js",xSort)
	  Call WRMPS.FsoEnd()
End Sub

'生成自定义页面
Sub RehPage(id)
  If id = 0 Then
    xSQL = "Select WM_Path,WM_Content From WM_Page"
  Else
    xSQL = "Select WM_Path,WM_Content From WM_Page Where WM_ID = " & id & ""
  End If
  Set Rs = Conn.Execute(xSQL)
  Call WRMPS.FsoBegin()
  Do While Not Rs.Eof
    xPath = "":xTemp = "":xDir = ""
	xPath = Rs(0)
	xTemp = Rs(1)
    If Instr(xPath,"/") > 0 Then
	  For i = 0 To UBound(Split(xPath,"/"))-1
        If xDir = "" Then
          xDir = Split(xPath,"/")(i)
        Else
          xDir = xDir&"/"&Split(xPath,"/")(i)
        End If
	  Next
	End If
	xTemp = WRTemp.SiteTempLabel(xTemp)
	xTemp = WRTemp.SiteLabel(xTemp)
	Call WRMPS.CreFolder(WR_Setting(3)&xDir)
	Call WRMPS.CreateFile(WR_Setting(3)&xPath,xTemp)
  Rs.MoveNext
  Loop
  Call WRMPS.FsoEnd()
  Rs.Close
  Set Rs = Nothing
End Sub

Function SortJs(str,id,Tim,SelectName)
	  SortJs = "var Cou"&Tim&";"& vbCrlf & "Arr"&Tim&" = new Array();" & vbCrlf & str & "Cou"&Tim&"="&id-1&";" & vbCrlf
      SortJs = SortJs & "document.write(""<SELECT size=10 style='width:100%' name="&SelectName&" onChange=\""Change"&Tim&"(document.myform."&SelectName&".options[document.myform."&SelectName&".selectedIndex].value)\"">"")" & vbCrlf
      SortJs = SortJs & "document.write(""</SELECT><div id=class"&Tim&"></div>"")" & vbCrlf
      SortJs = SortJs & "function Change"&Tim&"(id"&Tim&"){" & vbCrlf
      SortJs = SortJs & " var i,ctd"&Tim&",cn"&Tim&",cttd"&Tim&",cctd"&Tim&",cpath"&Tim&",cpathID"&Tim&",n,cdepch"&Tim&";" & vbCrlf
      SortJs = SortJs & " if(id"&Tim&"==0){" & vbCrlf
      SortJs = SortJs & "   cn"&Tim&" = """"; " & vbCrlf
      SortJs = SortJs & "   ctd"&Tim&" = 0; " & vbCrlf
      SortJs = SortJs & "   cttd"&Tim&" = 0; " & vbCrlf
      SortJs = SortJs & "   cctd"&Tim&" = 1;" & vbCrlf
      SortJs = SortJs & "   cdepch"&Tim&" = 0;" & vbCrlf
      SortJs = SortJs & " }else{" & vbCrlf
      SortJs = SortJs & "   for (i=0;i <= Cou"&Tim&"; i++){" & vbCrlf
      SortJs = SortJs & "     if(Arr"&Tim&"[i][1] == id"&Tim&"){" & vbCrlf
      SortJs = SortJs & "       cn"&Tim&" = Arr"&Tim&"[i][0]; " & vbCrlf
      SortJs = SortJs & "       ctd"&Tim&" = Arr"&Tim&"[i][1]; " & vbCrlf
      SortJs = SortJs & "	   cttd"&Tim&" = Arr"&Tim&"[i][2]; " & vbCrlf
      SortJs = SortJs & "	   cctd"&Tim&" = Arr"&Tim&"[i][3];" & vbCrlf
      SortJs = SortJs & "	   cdepch"&Tim&" = Arr"&Tim&"[i][4];" & vbCrlf
      SortJs = SortJs & "     }" & vbCrlf
      SortJs = SortJs & "   }" & vbCrlf
      SortJs = SortJs & " }" & vbCrlf
      SortJs = SortJs & " var cpathID"&Tim&" = cttd"&Tim&";" & vbCrlf
      SortJs = SortJs & " cpath"&Tim&" = ""<a onclick='Change"&Tim&"(""+ctd"&Tim&"+"")'>""+cn"&Tim&"+""</a>"";" & vbCrlf
      SortJs = SortJs & " for (n=0;n<=cdepch"&Tim&";n++){" & vbCrlf
      SortJs = SortJs & "   for (i=0;i <= Cou"&Tim&"; i++){" & vbCrlf
      SortJs = SortJs & "     if(Arr"&Tim&"[i][1] == cpathID"&Tim&"){" & vbCrlf
      SortJs = SortJs & "       cpathID"&Tim&" = Arr"&Tim&"[i][2];" & vbCrlf
      SortJs = SortJs & "	   cpath"&Tim&" = ""<a href=# onclick='Change"&Tim&"(""+Arr"&Tim&"[i][1]+"")'>""+Arr"&Tim&"[i][0]+""</a>"" + "" >> "" + cpath"&Tim&"; " & vbCrlf
      SortJs = SortJs & "     }" & vbCrlf
      SortJs = SortJs & "   }" & vbCrlf
      SortJs = SortJs & " }" & vbCrlf
      SortJs = SortJs & " if(cpath"&Tim&"!=""""){" & vbCrlf
      SortJs = SortJs & " class"&Tim&".innerHTML = ""<a href=# onclick='Change"&Tim&"(0)'>顶级分类</a> >> "" + cpath"&Tim&";" & vbCrlf
      SortJs = SortJs & " }else{" & vbCrlf
      SortJs = SortJs & " class"&Tim&".innerHTML = ""<a href=# onclick='Change"&Tim&"(0)'>顶级分类</a>"";" & vbCrlf
      SortJs = SortJs & " }" & vbCrlf
      SortJs = SortJs & " if(cctd"&Tim&"!=0){" & vbCrlf
      SortJs = SortJs & "   document.myform."&SelectName&".length = 0;" & vbCrlf
      SortJs = SortJs & "   if(id"&Tim&"!=0)document.myform."&SelectName&".options[document.myform."&SelectName&".length] = new Option(""------- 返回上一层 -------"", cttd"&Tim&");" & vbCrlf
      SortJs = SortJs & "   for (i=0;i <= Cou"&Tim&"; i++){" & vbCrlf
      SortJs = SortJs & "     if (Arr"&Tim&"[i][2] == id"&Tim&"){" & vbCrlf
      SortJs = SortJs & "       document.myform."&SelectName&".options[document.myform."&SelectName&".length] = new Option(Arr"&Tim&"[i][0], Arr"&Tim&"[i][1]);" & vbCrlf
      SortJs = SortJs & "     }" & vbCrlf
      SortJs = SortJs & "   }" & vbCrlf
      SortJs = SortJs & " }" & vbCrlf
      SortJs = SortJs & "}" & vbCrlf
      SortJs = SortJs & "Change"&Tim&"(0)" & vbCrlf
End Function
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -