theme.asp

来自「功能非常完整的校友录」· ASP 代码 · 共 15 行

<%
sql = "select * from [theme] where themeid=(select theme from [student] where userid='"&session("txlusr")&"')"
set objrs=conn.Execute(sql)
if not objrs.eof and  not objrs.bof then
	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
%>