%
dim IndexBBS,IndexYuanChuang,IndexBlog
Set rsi = Server.CreateObject("ADODB.Recordset")
rsi.open "SELECT IndexBBS,IndexYuanChuang,IndexBlog FROM Config WHERE id = 1",conn,1,1
IndexBBS=rsi(0)
IndexYuanChuang=rsi(1)
IndexBlog=rsi(2)
if IndexBBS = "" or IsNULL(IndexBBS) then IndexBBS = "$|$|$"
if IndexYuanChuang = "" or IsNULL(IndexYuanChuang) then IndexYuanChuang = "$|$|$"
if IndexBlog = "" or IsNULL(IndexBlog) then IndexBlog = "$|$|$"
IndexBBS = split(IndexBBS,"|")
IndexYuanChuang = split(IndexYuanChuang,"|")
IndexBlog = split(IndexBlog,"|")
rsi.close
Set rsi = Nothing
%>