javastr="" 
<%'打开数据库打开数据表
dim conn   
dim connstr
on error resume next
connstr="DBQ="+server.mappath("../riwoniang/moludemei.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
conn.open connstr%>

javastr=javastr+"<table border=0 cellpadding=0 cellspacing=0 align=center>"
<%sql="select * from shop_gg where ggid=16"
set rs=conn.execute(sql)
b=split(rs("1602"),".")
a=split(rs("1602url"),",")
if rs("1602")="" then
elseif b(1)="swf" then%>
javastr=javastr+"<tr><td><embed src=\"http://it532.cn/bigqd/<%=rs("1602")%>\" quality=\"high\" pluginspage=\"http://www.macromedia.com/go/getflashplayer\" type=\"application/x-shockwave-flash\" width=\"<%=a(0)%>\" height=\"<%=a(1)%>\"></embed></td></tr>"
<%elseif b(1)="jpg" or b(1)="gif" then%>
javastr=javastr+"<tr><td><a href=\"<%=a(2)%>\" target=\"_blank\"><img src=\"http://it532.cn/bigqd/<%=rs("1602")%>\" width=\"<%=a(0)%>\" height=\"<%=a(1)%>\" border=0></a></td></tr>"
<%end if%>
javastr=javastr+"</table>"

<%dim action
action=request.QueryString("action")
select case action
case "left"%>

javastr=javastr+"<table width=99% border=0 cellspacing=2 cellpadding=0>"
javastr=javastr+"<tr><td align=center><!--跳转菜单开始 -->"
javastr=javastr+"<select name=\"select\" onChange=\"var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}\" class=\"selectleft\">"
<%sql="select * from shop_anclass order by anclassidorder"
set rs=conn.execute(sql)
while not rs.eof%>
javastr=javastr+"<option value=\"index.asp?anclassid=<%=rs("anclassid")%>\" <%if rs("anclassid")=cint(request("anclassid")) then%>selected<%end if%>><%=rs("anclass")%></option>"
<%rs.movenext
wend
rs.close%>
javastr=javastr+"</select><!--跳转菜单结束 -->"
javastr=javastr+"</td></tr>"
javastr=javastr+"<tr><td height=5></td></tr>"
<%dim selanclassid
selanclassid=request("anclassid")
set rs=server.createobject("adodb.recordset")
if selanclassid<>"" then
rs.open"select * from shop_anclass where anclassid="&selanclassid&"",conn,1,1
else
rs.open"select * from shop_anclass order by anclassidorder",conn,1,1
end if
while not rs.eof%>
javastr=javastr+"<tr>"
javastr=javastr+"<td class=centermenu><a class=center href=\"index.asp?anclassid=<%=rs("anclassid")%>\" target=\"_top\"><%=rs("anclass")%></a></td></tr>"
javastr=javastr+"<tr><td valign=top><!--二级分类开始 -->"
<%if selanclassid<>"" then
set rs1=server.createobject("adodb.recordset")
rs1.open"select * from shop_nclass where anclassid="&rs("anclassid"),conn,1,1%>
javastr=javastr+"<table width=\"100%\" border=0 cellspacing=0 cellpadding=0>"
<%while not rs1.eof%>
javastr=javastr+"<tr>"
javastr=javastr+"<td class=centersmallmenu><img src=\"images/nofollow.gif\"> <a href=\"index.asp?anclassid=<%=rs1("anclassid")%>&nclassid=<%=rs1("nclassid")%>\" class=topA><%=rs1("nclass")%></a></td>"
<%rs1.movenext%>
javastr=javastr+"</tr>"
<%wend%>
javastr=javastr+"</table>"
<%rs1.close
end if%><!--二级分类结束 -->
javastr=javastr+"</td></tr>"
<%rs.movenext
wend
rs.close%>
javastr=javastr+"</table>"

<%case "right"%>
javastr=javastr+"<table width=99% border=0 cellspacing=2 cellpadding=0>"
javastr=javastr+"<tr><td align=center><!--跳转菜单开始 -->"
javastr=javastr+"<select name=select onChange=\"var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}\" class=selectleft>"
<%set rs=server.createobject("adodb.recordset")
rs.open"select * from shop_nclass order by nclassidorder",conn,1,1
while not rs.eof%>
javastr=javastr+"<option value=\"index.asp?anclassid=<%=rs("anclassid")%>&nclassid=<%=rs("nclassid")%>\" <%if rs("nclassid")=cint(request("nclassid")) then%>selected<%end if%>><%=rs("nclass")%></option>"
<%rs.movenext
wend
rs.close%>
javastr=javastr+"</select><!--跳转菜单结束 -->"
javastr=javastr+"</td></tr>"
javastr=javastr+"<tr><td height=5></td></tr>"
<%dim selnclassid
selnclassid=request("nclassid")
set rs=server.createobject("adodb.recordset")
if selnclassid<>"" then
rs.open"select * from shop_nclass where nclassid="&selnclassid&"",conn,1,1
else
rs.open"select * from shop_nclass where anclassid=80 order by nclassidorder",conn,1,1
end if
while not rs.eof%>
javastr=javastr+"<tr>"
javastr=javastr+"<td class=centermenu><a class=center href=\"index.asp?anclassid=<%=rs("anclassid")%>&nclassid=<%=rs("nclassid")%>\" target=\"_top\"><%=rs("nclass")%></a></td></tr>"
javastr=javastr+"<tr><td valign=top><!--三级分类开始 -->"
<%if selnclassid<>"" then
set rs1=server.createobject("adodb.recordset")
rs1.open"select * from pinpai where nclassid="&rs("nclassid"),conn,1,1%>
javastr=javastr+"<table width=100% border=0 cellspacing=0 cellpadding=0>"
<%while not rs1.eof%>
javastr=javastr+"<tr>"
<%if not rs1.eof then%>
javastr=javastr+"<td class=centersmallmenu><a href=\"index.asp?nclassid=<%=rs1("nclassid")%>&ppid=<%=rs1("ppid")%>\" class=topA><%=rs1("pingpainame")%></a></td>"
<%rs1.movenext
end if
if not rs1.eof then%>
javastr=javastr+"<td class=centersmallmenu><a href=\"index.asp?nclassid=<%=rs1("nclassid")%>&ppid=<%=rs1("ppid")%>\" class=topA><%=rs1("pingpainame")%></a></td>"
<%rs1.movenext
end if%>
javastr=javastr+"</tr>"
<%wend%>
javastr=javastr+"</table>"
<%rs1.close
end if%><!--三级分类结束 -->
javastr=javastr+"</td></tr>"
<%rs.movenext
wend
rs.close%>
javastr=javastr+"</table>"

<%end select%>
document.write(javastr)