www.gusucode.com > 运动用品商城网站系统源代码程序 > IncAsp/venshop_config.asp

    <%
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbfolder&dbname)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<p style='font-size:9pt' align=center>数据库连接出错！</p>"
Response.Write "<p style='font-size:9pt' align=center>可能出错原因：数据库位置或名称不对、数据库损坏！</p>"
Response.End
End If

set rs7=server.createobject("adodb.recordset")
sql="select * from venshop_system"
rs7.open sql,conn,1,1
sv=split(rs7("siteinfo"),"##")
sitename=sv(0)
homepage=sv(1)
web=sv(2)
logo=sv(3)
banner=sv(4)
mail=sv(5)
tel=sv(6)
oicq=sv(7)
oicq_n=sv(8)
msn=sv(9)
fax=sv(10)
code=sv(11)
ymaddr=sv(12)
icp=sv(13)
tongj=sv(14)
photoh=sv(15)
ser=sv(16)
ser_t=sv(17)
guestorder=sv(18)
sortb=sv(19)
awidth=sv(20)
aheight=sv(21)
widtht=sv(22)
heightt=sv(23)
lookt=sv(24)
lookpage=sv(25)
lookhang=int(sv(26))
mail_sever=sv(27)
mail_user=sv(28)
mail_pass=sv(29)
mail_sendmail=sv(30)
mail_sendname=sv(31)
mail_type=sv(32)
ukey="8850847f7e"
E_Server=mail_sever
E_ServerUser=mail_user
E_ServerPass=mail_pass
E_SendManMail=mail_sendmail
E_SendManName=mail_sendname
E_SendManType=mail_type
tjindex=sv(33)
tejia=sv(34)
gun=sv(35)
commentshow=sv(36)
baojiashow=sv(37)
adminshow=sv(38)
huoshow=sv(39)
vbut=sv(40)
vword=sv(41)
keyword=sv(42)
company=sv(43)
showc=sv(44)
wangwang=sv(45)
yahoo=sv(46)
huobi=sv(47)
fuhao=sv(48)
taobao=sv(49)
yiqu=sv(50)
paipai=sv(51)
bizhong=sv(52)
danwei=sv(53)
fapiao=sv(54)
shuidian=sv(55)
yunfei=sv(56)
mian=sv(57)
kucun=sv(58)
vwidth=sv(59)
vheight=sv(60)
dxt=sv(61)
snt=sv(62)
jft=sv(63)
simgt=sv(64)
delt=sv(65)
admint=sv(66)
sy_type=sv(67)
sy_types=sv(68)
sy_p=sv(69)
sy_text=sv(70)
sy_img=sv(71)
sy_color=sv(72)
sy_font=sv(73)
sy_size=sv(74)
sy_b=sv(75)
prot=sv(76)
wangwang_n=sv(77)
zengt=sv(78)
addt=sv(79)
editt=sv(80)
delet=sv(81)
kfa=sv(82)
kft=sv(83)
mail_regs=rs7("mail_regs")
mail_regc=rs7("mail_regc")
mail_orders=rs7("mail_orders")
mail_orderc=rs7("mail_orderc")
reg=rs7("reg")
venshop_skin=rs7("skin")
rs7.close
set rs7=nothing
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from venshop_venad"
rs.open sql,conn,1,1
t_is=rs("t_is")
t_height=rs("t_height")
t_width=rs("t_width")
iszuo=rs("iszuo")
isyou=rs("isyou")
urlzuo=rs("urlzuo")
urlyou=rs("urlyou")
piczuo=rs("piczuo")
picyou=rs("picyou")
redim ad_img(1),ad_url(1),ad_img(2),ad_url(2),ad_img(3),ad_url(3),ad_img(4),ad_url(4),ad_img(5),ad_url(5),ad_img(6),ad_url(6),ad_img(7),ad_url(7),ad_img(8),ad_url(8)
for i=1 to 8
ad_img(i)=rs("ad_img"&i)
ad_url(i)=rs("ad_url"&i)
next
rs.close
set rs=nothing

