<!--#include file="conn.asp"-->



<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');location.href='index.asp' ;</script>"
response.End
else
if request.cookies("sundxshop")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');location.href='index.asp' ;</script>"
response.End
end if
end if

%>
<%

dim action
action=trim(request.form("action"))
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from sdx_skin ",conn,1,3
rs("skin")=trim(request.form("skin"))
rs("bgclr1")=trim(request.form("bgclr1"))
rs("bgclr2")=trim(request.form("bgclr2"))
rs("bgclr3")=trim(request.form("bgclr3"))
rs("bgclr4")=trim(request.form("bgclr4"))
rs("bgclr5")=trim(request.form("bgclr5"))
rs("bgclr6")=trim(request.form("bgclr6"))
rs("bgclr7")=trim(request.form("bgclr7"))
rs("bgclr8")=trim(request.form("bgclr8"))
rs("bgclr9")=trim(request.form("bgclr9"))
rs("bgclr10")=trim(request.form("bgclr10"))
rs("bgclr11")=trim(request.form("bgclr11"))
rs("bgclr12")=trim(request.form("bgclr12"))
rs("bgclr13")=trim(request.form("bgclr13"))
rs("bgclr14")=trim(request.form("bgclr14"))
rs("bgclr15")=trim(request.form("bgclr15"))
rs("bgclr16")=trim(request.form("bgclr16"))
rs("bgclr17")=trim(request.form("bgclr17"))
rs("bgclr18")=trim(request.form("bgclr18"))
rs("bgclr19")=trim(request.form("bgclr19"))
rs("bgclr20")=trim(request.form("bgclr20"))
rs("bgimg1")=trim(request.form("bgimg1"))
rs("bgimg2")=trim(request.form("bgimg2"))
rs("bgimg3")=trim(request.form("bgimg3"))
rs("bgimg4")=trim(request.form("bgimg4"))
rs("bgimg5")=trim(request.form("bgimg5"))
rs("bgimg6")=trim(request.form("bgimg6"))
rs("bgimg7")=trim(request.form("bgimg7"))
rs("bgimg8")=trim(request.form("bgimg8"))
rs("bgimg9")=trim(request.form("bgimg9"))
rs("bgimg10")=trim(request.form("bgimg10"))
rs("webbg1")=trim(request.form("webbg1"))
rs("webbg2")=trim(request.form("webbg2"))
rs("webbg3")=trim(request.form("webbg3"))
rs("webbg4")=trim(request.form("webbg4"))
rs("webbg5")=trim(request.form("webbg5"))
rs("webbg6")=trim(request.form("webbg6"))
rs("webbg7")=trim(request.form("webbg7"))
rs("webbg8")=trim(request.form("webbg8"))
rs("webbg9")=trim(request.form("webbg9"))
rs("webbg10")=trim(request.form("webbg10"))
rs("webbg11")=trim(request.form("webbg11"))
rs("webbg12")=trim(request.form("webbg12"))
rs("webbg13")=trim(request.form("webbg13"))
rs("webbg14")=trim(request.form("webbg14"))
rs("webbg15")=trim(request.form("webbg15"))
rs("webbg16")=trim(request.form("webbg16"))
rs("bgline1")=trim(request.form("bgline1"))
rs("bgline2")=trim(request.form("bgline2"))
rs("bgline3")=trim(request.form("bgline3"))
rs("bgline4")=trim(request.form("bgline4"))
rs("bgline5")=trim(request.form("bgline5"))
rs("bgline6")=trim(request.form("bgline6"))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('网站资料修改成功！');history.go(-1);</script>"
end if%>
  <script language="javascript">
