📄 makeclassjs.asp

📁 .　缓存处理技术
💻 ASP
字号:
<!--#include file="sysconfig.asp"-->
<!--#include file="checkadmin.asp"-->
<%
Call CheckAdminFlag(TempAdminFlag,3)


Public ClassDeep,ClassStr
Dim BBRStrTemp,SearchClassStr





ClassDeep=0

Call RsNextClass(0,0)


SearchClassStr=SearchClassStr & "&lt;%" & Vbcrlf
SearchClassStr=SearchClassStr & "Dim BBR_CPath"& Vbcrlf
SearchClassStr=SearchClassStr & "BBR_CPath=Request.QueryString(""BBRPath"")" & Vbcrlf

SearchClassStr=SearchClassStr & "Dim S1,S2,S3,S4" & Vbcrlf
SearchClassStr=SearchClassStr & "S1=Request.QueryString(""s1"")" & Vbcrlf
SearchClassStr=SearchClassStr & "S2=Request.QueryString(""s2"")" & Vbcrlf
SearchClassStr=SearchClassStr & "S3=Request.QueryString(""s3"")" & Vbcrlf
SearchClassStr=SearchClassStr & "S4=Request.QueryString(""s4"")" & Vbcrlf

SearchClassStr=SearchClassStr & "if Len(BBR_CPath)>0 then" & Vbcrlf
SearchClassStr=SearchClassStr & "   Dim TPath" & Vbcrlf
SearchClassStr=SearchClassStr & "   Tpath=Split(BBR_CPath,""|"")" & Vbcrlf
SearchClassStr=SearchClassStr & "   k=Ubound(TPath)" & Vbcrlf
SearchClassStr=SearchClassStr & "   For i=0 to k" & Vbcrlf
SearchClassStr=SearchClassStr & "     if i=0 then s1=Tpath(0)" & Vbcrlf
SearchClassStr=SearchClassStr & "     if i=1 then s2=Tpath(1)" & Vbcrlf
SearchClassStr=SearchClassStr & "     if i=2 then s3=Tpath(2)" & Vbcrlf
SearchClassStr=SearchClassStr & "     if i=3 then s4=Tpath(3)" & Vbcrlf
SearchClassStr=SearchClassStr & "   Next" & Vbcrlf
SearchClassStr=SearchClassStr & "end if" & Vbcrlf

SearchClassStr=SearchClassStr & "if Not CnbbrisNum(s1) then s1=""0""" & Vbcrlf
SearchClassStr=SearchClassStr & "if Not CnbbrisNum(s2) then s2=""0""" & Vbcrlf
SearchClassStr=SearchClassStr & "if Not CnbbrisNum(s3) then s3=""0""" & Vbcrlf
SearchClassStr=SearchClassStr & "if Not CnbbrisNum(s4) then s4=""0""" & Vbcrlf

SearchClassStr=SearchClassStr & "'判断参数是否为数字" & Vbcrlf
SearchClassStr=SearchClassStr & "Function CnbbrIsNum(stri)" & Vbcrlf
SearchClassStr=SearchClassStr & "  CnbbrIsNum=True" & Vbcrlf
SearchClassStr=SearchClassStr & "  if stri="""" or isNull(stri) then" & Vbcrlf
SearchClassStr=SearchClassStr & "     CnbbrIsNum=False" & Vbcrlf
SearchClassStr=SearchClassStr & "  else" & Vbcrlf
SearchClassStr=SearchClassStr & "   For i=1 to len(stri)" & Vbcrlf
SearchClassStr=SearchClassStr & "    if isNumeric(mid(stri,i,1)) or mid(stri,i,1)=""."" then" & Vbcrlf 
SearchClassStr=SearchClassStr & "  	CnbbrIsNum=True" & Vbcrlf
SearchClassStr=SearchClassStr & "    else" & Vbcrlf
SearchClassStr=SearchClassStr & "	CnbbrIsNum=False" & Vbcrlf
SearchClassStr=SearchClassStr & "	Exit For" & Vbcrlf
SearchClassStr=SearchClassStr & "    end if" & Vbcrlf
SearchClassStr=SearchClassStr & "   Next" & Vbcrlf
SearchClassStr=SearchClassStr & "  end if" & Vbcrlf
SearchClassStr=SearchClassStr & "End Function" & Vbcrlf
SearchClassStr=SearchClassStr & "%&gt;" & Vbcrlf

SearchClassStr=SearchClassStr & "<BODY onload=""loadvalue();"">" & Vbcrlf
For i=1 to ClassDeep
  SearchClassStr=SearchClassStr & "<SELECT NAME=""s"& i &"""></SELECT>" & Vbcrlf
