config.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 38 行

<%
Dim y
Dim y_numRows
Set y = Server.CreateObject("ADODB.Recordset")
y.ActiveConnection = MM_oavbsconn_STRING
y.Source = "SELECT 颜色代码,次级颜色代码  FROM fengevavsdfgsdfv  WHERE 状态 = '开'"
y.CursorType = 0
y.CursorLocation = 2
y.LockType = 1
y.Open()
y_numRows = 0
%>
<%if not y.eof or not y.bof then%>
<%dim secaiid,cijiyanse
secaiid=y("颜色代码")
cijiyanse=y("次级颜色代码")
else
secaiid="#5EAE19"
cijiyanse="ffffff"
end if
%><%
y.Close()
Set y = Nothing
%>
<style type="text/css"> 
div.RoundedCorner{background: <%=secaiid%>} 
b.rtop, b.rbottom{display:block;background: #FFF} 
b.rtop b, b.rbottom b{display:block;height: 1px;overflow: hidden; background: <%=secaiid%>} 
b.r1{margin: 0 4px} 
b.r2{margin: 0 3px} 
b.r3{margin: 0 2px} 
b.rtop b.r4, {margin: 0 1px;height: 1px}
.style1 {
	font-size: 13px;
	color: #FFFFFF;
font-weight: bold;
} 
</style>