function ChangeColor(n){
 var clr = window.showModalDialog('Color.htm',"ColorWin",'dialogWidth:508px;dialogHeight:412px;status:no');
   if(clr==null)return;
   if(n==null)return;
   if(n==1){form1.bgclr1.value=clr;}
   if(n==2){form1.bgclr2.value=clr;}
   if(n==3){form1.bgclr3.value=clr;}
   if(n==4){form1.bgclr4.value=clr;}
   if(n==5){form1.bgclr5.value=clr;}
   if(n==6){form1.bgclr6.value=clr;}
   if(n==7){form1.bgclr7.value=clr;}
   if(n==8){form1.bgclr8.value=clr;}
   if(n==9){form1.bgclr9.value=clr;}
   if(n==10){form1.bgclr10.value=clr;}
   if(n==11){form1.bgclr11.value=clr;}
   if(n==12){form1.bgclr12.value=clr;}
   if(n==13){form1.bgclr13.value=clr;}
   if(n==14){form1.bgclr14.value=clr;}
   if(n==15){form1.bgclr15.value=clr;}
   if(n==16){form1.bgclr16.value=clr;}
   if(n==17){form1.bgclr17.value=clr;}
   if(n==18){form1.bgclr18.value=clr;}
   if(n==19){form1.bgclr19.value=clr;}
   if(n==20){form1.bgclr20.value=clr;}
 //变量名自己改myColor 等号后面的就是调用语句. 

 }
</script>

<%   
      server.scripttimeout=200
   
        Dim fso,folderpath, picnum,prospicnum1

        function show(folderpath)
        Dim objfolder,objsubfolder
        set objfolder=fso.getfolder(server.mappath(folderpath))
      

        picnum= objfolder.files.count-1
         
       
        '遍历所有子文件夹
       
        End function
 
  %> 