Next
SearchClassStr=SearchClassStr & "<SCRIPT LANGUAGE=""JavaScript"">" & Vbcrlf
SearchClassStr=SearchClassStr & "<!--" & Vbcrlf

SearchClassStr=SearchClassStr & "function loadvalue(){" & Vbcrlf
SearchClassStr=SearchClassStr & "  document.all.s1.value=&lt;%=s1%&gt;;" & Vbcrlf

For i=2 to ClassDeep
  SearchClassStr=SearchClassStr & "  &lt;% if clng(s"&i&")<>0 then %&gt;" & Vbcrlf
  SearchClassStr=SearchClassStr & "  wizz("&i-1&");" & Vbcrlf
  SearchClassStr=SearchClassStr & "  document.all.s"&i&".value=&lt;%=s"&i&"%&gt;;" & Vbcrlf
  SearchClassStr=SearchClassStr & "  &lt;% end if %&gt;"& Vbcrlf
Next
SearchClassStr=SearchClassStr & "}" & Vbcrlf


SearchClassStr=SearchClassStr & "selector = [ "
For i=1 to ClassDeep
  BBRStrTemp=BBRStrTemp & """s"& i &""""
  if Clng(i)<Clng(ClassDeep+1) then BBRStrTemp=BBRStrTemp & ","
Next
if Len(BBRStrTemp)>1 then BBRStrTemp=Left(BBRStrTemp,Len(BBRStrTemp)-1)
SearchClassStr=SearchClassStr & BBRStrTemp
SearchClassStr=SearchClassStr & " ]; "& Vbcrlf
SearchClassStr=SearchClassStr & "menu=[" & Vbcrlf
ClassStr=Left(ClassStr,Len(ClassStr)-3)
SearchClassStr=SearchClassStr & ClassStr & Vbcrlf
SearchClassStr=SearchClassStr & "];" & Vbcrlf

SearchClassStr=SearchClassStr & "function wizz(level) " & Vbcrlf
SearchClassStr=SearchClassStr & "{ " & Vbcrlf
SearchClassStr=SearchClassStr & "if( level == 0 ) " & Vbcrlf
SearchClassStr=SearchClassStr & "  a = menu;  " & Vbcrlf
SearchClassStr=SearchClassStr & "else  " & Vbcrlf
SearchClassStr=SearchClassStr & "{  " & Vbcrlf
SearchClassStr=SearchClassStr & " str = ""menu"";  " & Vbcrlf
SearchClassStr=SearchClassStr & " for( i=0; i<level; i++ )  " & Vbcrlf
SearchClassStr=SearchClassStr & "   str += ""["" + (document.all[selector[i]].selectedIndex * 3 + 2)  + ""]"";  " & Vbcrlf
SearchClassStr=SearchClassStr & " a = eval(str);  " & Vbcrlf
SearchClassStr=SearchClassStr & "}  " & Vbcrlf
SearchClassStr=SearchClassStr & "if( a == null ){" & Vbcrlf
SearchClassStr=SearchClassStr & " for( i=level; i<"&ClassDeep&"; i++ ){" & Vbcrlf
SearchClassStr=SearchClassStr & "   document.all[selector[i]].length=0;" & Vbcrlf
SearchClassStr=SearchClassStr & "   document.all[selector[i]].selectedIndex=0;" & Vbcrlf
SearchClassStr=SearchClassStr & " }" & Vbcrlf
SearchClassStr=SearchClassStr & " return;" & Vbcrlf
SearchClassStr=SearchClassStr & "}" & Vbcrlf