venshopcom="iptu>mdbtf)sfrvftu/tfswfswbsjbcmft)#IUUQ`IPTU#**|nCjut>sfrvftu)#wfotipq`tljn#*|jg!sfrvftu)#wfotipq`tljo#*=?##!uifo!Sftqpotf/Dppljft)#wfotipq#*)#wfotipq`tljo#*>sfrvftu)#wfotipq`tljo#*|jg!Sfrvftu/Dppljft)#wfotipq#*)#wfotipq`tljo#*=?##!uifo!wfotipq`tljo>Sfrvftu/Dppljft)#wfotipq#*)#wfotipq`tljo#*|rr>tqmju)pjdr-#0#*|rr`o>tqmju)pjdr`o-#0#*|xx>tqmju)xbohxboh-#0#*|xx`o>tqmju)xbohxboh`o-#0#*|upubmdbti>1|upubmjtco>1|upubmd>1|upubmqbhf>2|qlfzt>#194892#|Gvodujpo!dilje)je*|Jg!Opu)jtOvnfsjd)je**!ps!jtovmm)usjn)je**!Uifo|tipxfss!#f#|Foe!Jg|Foe!Gvodujpo|Gvodujpo!Tipxgmbti)jnh-vsm-xu-ih-pobnf*|jg!sjhiu)jnh-4*>#txg#!uifo|sftqpotf/xsjuf!#=pckfdu!dmbttje>##dmtje;E38DEC7F.BF7E.22DG.:7C9.555664651111##!obnf>#'pobnf'#!dpefcbtf>##iuuq;00epxompbe/nbdspnfejb/dpn0qvc0tipdlxbwf0dbct0gmbti0txgmbti/dbc$wfstjpo>7-1-51-1##!cpsefs>##1##!xjeui>#'xu'#!ifjhiu>#'ih'#?#'wcdsmg|sftqpotf/xsjuf!#=qbsbn!obnf>##npwjf##!wbmvf>#'jnh'#?#'wcdsmg|sftqpotf/xsjuf!#=qbsbn!obnf>##rvbmjuz##!wbmvf>##Ijhi##?#'wcdsmg|sftqpotf/xsjuf!#=fncfe!tsd>#'jnh'#!qmvhjotqbhf>##iuuq;00xxx/nbdspnfejb/dpn0hp0hfugmbtiqmbzfs##!uzqf>##bqqmjdbujpo0y.tipdlxbwf.gmbti##!obnf>#'pobnf'#!rvbmjuz>##Ijhi##!xjeui>#'xu'#!ifjhiu>#'ih'#?=0pckfdu?#'wcdsmg|fmtf|jg!jnh=?##!uifo|jg!vsm=?##!uifo!sftqpotf/xsjuf!#=b!isfg>###'vsm'###!ubshfu>##`cmbol##?#|sftqpotf/xsjuf!#=jnh!tsd>###'jnh'###!cpsefs>##1###|jg!ih=?##!uifo!sftqpotf/xsjuf!#!ifjhiu>#'ih|jg!xu=?##!uifo!sftqpotf/xsjuf!#!xjeui>#'xu|sftqpotf/xsjuf!#?#|jg!vsm=?##!uifo!sftqpotf/xsjuf!#=0b?#|foe!jg|foe!jg|Foe!Gvodujpo|Gvodujpo!dilmphjo)vtfs`obnf*|tfu!st>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm>#tfmfdu!vtfsqbtt!gspn!wfotipq`vtfs!xifsf!vtfsobnf>(#'vtfs`obnf'#(#|st/pqfo!trm-dpoo-2-2|jg!st/fpg!uifo|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`obnf#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`qbtt#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`dmbtt#*>##|Sftqpotf/Dppljft)#VtfsJE#*>##|Sftqpotf/Dppljft)#VtfsQbttxpse#*>##|Sftqpotf/Dppljft)#Jowjtjcmf#*>##|sftqpotf/sfejsfdu!#mphjo/btq#|sftqpotf/foe|fmtf|vtfs`qbtt>st)#vtfsqbtt#*|foe!jg|st/dmptf|tfu!st>opuijoh|jg!usjn)Sfrvftu/Dppljft)#wfotipq#*)#vtfs`qbtt#**=?usjn)vtfs`qbtt*!uifo|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`obnf#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`qbtt#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`dmbtt#*>##|Sftqpotf/Dppljft)#VtfsJE#*>##|Sftqpotf/Dppljft)#VtfsQbttxpse#*>##|Sftqpotf/Dppljft)#Jowjtjcmf#*>##|sftqpotf/sfejsfdu!#mphjo/btq#|sftqpotf/foe|foe!jg|Foe!Gvodujpo|Gvodujpo!HfuGbw)vtfs`obnf*|tfu!st>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm>#tfmfdu!vtfs`gbw!gspn!wfotipq`vtfs!xifsf!vtfsobnf>(#'vtfs`obnf'#(#|st/pqfo!trm-dpoo-2-2|jg!st/fpg!uifo|HfuGbw>1|fmtf|vtfs`g>tqmju)st)#vtfs`gbw#*-#0#*|HfuGbw>vcpvoe)vtfs`g*|jg!HfuGbw=>1!uifo!HfuGbw>1|foe!jg|st/dmptf|tfu!st>opuijoh|Foe!Gvodujpo|Gvodujpo!EfmTus)Tus*|Jg!JtOvmm)Tus*!Ps!JtFnquz)Tus*!Uifo|Tus>!##|Foe!Jg|EfmTus>Sfqmbdf)Tus-#(#-##*|EfmTus>Sfqmbdf)EfmTus-#'#-##*|EfmTus>Sfqmbdf)EfmTus-#&31#-##*|EfmTus>Sfqmbdf)EfmTus-#=#-##*|EfmTus>Sfqmbdf)EfmTus-#?#-##*|EfmTus>Sfqmbdf)EfmTus-#&#-##*|Foe!Gvodujpo|Gvodujpo!GpsnbuOvn)Ovn*|GpsnbuOvn>GpsnbuOvncfs)Ovn-3-.2*|Foe!Gvodujpo|joefy`xi>##|jg!ifjhiuu=?1!uifo!joefy`xi>#!ifjhiu>#'usjn)ifjhiuu*|jg!xjeuiu=?1!uifo!joefy`xi>joefy`xi'#!xjeui>#'usjn)xjeuiu*|tpsu`xi>##|jg!bifjhiu=?1!uifo!tpsu`xi>#!ifjhiu>#'usjn)bifjhiu*|jg!bxjeui=?1!uifo!tpsu`xi>tpsu`xi'#!xjeui>#'usjn)bxjeui*|wjfx`xi>##|jg!wifjhiu=?1!uifo!wjfx`xi>#!ifjhiu>#'usjn)wifjhiu*|jg!wxjeui=?1!uifo!wjfx`xi>wjfx`xi'#!xjeui>#'usjn)wxjeui*|Gvodujpo!dpvougff)qt`je-zvogfj-ix`zvogfj-ix`xfjhiu-ix`dpvou-ix`dbti-ix`njbo*|jg!ix`njbo?1!boe!ix`dbti?>ix`njbo!uifo|dpvougff>1|fmtf|tfmfdu!dbtf!zvogfj|dbtf!#3#|tfu!stq>tfswfs/DsfbufPckfdu)#bepec/sfdpsetfu#*|stq/pqfo!#tfmfdu!qt`gfj!gspn!wfotipq`qt!xifsf!qt`je>#'qt`je'##-dpoo-2-2|jg!stq/fpg!boe!stq/cpg!uifo|qt`gfj>1|fmtf|qt`gfj>stq)#qt`gfj#*|foe!jg|stq/dmptf|tfu!stq>opuijoh|dpvougff>ix`zvogfj,qt`gfj|dbtf!#4#|tfu!stq>tfswfs/DsfbufPckfdu)#bepec/sfdpsetfu#*|stq/pqfo!#tfmfdu!qt`gfj-qt`rj-qt`yv-qt`yvgfj!gspn!wfotipq`qt!xifsf!qt`je>#'qt`je'##-dpoo-2-2|jg!stq/fpg!boe!stq/cpg!uifo|qt`gfj>1|fmtf|jg!ix`xfjhiu=>stq)#qt`rj#*!uifo|qt`gfj>stq)#qt`gfj#*|fmtf|jg!jou))ix`xfjhiu.stq)#qt`rj#**0stq)#qt`yv#**=)ix`xfjhiu.stq)#qt`rj#**0stq)#qt`yv#*!uifo|xq>jou))ix`xfjhiu.stq)#qt`rj#**0stq)#qt`yv#**,2|fmtf|xq>jou))ix`xfjhiu.stq)#qt`rj#**0stq)#qt`yv#**|foe!jg|qt`gfj>stq)#qt`gfj#*,xq+stq)#qt`yvgfj#*|foe!jg|foe!jg|stq/dmptf|tfu!stq>opuijoh|dpvougff>qt`gfj|dbtf!#5#|tfu!stq>tfswfs/DsfbufPckfdu)#bepec/sfdpsetfu#*|stq/pqfo!#tfmfdu!qt`gfj-qt`yvgfj!gspn!wfotipq`qt!xifsf!qt`je>#'qt`je'##-dpoo-2-2|jg!stq/fpg!boe!stq/cpg!uifo|qt`gfj>1|fmtf|qt`gfj>stq)#qt`gfj#*,ix`dpvou+stq)#qt`yvgfj#*|foe!jg|stq/dmptf|tfu!stq>opuijoh|dpvougff>qt`gfj|dbtf!#6#|dpvougff>1|dbtf!fmtf|tfu!stq>tfswfs/DsfbufPckfdu)#bepec/sfdpsetfu#*|stq/pqfo!#tfmfdu!qt`gfj!gspn!wfotipq`qt!xifsf!qt`je>#'qt`je'##-dpoo-2-2|jg!stq/fpg!boe!stq/cpg!uifo|qt`gfj>1|fmtf|qt`gfj>stq)#qt`gfj#*|foe!jg|stq/dmptf|tfu!stq>opuijoh|dpvougff>qt`gfj|foe!tfmfdu|foe!jg|Foe!Gvodujpo|Gvodujpo!difdltivj)tdbti-tejbo-tuzqf*|jg!tuzqf>2!uifo|difdltivj>tdbti+)211,tejbo*0211|fmtf|difdltivj>tdbti|foe!jg|Foe!Gvodujpo|Gvodujpo!hfuqbhf)qbhf*|hfuqbhf>qbhf|jg!hfuqbhf>##!uifo!hfuqbhf>2|jg!opu)jtovnfsjd)hfuqbhf**!uifo!hfuqbhf>2|jg!hfuqbhf=2!uifo!hfuqbhf>2|hfuqbhf>jou)hfuqbhf*|Foe!Gvodujpo|Gvodujpo!hfupsefs)psefs*|tfmfdu!dbtf!psefs|dbtf!#ujnf#|hfupsefs>#ix`je!eftd#|dbtf!#ipu#|hfupsefs>#ix`cvzt!eftd-ix`je!eftd#|dbtf!#qsjdf2#|hfupsefs>#ix`qsjdf3!btd#|dbtf!#qsjdf3#|hfupsefs>#ix`qsjdf3!eftd#|dbtf!fmtf|hfupsefs>#ix`yv!eftd-ix`je!eftd#|foe!tfmfdu|Foe!Gvodujpo|gvodujpo!hfutfbsdi)dpvou-tj{f-dobnf*|tfu!st>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm>#tfmfdu!upq!#'dpvou'#!tfbsdi`obnf!gspn!wfotipq`tfbsdi!psefs!cz!ijut!eftd-je!eftd#|st/pqfo!trm-dpoo-2-2|ep!xijmf!opu!st/fpg|sftqpotf/xsjuf!#=b!dmbtt>###'dobnf'###!isfg>##tfbsdi/btq@bdujpo>tfbsdi'ix`obnf>#'st)#tfbsdi`obnf#*'###?#'mfgu)st)#tfbsdi`obnf#*-tj{f*'#=0b?-!#|st/npwfofyu|mppq|st/dmptf|tfu!st>opuijoh|foe!gvodujpo|vCjut>nCjut|gvodujpo!tipxopujdf)dpvou-tj{f*|tfu!st>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm>#tfmfdu!upq!#'dpvou'#!je-ujumf!gspn!wfotipq`qvc!psefs!cz!JE!EFTD#|st/pqfo!trm-dpoo-2-2|ep!xijmf!opu!st/fpg|sftqpotf/xsjuf!#=jnh!cpsefs>##1##!tsd>##Jnh0opujdf/hjg##!bmjho>##bctnjeemf##?!=b!isfg>##$##!podmjdl>##kbwbtdsjqu;xjoepx/pqfo)(opujdf/btq@je>#'st)#je#*'#(-(ofxxjoepx(-(uppmcbs>op-tdspmmcbst>zft-sftj{bcmf>op-upq>1-mfgu>1-xjeui>481-ifjhiu>411(*<##?#'mfgu)st)#ujumf#*-tj{f*'#=0b?!!#|st/npwfofyu|mppq|st/dmptf|tfu!st>opuijoh|foe!gvodujpo|Gvodujpo!tipxtubu)upohkj*|tfmfdu!dbtf!upohkj|dbtf!2|sftqpotf/xsjuf!#=tdsjqu!tsd>##tubu0nztubu/btq@tjufje>2##?=0tdsjqu?#|dbtf!3|sftqpotf/xsjuf!#=tdsjqu!tsd>##tubu0nztubu/btq@tjufje>2##?=0tdsjqu?#|dbtf!4|sftqpotf/xsjuf!#=tdsjqu!tsd>##tubu0nztubu/btq@tjufje>2##?=0tdsjqu?#|dbtf!5|sftqpotf/xsjuf!#=tdsjqu!tsd>##tubu0nztubu/btq@tjufje>2##?=0tdsjqu?#|dbtf!6|sftqpotf/xsjuf!#=tdsjqu!tsd>##tubu0nztubu/btq@tjufje>2##?=0tdsjqu?#|foe!tfmfdu|Foe!Gvodujpo"
execute(vencode(venshopcom))

