co.asp

一个不错的个人商务网站的源码

<%
dim bsql,brs,r(29),background
bsql="select Sweb_name,Surl,Slogo,Small_name,Sphone,Sfax,Semail,Saddress,Sqq,Smsn,Staobao,Sisopen,Stitleclose,Sistaobao,Sisebay,Sispaipai,Svtaobao,Svebay,Svpaipai,Saboutus,fkcontent,pscontent,webstyle,Sbeian,Sisbuy,Sbgfile,Stitle,Sdescription,Skeywords,Sadindex from system_setup where id=1"
set brs=conn.execute (bsql)
for k=0 to 29
r(k)=brs(k)
next
brs.close
set brs=nothing

taobao=split(r(16),"‖")
ebay=split(r(17),"‖")
paipai=split(r(18),"‖")
Sbgfiles=split(r(25),"‖")
if Sbgfiles(1)=1 and Sbgfiles(0)<>"" then
background=Sbgfiles(0)
end if
Sadindexs=split(r(29),"‖")
%>