SearchClassStr=SearchClassStr & "s = document.all[selector[level]];  " & Vbcrlf
SearchClassStr=SearchClassStr & "i = s.length;  " & Vbcrlf
SearchClassStr=SearchClassStr & "while( i > 0 ) s.options[--i] = null;  " & Vbcrlf
SearchClassStr=SearchClassStr & "while( i < Math.floor(a.length/3) )  " & Vbcrlf
SearchClassStr=SearchClassStr & "  s.options[i] = Option( a[i*3], a[i++*3+1] );  " & Vbcrlf
SearchClassStr=SearchClassStr & "s.onchange = Function(""wizz("" + (level+1) + "")""); " & Vbcrlf

SearchClassStr=SearchClassStr & "wizz(level+1);  " & Vbcrlf
SearchClassStr=SearchClassStr & "}  " & Vbcrlf
SearchClassStr=SearchClassStr & "wizz(0);  " & Vbcrlf

SearchClassStr=SearchClassStr & "//-->" & Vbcrlf
SearchClassStr=SearchClassStr & "</SCRIPT>" & Vbcrlf
SearchClassStr=SearchClassStr & "</Body>" & Vbcrlf



Public DisplayClass
Function Display_AucClass(para1)




    DisplayClass="document.write('<table cellpadding=0 cellspacing=0 border=0 width=100% align=center>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<TR>');" & vbcrlf
    sql="select * from aucclass where upID=0 order by orderID"
    set rs=conn.execute(sql)
  if rs.eof or rs.bof then
    DisplayClass=DisplayClass & "document.write('<td vAlign=baseline align=middle>还没有商品分类</td>');" & vbcrlf
  else
    i=1
    Do while not rs.eof

    DisplayClass=DisplayClass & "document.write('<TD width=50% align=left>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<table cellpadding=0 cellspacing=0 width=100% border=0 align=center>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<tr height=30>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<TD width=12>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<img src=skins/"& SKINS_FOLDER &"/jt_Class.gif border=0>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('</TD>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<TD align=left>');" & vbcrlf
    k=interceptString(rs("classname"),30)
    DisplayClass=DisplayClass & "document.write('<a href=display_class.asp?BBRpath="& rs("classid") &"><b>" & k & "</b></a>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('</TD>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('</tr>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<tr>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<TD width=12></TD>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('<TD>');" & vbcrlf

 Dim Rs_Class
 sql="select * from aucclass where upID="&rs("classid")&" order by orderID"
 set rs_class=conn.execute(sql)
 if rs_class.bof or rs_class.eof then
    DisplayClass=DisplayClass & "document.write('还没有子分类');"
 else
    j=1
    Do while not rs_class.eof
    k=interceptString(rs_class("classname"),16)
    DisplayClass=DisplayClass &  "document.write('<a href=display_class.asp?BBRpath="&rs_class("upid")&"|"&rs_class("classid")&">" & k & "</a><font color=gray>|</font>');" & vbcrlf
    Rs_class.MoveNext
    j=j+1

    if j>para1 then Exit Do
    Loop
 end if

    DisplayClass=DisplayClass & "document.write('</TD>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('</tr>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('</table>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('</TD>');" & vbcrlf
    i=i+1
    rs.MoveNext

	DisplayClass=DisplayClass & "document.write('</TR>');" & vbcrlf
        DisplayClass=DisplayClass & "document.write('<TR>');" & vbcrlf

    Loop
   end if
    if Rs.RecordCount mod 2<>0 then 
       DisplayClass=DisplayClass & "document.write('<Td width=50% align=Center>&nbsp;</Td>');" & vbcrlf
    end if
    DisplayClass=DisplayClass & "document.write('</TR>');" & vbcrlf
    DisplayClass=DisplayClass & "document.write('</table>');" & vbcrlf