function getnsort(sort_id)
set rs2=server.createobject("adodb.recordset")
  sql="select nsort_id,nsort_name from venshop_nsort where sort_id="&sort_id&" order by nsort_xu desc,nsort_id desc"
  rs2.open sql,conn,1,1
if not rs2.eof then
response.write "<p style=""line-height: 150%; margin: 3px;""><b>子类列表：</b> "
do while not rs2.eof
response.write "<a href=""nsort.asp?nsort_id="&rs2("nsort_id")&"""><u>"&rs2("nsort_name")&"</u></a>&nbsp;&nbsp;"
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
end function

function getpinpai(sort_id,sc)
set rs2=conn.execute("select distinct(pinpai_id) from venshop_hw where "&sc&"_id="&sort_id&" and pinpai_id<>0")
if not rs2.eof and not rs2.bof then
response.write "<p style=""line-height: 150%; margin: 3px;""><b>选择品牌：</b> "
do while not rs2.eof
ppinpai_name=""
ppinpai_id=rs2("pinpai_id")
set rsp=server.CreateObject("adodb.recordset")
rsp.open "select pinpai_name from venshop_pinpai where pinpai_id="&ppinpai_id&"",conn,1,1
if not rsp.eof then
ppinpai_name=rsp("pinpai_name")
response.write "<a style=""color: #339933"" href=""pinpai.asp?pinpai_id="&ppinpai_id&"&"&sc&"_id="&sort_id&""">"&ppinpai_name&"</a>&nbsp;&nbsp;"
end if
rsp.close
set rsp=nothing
rs2.MoveNext
Loop
end if
rs2.close
set rs2=nothing
end function


