theme.asp

来自「一个适用于企业的客户电话咨询系统,可以与其它的相关企业管理系统进行整合!」· ASP 代码 · 共 39 行

<%
if session("name")<>"" and session("level")>2 then
sql = "select * from [theme] where themeid=(select theme from [admin] where user='"&session("name")&"')"
elseif session("name")<>"" then
'response.Write(session("name"))
'在两个表中取数据.
sql = "select * from [theme] where themeid=(select theme from [user] where userid='"&session("name")&"')"
else 
response.Write("你没有登陆!")
response.End()
end if
set objrs=conn.Execute(sql)
if not objrs.eof and  not objrs.bof then
    themename=objrs("themename")
	TableborderColor=objrs("TableborderColor")
	TablebodyColor1=objrs("TablebodyColor1")
	TablebodyColor2=objrs("TablebodyColor2")
	TabletitleColor=objrs("TabletitleColor")
	TablecontentColor=objrs("TablecontentColor")
	TablefontColor=objrs("TablefontColor")
	bodycolor=objrs("bodycolor")
	MenuBackColor=objrs("MenuBackColor")
end if
set objrs=nothing

sub ThemeList(byval mytheme) 
	set tmprs=conn.execute("Select * from [theme] order by themeid") 
	response.write "<select name=theme>"
	do until tmprs.eof 
	%>
	<option value=<%=tmprs("themeid")%> <%if tmprs("themeid")=mytheme then%> selected <%end if%>>〖<%=tmprs("themename")%>〗</option><%
		tmprs.movenext
	loop
	response.write "</select>"
	set tmprs=nothing 
end sub
%>