db="data/Shop.asp"
function getdbpath(db)
dim i,num,path
path=Request.ServerVariables("SCRIPT_NAME")
i=0
getdbpath=db
num=instr(path,"/")do while num>0
num=instr(path,"/")
path=right(path,len(path)-num)
if i>1 then getdbpath="../"&getdbpath
i=i+1
loopend function初学VB,看不懂,请各位高手,帮忙解释下,感谢!!
function getdbpath(db)
dim i,num,path
path=Request.ServerVariables("SCRIPT_NAME")
i=0
getdbpath=db
num=instr(path,"/")do while num>0
num=instr(path,"/")
path=right(path,len(path)-num)
if i>1 then getdbpath="../"&getdbpath
i=i+1
loopend function初学VB,看不懂,请各位高手,帮忙解释下,感谢!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货