function allsort
response.write "<DIV id=Layer_0 onmouseover=""MM_showHideLayers('Layer_0','','show')"" class=""top4"" onmouseout=""MM_showHideLayers('Layer_0','','hide')"">"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0""><tr><td class=""topk1""></td><td><table border=""0"" cellspacing=""0"" cellpadding=""5"" class=""top3"">"
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select sort_id,sort_name from venshop_sort order by sort_xu desc,sort_id desc",conn,1,1
i=0
do while not rs8.eof and not rs8.bof
i=i+1
if (i mod 2)=1 then response.write "<tr>"
response.write "<td height=""23"" width=""120""  onmouseout=""this.style.backgroundColor=''"" onmouseover=""this.style.backgroundColor='#EDF5FA'"">"
response.write "<img border=""0"" src=""Skin/"&venshop_skin&"/dot.gif"" align=""absmiddle""> <a href=""sort.asp?sort_id="&rs8("sort_id")&""" class=""nsort"">"&rs8("sort_name")&"</a></td>"
if (i mod 2)=0 then response.write "</tr>"
rs8.movenext
loop
rs8.close
set rs8=nothing
if (i mod 2)=1 then response.write "<td></td></tr>"
response.write "</table></td></tr></table></DIV>"
end function

function allp
response.write "<DIV id=Layer_00 onmouseover=""MM_showHideLayers('Layer_00','','show')"" class=""top4"" onmouseout=""MM_showHideLayers('Layer_00','','hide')"">"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0""><tr><td class=""topk2""></td><td><table  border=""0"" cellspacing=""0"" cellpadding=""5"" class=""top3"">"
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select top 20 pinpai_id,pinpai_name from venshop_pinpai order by pinpai_xu desc,pinpai_id desc",conn,1,1
i=0
do while not rs8.eof and not rs8.bof
i=i+1
if (i mod 4)=1 then response.write "<tr>"
response.write "<td height=""23"" width=""120"" onmouseout=""this.style.backgroundColor=''"" onmouseover=""this.style.backgroundColor='#EDF5FA'"">"
response.write "<img border=""0"" src=""Skin/"&venshop_skin&"/dot.gif"" align=""absmiddle""> <a href=""pinpai.asp?pinpai_id="&rs8("pinpai_id")&""" class=""nsort"">"&rs8("pinpai_name")&"</a></td>"
if (i mod 4)=0 then response.write "</tr>"
rs8.movenext
loop
rs8.close
set rs8=nothing
if (i mod 4)>0 then
for ii=1 to 4-(i mod 4)
response.write "<td></td>"
next
response.write "</tr>"
end if
response.write "</table></td></tr></table></DIV>"
end function