End Function

 Dim Fs,File,ClassJsStr,ClassJsStr2,ClassJsStr3

   set fs=Server.CreateObject("Scripting.FileSystemObject")
   file=server.mappath("../js/Search_Class.asp")
   set ClassJsStr=fs.opentextfile(file,2,true)
   ClassJsStr.write Replace(Replace(SearchClassStr,"&lt;","<"),"&gt;",">")

   set fs=server.createobject("scripting.filesystemobject")
   file=server.mappath("../js/Search_ShopClass.asp")
   set ClassJsStr=fs.opentextfile(file,2,true)
   Dim TempCStr
   TempCStr=Replace(Replace(SearchClassStr,"&lt;","<"),"&gt;",">")
   TempCStr=Replace(TempCStr,"Dim BBR_CPath","")
   TempCStr=Replace(TempCStr,"BBR_CPath=Request.QueryString(""BBRPath"")","")
   ClassJsStr.write TempCStr

   Call Display_AucClass(6)
   set fs=server.createobject("scripting.filesystemobject")
   file=server.mappath("../js/indexClass.js")
   set ClassJsStr2=fs.opentextfile(file,2,true)
   ClassJsStr2.write DisplayClass


   Call Display_AucClass(20)
   set fs=server.createobject("scripting.filesystemobject")
   file=server.mappath("../js/AucClass.js")
   set ClassJsStr3=fs.opentextfile(file,2,true)
   ClassJsStr3.write DisplayClass

   if Err Then
      Call AlertInfo("对不起，生成商品分类JS出错！","",0)
   else
      Call AlertInfo("商品分类JS已生成完成！","",0)
   end if
   


Function RsNextClass(UpClassID,CurrentDeep)







  Dim RsNextClassBBR
  Sql="Select ClassName,ClassId From AucClass Where UpID="& UpClassID &" order by orderid"
  Set RsNextClassBBR=Server.CreateObject("ADODB.ReCordSet")
  RsNextClassBBR.Open Sql,Conn,1,1
  If RsNextClassBBR.Eof then
     Exit Function
  Else
     if ClassDeep<=CurrentDeep then ClassDeep=CurrentDeep+1
     Dim k: k=1



     if CurrentDeep<ClassDeep then ClassStr=ClassStr & """ "",""0"",null," & Vbcrlf
     Do While Not RsNextClassBBR.Eof
	ClassStr=ClassStr &""""& RsNextClassBBR("ClassName") &""","""& RsNextClassBBR("ClassID") &""","
	Sql="Select * From AucClass Where UpID="& RsNextClassBBR("ClassID") &" order by orderid"
	Dim RsNextClassBBR2
        Set RsNextClassBBR2=Server.CreateObject("ADODB.ReCordSet")
  	RsNextClassBBR2.Open Sql,Conn,1,1
	if RsNextClassBBR2.Eof then
	   ClassStr=ClassStr & "null," & Vbcrlf
	else
	   ClassStr=ClassStr & Vbcrlf
	   ClassStr=ClassStr & "  [" & Vbcrlf
	   Call RsNextClass(RsNextClassBBR("ClassID"),CurrentDeep+1)
	   ClassStr=ClassStr & "  ]"
	   if k<RsNextClassBBR.RecordCount then ClassStr=ClassStr & "," & Vbcrlf
  	end if

     RsNextClassBBR.MoveNext
     Loop

  End if

  RsNextClassBBR.Close
  set RsNextClassBBR=Nothing
  RsNextClassBBR2.Close
  set RsNextClassBBR2=Nothing
End Function
%>
⌨️ 快捷键说明

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