<% 
dim connstr
dim conn
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("yousiteadmin/mydb.mdb")&";Persist Security Info=False;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql2="select top 1 * from webset order by id desc"
set rs2=conn.execute(sql2)		
do while not rs2.eof
webname=rs2("webname")
icp=rs2("icp")
tongji=rs2("tongji")
ishtml=rs2("ishtml")
lxr=rs2("lxr")
shouji=rs2("sj")
zj=rs2("zj")
cz=rs2("cz")
dz=rs2("dz")
yx=rs2("yx")
phone400=rs2("phone400")
qq1=rs2("qq1")
qq2=rs2("qq2")
qq3=rs2("qq3")
qq4=rs2("qq4")
ww1=rs2("ww1")
ww2=rs2("ww2")
ww3=rs2("ww3")
isqq=rs2("isqq")
logo=rs2("logo")

rs2.movenext:loop:set rs2=nothing

sql2="select top 1 * from webseo order by id desc"
set rs2=conn.execute(sql2)		
do while not rs2.eof
seotitle=rs2("seotitle")
seokeys=rs2("seokeys")
seoms=rs2("seoms")
rs2.movenext:loop:set rs2=nothing

Function myurl (url,bh,lmid,sj) 
	
	if ishtml="0" then
		url=url&".asp"
		if bh<>"" then
			url=url&"?bh="&bh
		end if
		if lmid<>"" then
			url=url&"&lmid="&lmid
		end if
		if sj<>"" then
			url=url&"&sj="&sj
		end if
		myurl=url
	end if
	if ishtml="1" then
		if bh<>"" then
			url=url&bh
		end if
		if lmid<>"" then
			url=url&"-"&lmid
		end if
		if sj<>"" then
			url=url&"-"&sj
		end if
		myurl=url&".html"
	end if
End Function
Function viewurl (url,id) 
	
	if ishtml="0" then
		url=url&".asp"
		if id<>"" then
			url=url&"?id="&id
		end if
		viewurl=url
	end if
	if ishtml="1" then
		if id<>"" then
			url=url&id
		end if
		
		viewurl=url&".html"
	end if
End Function


%>  