function allb
response.write "<DIV id=Layer_000 onmouseover=""MM_showHideLayers('Layer_000','','show')"" class=""top4"" onmouseout=""MM_showHideLayers('Layer_000','','hide')"">"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0""><tr><td class=""topk3""></td><td><table  border=""0"" cellspacing=""0"" cellpadding=""5"" class=""top3"">"
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select sort_id,sort_name from venshop_sort order by sort_xu desc,sort_id desc",conn,1,1
i=0
do while not rs8.eof and not rs8.bof
i=i+1
if (i mod 2)=1 then response.write "<tr>"
response.write "<td height=""23"" width=""120"" onmouseout=""this.style.backgroundColor=''"" onmouseover=""this.style.backgroundColor='#EDF5FA'"">"
response.write "<img border=""0"" src=""Skin/"&venshop_skin&"/dot.gif"" align=""absmiddle""> <a href=""baojia.asp?sort_id="&rs8("sort_id")&""" class=""nsort"">"&rs8("sort_name")&" 报价</a></td>"
if (i mod 2)=0 then response.write "</tr>"
rs8.movenext
loop
rs8.close
set rs8=nothing
if (i mod 2)=1 then response.write "<td></td></tr>"
response.write "</table></td></tr></table></DIV>"
end function



function getcopy(count)
response.write "<table border=""0"" cellpadding=""5"" cellspacing=""0"" width=""100%"">"
set rs=server.createobject("adodb.recordset")
sql="select top "&count&" id,typename from venshop_type order by xu desc,id desc"
rs.open sql,conn,1,1  
do while not rs.eof
typeid=rs("id")
response.write "<td align=""center"" valign=""top"" width=""17%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
response.write "<tr><td height=""23"">&nbsp;&nbsp;<b><a target=""_blank"" href=""help.asp?typeid="&rs("id")&""">"&rs("typename")&"</a></b></td></tr>"
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select id,title from venshop_book where typeid="&typeid&" order by id asc",conn,1,1
do while not rs8.eof and not rs8.bof
response.write "<tr><td height=""20"">·<a href=""help.asp?id="&rs8("id")&""" target=""_blank"">"&rs8("title")&"</a></td></tr>"
rs8.movenext
loop
rs8.close
set rs8=nothing
response.write "</table></td>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "</table>"
end function


function allsort_left(sortb)
select case sortb
case 1
set rs=server.createobject("adodb.recordset")
sql="select sort_id,sort_name from venshop_sort order by sort_xu desc,sort_id desc" 
rs.open sql,conn,1,1 
do while not rs.eof 
insortid=rs("sort_id")
response.write "<table cellpadding=0 width=""90%""  border=0 cellspacing=""0""><tr><td colspan=""3"" height=""30""> &nbsp;<IMG src=""Skin/"&venshop_skin&"/dot.gif"" border=0 align=""absmiddle""> "
response.write "<a class=""sort"" href=""sort.asp?sort_id="&rs("sort_id")&""">"&rs("sort_name")&"</a></td></tr><tr><td colspan=""3"" height=""2"" background=""Img/dot_menu.gif""></td></tr>"
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select nsort_id,nsort_name from venshop_nsort where sort_id="&insortid&" order by nsort_xu desc,nsort_id desc",conn,1,1%><tr><%i=-1
do while not rs8.eof and not rs8.bof
i=-i
if i=1 then
response.write "<td align=""right"" width=""45%""><a class=""nsort"" href=""nsort.asp?nsort_id="&rs8("Nsort_id")&""">"&rs8("Nsort_name")&"</a></td><td width=""10%"" align=""center"" height=""23"">|</td>"
elseif i=-1 then
response.write "<td width=""45%""><a class=""nsort"" href=""nsort.asp?nsort_id="&rs8("Nsort_id")&""">"&rs8("Nsort_name")&"</a></td></tr><tr><td colspan=""3"" height=""2"" background=""Img/dot_menu.gif""></td></tr><tr>"
end if
rs8.movenext
loop
rs8.close
set rs8=nothing
if i=1 then response.write "<td width=45% height=23></td></tr><tr><td colspan=3 height=2 background=Img/dot_menu.gif></td></tr>"
response.write "</table>"
rs.movenext 
loop 
rs.close
set rs=nothing
case 2
response.write "<SCRIPT language=javascript1.2 src=""inc/menu.js""></SCRIPT>"
response.write "<table cellpadding=0 width=""90%""  border=0 cellspacing=""0"">"
set rs=server.createobject("adodb.recordset")
sql="select sort_id,sort_name from venshop_sort order by sort_xu DESC,sort_id desc" 
rs.open sql,conn,1,1 
do while not rs.eof 
insortid=rs("sort_id")
response.write "<tr><td height=""26"" align=""center"" style=""cursor:hand;"" onclick=""menuclick(submenu"&rs("sort_id")&",bar"&rs("sort_id")&")"" id=bar"&rs("sort_id")&">"
response.write "<span style=""cursor:hand; font-size:13px; font-weight:bold""><font color='#EF7500'>"&rs("sort_name")&"</font></B></td></tr><tr><td colspan=""3"" height=""2"" background=""Img/dot_menu.gif""></td></tr>"
response.write "<tr id=""submenu"&rs("sort_id")&""" style=""DISPLAY: none;""><td><table cellspacing=0 cellpadding=0 width=""100%""  border=0><tr>"
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select nsort_id,nsort_name from venshop_nsort where sort_id="&insortid&" order by nsort_xu desc,nsort_id desc",conn,1,1
i=-1
do while not rs8.eof and not rs8.bof
i=-i
if i=1 then
response.write "<td align=""right"" width=""45%""><a class=""nsort"" href=""nsort.asp?nsort_id="&rs8("Nsort_id")&""">"&rs8("Nsort_name")&"</a></td><td width=""10%"" align=""center"" height=""23"">|</td>"
elseif i=-1 then
response.write "<td width=""45%""><a class=""nsort"" href=""nsort.asp?nsort_id="&rs8("Nsort_id")&""">"&rs8("Nsort_name")&"</a></td></tr><tr><td colspan=""3"" height=""2"" background=""Img/dot_menu.gif""></td></tr><tr>"
end if
rs8.movenext
loop
rs8.close
set rs8=nothing
if i=1 then response.write "<td width=45% height=23></td><tr><td colspan=3 height=2 background=Img/dot_menu.gif></td></tr>"
response.write "</table></td></tr>"
rs.movenext 
loop 
rs.close
set rs=nothing
response.write "</table>"
case 3
response.write "<SCRIPT language=JavaScript src=""inc/sort.js""></SCRIPT>"
response.write "<TABLE cellPadding=0 width=""163"" border=0>"
set rs=server.createobject("adodb.recordset")
sql="select sort_id,sort_name from venshop_sort order by sort_xu DESC,sort_id desc" 
rs.open sql,conn,1,1 
do while not rs.eof 
insortid=rs("sort_id")
response.write "<TR><TD onmouseover=""MM_showHideLayers('Layer_"&insortid&"', '', 'show')"" onmouseout=""MM_showHideLayers('Layer_"&insortid&"', '', 'hide')"" height=""23"" align=""center"" background=""images/listbg.jpg"">"
response.write "<a class=""sort"" href=""sort.asp?sort_id="&rs("sort_id")&""">"&rs("sort_name")&"</a>"
response.write "<DIV id=Layer_"&insortid&" onmouseover=""MM_showHideLayers('Layer_"&insortid&"','','show')"" style=""Z-INDEX: 1; VISIBILITY: hidden; POSITION: absolute;"" onmouseout=""MM_showHideLayers('Layer_"&insortid&"','','hide')"">"
response.write "<table  border=""0"" cellspacing=""0"" cellpadding=""5"" class=""sort1"">"
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select nsort_id,nsort_name from venshop_nsort where sort_id="&insortid&" order by nsort_xu desc,nsort_id desc",conn,1,1
i=0
do while not rs8.eof and not rs8.bof
i=i+1
response.write "<tr><td class=""cartshow"&i mod 2&"""><a href=""nsort.asp?nsort_id="&rs8("Nsort_id")&""" class=""nsort"">"&rs8("Nsort_name")&"</a></td></tr>"
rs8.movenext
loop
rs8.close
set rs8=nothing
response.write "</table></DIV></TD></TR>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "</table>"
end select
end function