<title>网站设置</title>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" BGCOLOR="#39867B">
  <tr > 
    <td height="16"> <div align="center"><font color="#FFFFFF">
      
        网站信息设置</font></div></td>
  </tr>
  <tr  "> 
    <td height="107" valign="top" bgcolor="#FFFFFF"> <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" BGCOLOR="#999999">
        <form name="form1" method="post" action="admin_skin.asp?action=save">
          <%set rs=server.CreateObject("adodb.recordset")
            rs.Open "select * from sdx_skin",conn,1,1%>
         <tr bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站风格：</td>
          
          </tr>
         <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站风格色调：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/yulan/1.gif" width="100" height="60"><%= rs("skin") %> </td>
            
          
          </tr>
          <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
 <%dim skincount:for skincount=1 to 1 %>
        <%=skincount%> <input type="radio"  name="skin" value="<%=skincount%>" <%if rs("skin")=skincount then response.write" checked"%> disabled ><img src="../skin/skin<%=skincount%>/yulan/1.gif" border="0" width="100" height="60">                                                    
        <%next%>
               
   
	 
           </td></tr>


         <tr  bgcolor="#FFFFFF"> 
            <td height="0" COLSPAN="8"><DIV ALIGN="CENTER"><strong><font size="2">颜色配置</font></strong></DIV>

         </td>
          </tr>
         <tr bgcolor="#FFFFFF"> 
            <TD width="15%">大表格背景色[bgclr1]</TD>
            <td width="10%"><input class=shopinput1 NAME="bgclr1" TYPE="text" ID="bgclr1" SIZE="10" VALUE="<%=trim(rs("bgclr1"))%>"> 
              <A HREF="#" onClick="ChangeColor(1)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
             <TD width="15%">内表格背景色[bgclr2]</TD>
            <td width="10%"><input class=shopinput1 NAME="bgclr2" TYPE="text" ID="bgclr2" SIZE="10" VALUE="<%=trim(rs("bgclr2"))%>"> 
              <A HREF="#" onClick="ChangeColor(2)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
        
            <TD width="15%">左边栏表格背景色[bgclr3] </TD>
            <td width="10%"><input class=shopinput1 NAME="bgclr3" TYPE="text" ID="bgclr3" SIZE="10" VALUE="<%=trim(rs("bgclr3"))%>"> 
              <A HREF="#" onClick="ChangeColor(3)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
             <TD width="15%">右边栏色[bgclr4] </TD>
            <td width="10%"><input class=shopinput1 NAME="bgclr4" TYPE="text" ID="bgclr4" SIZE="10" VALUE="<%=trim(rs("bgclr4"))%>"> 
              <A HREF="#" onClick="ChangeColor(4)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
          </tr>
         
          <tr bgcolor="#FFFFFF"> 
            <TD>边框颜色[bgclr5] </TD>
            <td ><input class=shopinput1 NAME="bgclr5" TYPE="text" ID="bgclr5" SIZE="10" VALUE="<%=trim(rs("bgclr5"))%>"> 
              <A HREF="#" onClick="ChangeColor(5)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
            <TD>标题文字颜色[bgclr6] </TD>
            <td ><input class=shopinput1 NAME="bgclr6" TYPE="text" ID="bgclr6" SIZE="10" VALUE="<%=trim(rs("bgclr6"))%>"> 
              <A HREF="#" onClick="ChangeColor(6)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
        
            <TD>产品图片框颜色[bgclr7] </TD>
            <td ><input class=shopinput1 NAME="bgclr7" TYPE="text" ID="bgclr7" SIZE="10" VALUE="<%=trim(rs("bgclr7"))%>"> 
              <A HREF="#" onClick="ChangeColor(7)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
              <TD>大类文字颜色[bgclr8] </TD>
            <td ><input class=shopinput1 NAME="bgclr8" TYPE="text" ID="bgclr8" SIZE="10" VALUE="<%=trim(rs("bgclr8"))%>"> 
              <A HREF="#" onClick="ChangeColor(8)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
          </tr>
          
           <tr bgcolor="#FFFFFF"> 
            <TD>小类文字颜色[bgclr9] </TD>
            <td ><input class=shopinput1 NAME="bgclr9" TYPE="text" ID="bgclr9" SIZE="10" VALUE="<%=trim(rs("bgclr9"))%>"> 
              <A HREF="#" onClick="ChangeColor(9)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
             <TD>大类背景颜色[bgclr10] </TD>
            <td ><input class=shopinput1 NAME="bgclr10" TYPE="text" ID="bgclr10" SIZE="10" VALUE="<%=trim(rs("bgclr10"))%>"> 
              <A HREF="#" onClick="ChangeColor(10)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
               <TD>小类背景颜色[bgclr11] </TD>
            <td ><input class=shopinput1 NAME="bgclr11" TYPE="text" ID="bgclr11" SIZE="10" VALUE="<%=trim(rs("bgclr11"))%>"> 
              <A HREF="#" onClick="ChangeColor(11)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
             <TD>顶部文字颜色[bgclr12] </TD>
            <td ><input class=shopinput1 NAME="bgclr12" TYPE="text" ID="bgclr12" SIZE="10" VALUE="<%=trim(rs("bgclr12"))%>"> 
              <A HREF="#" onClick="ChangeColor(12)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
          </tr>
              <tr bgcolor="#FFFFFF"> 
            <TD>底部文字颜色[bgclr13] </TD>
            <td ><input class=shopinput1 NAME="bgclr13" TYPE="text" ID="bgclr13" SIZE="10" VALUE="<%=trim(rs("bgclr13"))%>"> 
              <A HREF="#" onClick="ChangeColor(13)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
             <TD>首页中部分类展示大类背景色[bgclr14] </TD>
            <td ><input class=shopinput1 NAME="bgclr14" TYPE="text" ID="bgclr14" SIZE="10" VALUE="<%=trim(rs("bgclr14"))%>"> 
              <A HREF="#" onClick="ChangeColor(14)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
               <TD>首页中部分类展示大类文字[bgclr15] </TD>
            <td ><input class=shopinput1 NAME="bgclr15" TYPE="text" ID="bgclr15" SIZE="10" VALUE="<%=trim(rs("bgclr15"))%>"> 
              <A HREF="#" onClick="ChangeColor(15)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
             <TD>首页中部分类展示小类背景色[bgclr16] </TD>
            <td ><input class=shopinput1 NAME="bgclr16" TYPE="text" ID="bgclr16" SIZE="10" VALUE="<%=trim(rs("bgclr16"))%>"> 
              <A HREF="#" onClick="ChangeColor(16)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
          </tr>
           <tr bgcolor="#FFFFFF"> 
            <TD>首页中部分类展示小类文字色[bgclr17] </TD>
            <td ><input class=shopinput1 NAME="bgclr17" TYPE="text" ID="bgclr17" SIZE="10" VALUE="<%=trim(rs("bgclr17"))%>"> 
              <A HREF="#" onClick="ChangeColor(17)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
             <TD>右边荐新特栏目文字[bgclr18] </TD>
            <td ><input class=shopinput1 NAME="bgclr18" TYPE="text" ID="bgclr18" SIZE="10" VALUE="<%=trim(rs("bgclr18"))%>"> 
              <A HREF="#" onClick="ChangeColor(18)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
               <TD>分类导航边框颜色[bgclr19] </TD>
            <td ><input class=shopinput1 NAME="bgclr19" TYPE="text" ID="bgclr19" SIZE="10" VALUE="<%=trim(rs("bgclr19"))%>"> 
              <A HREF="#" onClick="ChangeColor(19)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
             <TD>预备[bgclr20] </TD>
            <td ><input class=shopinput1 NAME="bgclr20" TYPE="text" ID="bgclr16" SIZE="10" VALUE="<%=trim(rs("bgclr20"))%>"> 
              <A HREF="#" onClick="ChangeColor(20)"><IMG SRC=../images/cgcolor.gif ALT="调色板" BORDER="0" WIDTH="9" HEIGHT="10"></A></td>
          </tr>
            <tr  bgcolor="#FFFFFF"> 
            <td height="0" COLSPAN="8"><DIV ALIGN="CENTER"><strong><font size="2">线条粗细</font></strong></DIV>

         </td>
          </tr>
           <tr bgcolor="#FFFFFF"> 
            <TD>产品图片框线条一[bgline1] </TD>
            <td ><input class=shopinput1 NAME="bgline1" TYPE="text" ID="bgline1" SIZE="10" VALUE="<%=trim(rs("bgline1"))%>"> 
              </td><TD>分类导航边框线条二[bgline2] </TD>
            <td ><input class=shopinput1 NAME="bgline2" TYPE="text" ID="bgline2" SIZE="10" VALUE="<%=trim(rs("bgline2"))%>"> 
              </td>
         
            <TD>线条三[bgline3] </TD>
            <td ><input class=shopinput1 NAME="bglinne3" TYPE="text" ID="bglinne3" SIZE="10" VALUE="<%=trim(rs("bglinne3"))%>"> 
              </td><TD>线条四[bgline4]  </TD>
            <td ><input class=shopinput1 NAME="bgline4" TYPE="text" ID="bgline4" SIZE="10" VALUE="<%=trim(rs("bgline4"))%>"> 
              </td>
          </tr>
         
            <tr bgcolor="#FFFFFF"> 
            <TD>线条五[bgline5]  </TD>
            <td ><input class=shopinput1 NAME="bgline5" TYPE="text" ID="bgline5" SIZE="10" VALUE="<%=trim(rs("bgline5"))%>"> 
              </td>
             <TD>线条六[bgline6]  </TD>
            <td ><input class=shopinput1 NAME="bgline6" TYPE="text" ID="bgline6" SIZE="10" VALUE="<%=trim(rs("bgline6"))%>"> 
              </td><TD></TD><TD> </TD><TD> </TD><TD> </TD>
          </tr>
        
         
         <tr  bgcolor="#FFFFFF"> 
            <td height="0" COLSPAN="8"><DIV ALIGN="left"><font size="2"><strong>背景图片设置</strong></font></DIV></td>
          </tr>
           <tr bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站背景图片[webbg1] </td>
            
          </tr>
 <%   
 
     folderpath="../skin/skin1/bg/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
            <tr  bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站背景图片：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/bg/mnu<%= rs("webbg1")%>_bg.png " width="22" height="40">(<%=trim(rs("webbg1"))%>) </td>
            
          
          </tr>
          <tr   bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
 <%dim bgcount:for bgcount=1 to int(picnum)%>
        <input type="radio" name="webbg1" value="<%=bgcount%>" <%if rs("webbg1")=bgcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/bg/mnu<%=bgcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
               
   
	 
           </td></tr>
          
       <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">导航背景图片背景[webbg2] </td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/daohang/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
         <tr  bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前导航背景图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/daohang/mnu<% = rs("webbg2") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg2"))%>)  </td>
            
          
          </tr>
           
         <tr  bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
              <%
  picnum=picnum+1
 dim daohangcount:for daohangcount=1 to int(picnum)%>
        <input type="radio" name="webbg2" value="<%=daohangcount%>" <%if rs("webbg2")=daohangcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/daohang/mnu<%=daohangcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                
   
	 
           </td></tr>
           
      
        <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站滚动拦图片背景[webbg3] </td>
          
          </tr>
          

         <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站滚动拦图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/top/mnu<% = rs("webbg3") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg3"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">


