logors.inc

来自「企业办公简单管理系统,可以发布信息以及论坛」· INC 代码 · 共 39 行

<!-- #include file="conn.inc" -->

<%

Dim logo,sql,site_title,site_dns,baseinfo,styletext,site_word

Set baseinfo = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM cci_base ORDER BY id DESC"
baseinfo.open sql,connObj,3,1

site_title=baseinfo("SysName")
site_dns=baseinfo("HomePage")

baseinfo.Close()
Set baseinfo = Nothing

Set logo = Server.CreateObject("ADODB.Recordset")
if session("userid") <>"" then
	sql= "select a.styletext from cci_style a,cci_user b where a.id=b.styleid and b.id=" & session("userid") 
else
	if request.cookies("kzh")("style")<>"" then
		sql = "select styletext from cci_style where id=" & request.cookies("kzh")("style")
	else
		sql = "select styletext from cci_style where id=1"
	end if
end if

logo.open sql,connObj,3,1
if not logo.eof then
	styletext=logo("styletext")
end if
logo.Close()


Set logo = Nothing

styletext=styletext+stylelist

%>