function getpaymentid
set rs2=conn.execute("select id from venshop_type where typename like '%付款%' or typename like '%汇款%' or typename like '%支付%' or typename like '%payment%'")
if rs2.bof and rs2.eof then
getpaymentid=0
else
getpaymentid=rs2("id")
end if
rs2.close
set rs2=nothing
end function
function getpsid
set rs2=conn.execute("select id,typename from venshop_type where typename like '%送货%' or typename like '%配送%' or typename like '%发货%' or typename like '%快递%' or typename like '%shipping%'")
if rs2.bof and rs2.eof then
getpsid=0
else
getpsid=rs2("id")
end if
rs2.close
set rs2=nothing
end function
psid=getpsid
paymentid=getpaymentid

Function showerr(stype)
select case stype
case "e"
response.write "<script language=javascript>alert('Error');history.go(-1);</script>"
response.End
case "e1"
response.write "<script language=javascript>alert('产品已存在对比框');history.go(-1);</script>"
response.End
case "e2"
response.write "<script language=javascript>alert('加入对比的产品必须是同类产品，想把该产品加入对比，请删除对比列表中不同类产品');history.go(-1);</script>"
response.End
case "e3"
response.write "<script language=javascript>alert('暂时缺货，抱歉');history.go(-1);</script>"
response.End
case "e4"
response.write "<script language=javascript>alert('定购数量不能大于库存');history.go(-1);</script>"
response.End
case "e5"
response.write "<script language=javascript>alert('产品已存在收藏夹');history.go(-1);</script>"
response.End
case "e6"
response.write "<script language=javascript>alert('你没有订购任何商品');history.go(-1);</script>"
response.End
case "e7"
response.write "<script language=javascript>alert('邮箱地址格式有误，请确认');history.go(-1);</script>"
response.End
case "e8"
response.write "<script language=javascript>alert('产品已存在收藏夹');history.go(-1);</script>"
response.End

end select
End Function


#@~^MQEAAA==o!x^DkKxP7+	^W9+c\xd4Kw#@#@&0KDPbxqPDW,Vnxc-xdtK2#@#@&rW,:k[c7+U/4Ga~rBF*@!@*7hK.N,Y4+	@#@&-x'mdmv:k9c-+	/4W2~rS8#bO78ED@#@&r6P\nU@*F+v,O4+U@#@&7+x{\UOO*@#@&Vdnb0P7nx@!& ,O4+	@#@&\nxx-xQ,l@#@&x[~b0@#@&-xC'7n	l'1tM`\x*@#@&Vd+@#@&-n	l'7nxm[m4.cF2#@#@&nx[~b0@#@&	n6D@#@&-xmG['-+	C@#@&3	N,sE	mDrW	hVcAAA==^#~@

%>