</td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/top/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>

         <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
                 <%dim topcount:for topcount=1 to int(picnum)%>
        <input type="radio" name="webbg3" value="<%=topcount%>" <%if rs("webbg3")=topcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/top/mnu<%=topcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                
   
	 
           </td></tr>
         <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站推荐栏图片[webbg4] </td>
          
          </tr>
         
         <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站推荐栏图片：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/recommend/mnu<% = rs("webbg4") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg4"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">
<%   
 
     folderpath="../skin/skin1/recommend/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %> 
  </td>
          
          </tr>
         
    

           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%dim recommendcount:for recommendcount=1 to int(picnum)%>
        <input type="radio" name="webbg4" value="<%=recommendcount%>" <%if rs("webbg4")=recommendcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/recommend/mnu<%=recommendcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>

      <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站新品栏图片背景[webbg5] </td>
          
          </tr>
          <%   
      picnum=picnum+1
     folderpath="../skin/skin1/newarrivals/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
         <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站新品栏图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/newarrivals/mnu<% = rs("webbg5") %>_bg.png" width="22" height="40"> (<%=trim(rs("webbg5"))%>) </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
   picnum=picnum+1
   dim newcount:for newcount=1 to int(picnum)/3%>
        <input type="radio" name="webbg5" value="<%=newcount%>" <%if rs("webbg5")=newcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/newarrivals/mnu<%=newcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站左边分类图片背景[webbg6] </td>
          
          </tr>
          
         <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站左边分类图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/classmenu/mnu<% = rs("webbg6") %>_bg.png" width="22" height="40"> (<%=trim(rs("webbg6"))%>) </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/classmenu/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%dim classmenucount:for classmenucount=1 to int(picnum)%>
        <input type="radio" name="webbg6" value="<%=classmenucount%>" <%if rs("webbg6")=classmenucount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/classmenu/mnu<%=classmenucount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站热门产品图片背景[webbg7] </td>
          
          </tr>
          
         <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站热门图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/hot/mnu<% = rs("webbg7") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg7"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
        <%   
 
     folderpath="../skin/skin1/hot/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
         picnum=picnum+1
          dim hotcount:for hotcount=1 to int(picnum)/3%>
        <input type="radio" name="webbg7" value="<%=hotcount%>" <%if rs("webbg7")=hotcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/hot/mnu<%=hotcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
         <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站热销图片背景[webbg8] </td>
          
          </tr>
         
         <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站热销图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/sold/mnu<% = rs("webbg8") %>_bg.png" width="22" height="40"> (<%=trim(rs("webbg8"))%>) </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/sold/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim soldcount:for soldcount=1 to int(picnum)/3%>
        <input type="radio" name="webbg8" value="<%=soldcount%>" <%if rs("webbg8")=soldcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/sold/mnu<%=soldcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
            <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站公告图片背景[webbg9] </td>
          
          </tr>
         <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站公告图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/notice/mnu<% = rs("webbg9") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg9"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/notice/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim noticecount:for noticecount=1 to int(picnum)%>
        <input type="radio" name="webbg9" value="<%=noticecount%>" <%if rs("webbg9")=noticecount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/notice/mnu<%=noticecount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
            <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站新闻图片背景[webbg10] </td>
          
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站新闻图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/news/mnu<% = rs("webbg10") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg10"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/news/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim newscount:for newscount=1 to int(picnum)/3%>
        <input type="radio" name="webbg10" value="<%=newscount%>" <%if rs("webbg10")=newscount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/news/mnu<%=newscount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>

           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">网站顶部菜单图片[webbg11] </td>
          
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前网站顶部菜单图片：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/topmenu/mnu<% = rs("webbg11") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg11"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/topmenu/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim topmenucount:for topmenucount=1 to int(picnum)/6 %>
        <input type="radio" name="webbg11" value="<%=topmenucount%>" <%if rs("webbg11")=topmenucount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/topmenu/mnu<%=topmenucount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
 <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">登陆按钮图片[webbg12] </td>
          
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前登陆按钮图片：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/login/mnu<% = rs("webbg12") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg12"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/login/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim logincount:for logincount=1 to int(picnum)/3 %>
        <input type="radio" name="webbg12" value="<%=logincount%>" <%if rs("webbg12")=logincount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/login/mnu<%=logincount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
<tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">低部导航图片背景[webbg13] </td>
          
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前低部导航图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/footmenu/mnu<% = rs("webbg13") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg13"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/footmenu/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim footmenucount:for footmenucount=1 to int(picnum) %>
        <input type="radio" name="webbg13" value="<%=footmenucount%>" <%if rs("webbg13")=footmenucount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/footmenu/mnu<%=footmenucount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
         
<tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">低部图片背景[webbg14] </td>
          
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前低部图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/foot/mnu<% = rs("webbg14") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg14"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/foot/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim footcount:for footcount=1 to int(picnum) %>
        <input type="radio" name="webbg14" value="<%=footcount%>" <%if rs("webbg14")=footcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/foot/mnu<%=footcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
<tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">顶部图片背景[webbg15] </td>
          
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">当前顶部图片背景：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/topt/mnu<% = rs("webbg15") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg15"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/topt/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim toptcount:for toptcount=1 to int(picnum) %>
        <input type="radio" name="webbg15" value="<%=toptcount%>" <%if rs("webbg15")=toptcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/topt/mnu<%=toptcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
<tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8">购物车按钮图片[webbg16] </td>
          
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="40" COLSPAN="8" vALIGN="top">购物车按钮图片：&nbsp;&nbsp;<img border="0" src="../skin/skin<%= rs("skin") %>/cart/mnu<% = rs("webbg16") %>_bg.png" width="22" height="40">(<%=trim(rs("webbg16"))%>)  </td>
            
          
          </tr>
           <tr  bgcolor="#FFFFFF"> 
            <td height="20" COLSPAN="8"></td>
          
          </tr>
 <%   
 
     folderpath="../skin/skin1/cart/"  '根目录
        set fso=server.createobject("Scripting.FileSystemObject")
        call show(folderpath)
       
        set fso=nothing
 %>
           <tr bgcolor="#FFFFFF"> 
                <td COLSPAN="8" height="20">
               <%
 picnum=picnum+1
dim cartcount:for cartcount=1 to int(picnum)/2 %>
        <input type="radio" name="webbg16" value="<%=cartcount%>" <%if rs("webbg16")=cartcount then response.write" checked"%>><img src="../skin/skin<%= rs("skin") %>/cart/mnu<%=cartcount%>_bg.png" border="0" width="22" height="40">                                                      
        <%next%>
                

           </td></tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="22" colspan="8"> <div align="center"> 
                <input class=shopinput1 type="submit" name="Submit" value="提 交">
                <input class=shopinput1 name="action" type="hidden" value="save">
                
              </div></td>
          </tr>
        </form>
      </table>
      <%rs.Close
          set rs=nothing
		  conn.close
		  set conn = Nothing %>
    </td>
  </tr>
</table>
<script>
	function regInput(obj, reg, inputStr)
	{
		var docSel	= document.selection.createRange()
		if (docSel.parentElement().tagName != "INPUT")	return false
		oSel = docSel.duplicate()
		oSel.text = ""
		var srcRange	= obj.createTextRange()
		oSel.setEndPoint("StartToStart", srcRange)
		var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
		return reg.test(str)
	}
</script>

<!--#include file="footer.asp"--> 
</body>
</html>

