<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=chkuser.asp-->
<title><%=ForumName%>--管理页面</title>
<!--#include file="Forum_css.asp"-->
<meta NAME=GENERATOR Content=""Microsoft FrontPage 3.0"" CHARSET=GB2312>
<BODY <%=ForumBody%>>
<%
	if not master or instr(session("flag"),"23")=0 then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		call Error()
	else
		call main()
		conn.close
		set conn=nothing
	end if

	sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=tablebackcolor%> align=center>
  <tr>
    <td>
      <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr bgcolor='<%=Tabletitlecolor%>'>
        <td align=center colspan="2"><font color="<%=TablefontColor%>">欢迎<b><%=membername%></b>进入管理页面</font>
        </td>
        </tr>
            <tr  bgcolor="<%=Tablebodycolor%>">
              <td width="100%" valign=top><font color="<%=TableContentColor%>">
<%
if request("action")="save" then
call saveconst()
else
    if request("action")="pt" then
    call pt_color1()
    else
    call consted()
    end if
end if
if founderr then call error()
%></font>
	      </td>
            </tr>
        </table>
        </td>
    </tr>
</table>
<%
end sub

sub consted()
dim sel
%>
<form method="POST" action=admin_color.asp?action=save>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center bordercolor=<%=aTablebackcolor%>>
<tr bgcolor=<%=aTabletitlecolor%>> 
<td height="23" colspan="3" ><font color="<%=TableContentColor%>"><B>说明</B>：<BR>1、复选框中选择的为当前的使用设置模板，点击可查看该模板设置，点击别的模板直接查看该模板并修改设置。您可以将您下面的设置保存在多个论坛风格模板中<BR>2、您也可以将下面设定的信息保存并应用到具体的分论坛设置中，可多选<BR>3、如果您想在一个版面引用别的版面或模板的配置，只要点击该版面或模板名称，保存的时候选择要保存到的版面名称或模板名称即可。</font></td>
</tr>
<tr> 
<td width="100%" colspan=3 bgcolor="<%=Tablebodycolor%>"><font color="<%=TableContentColor%>"><B>当前使用主模板</B>（可将设置保存到下列模板中）<BR>
<%
set rs = server.CreateObject ("adodb.recordset")
sql="select * from config"
rs.open sql,conn,1,1
do while not rs.eof
if request("skinid")="" then
	if request("boardid")="" then
	if rs("active")=1 then
	sel="checked"
	else
	sel=""
	end if
	else
	sel=""
	end if
else
	if rs("id")=cint(request("skinid")) then
	sel="checked"
	else
	sel=""
	end if
end if
response.write "<input type=checkbox name=skinid value="&rs("id")&" "&sel&"><a href=admin_color.asp?skinid="&rs("id")&"><font color="&TableContentColor&">"&rs("skinname")&"</font></a>&nbsp;"
rs.movenext
loop
rs.close
set rs=nothing
%></font>
</td></tr>
<tr> 
<td width="100%" colspan=3 bgcolor="<%=Tablebodycolor%>"><font color="<%=TableContentColor%>"><B>当前使用分论坛模板</B>（可将设置保存到下列论坛中）<BR>
<%
set rs = server.CreateObject ("adodb.recordset")
sql="select * from board"
rs.open sql,conn,1,1
do while not rs.eof
if request("boardid")<>"" or isnumeric(request("boardid")) then
if rs("boardid")=cint(request("boardid")) then
sel="checked"
else
sel=""
end if
end if
response.write "<input type=checkbox name=boardid value="&rs("boardid")&" "&sel&"><a href=admin_color.asp?boardid="&rs("boardid")&"><font color="&TableContentColor&">" & rs("boardtype") & "</font></a>&nbsp;"
rs.movenext
loop
rs.close
set rs=nothing
%></font>
</td></tr>
<script>
function color(para_URL){var URL =new String(para_URL)
window.open(URL,'','width=300,height=220,noscrollbars')}
</SCRIPT>
<tr bgcolor=<%=aTabletitlecolor%>> 
<td height="23" colspan="3" ><font color="<%=TableContentColor%>"><b>论坛界面设置</b></font>&nbsp;单击 <a href="javascript:color('color.asp')"><font color="<%=TableContentColor%>">这里</font></a> 使用万用颜色拾取器　　或者->><a href="pt_color.asp"><font color=<%=bmaster_fc%>>精彩速配（for 0519）</font></td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>论坛BODY标签</B><br>
控制整个论坛风格的背景颜色或者背景图片等</font></td>
<td width="5%"></td>
<td width="50%"> 
<input type="text" name="ForumBody" size="35" value="<%=ForumBody%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>浏览器边框颜色</B></font></td>
<td width="5%" bgcolor="<%=IEbarcolor%>"></td>
<td width="50%"> 
<input type="text" name="iebarcolor" size="35" value="<%=iebarcolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>顶部菜单表格背景(深背景)</B></font></td>
<td width="5%" bgcolor="<%=NavDarkcolor%>"></td>
<td width="50%"> 
<input type="text" name="NavDarkcolor" size="35" value="<%=NavDarkcolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>顶部菜单表格背景(浅背景)</B></font></td>
<td width="5%" bgcolor="<%=Navlighcolor%>"></td>
<td width="50%"> 
<input type="text" name="Navlighcolor" size="35" value="<%=Navlighcolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>表格边框颜色一</B><br>
一般页面</font></td>
<td width="5%" bgcolor="<%=Tablebackcolor%>"></td>
<td width="50%"> 
<input type="text" name="Tablebackcolor" size="35" value="<%=Tablebackcolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>表格边框颜色二</B><br>
用户页面、提示页面</font></td>
<td width="5%" bgcolor="<%=aTablebackcolor%>"></td>
<td width="50%"> 
<input type="text" name="aTablebackcolor" size="35" value="<%=aTablebackcolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>标题表格颜色一（深背景）</B><br>
一般页面</font></td>
<td width="5%" bgcolor="<%=Tabletitlecolor%>"></td>
<td width="50%"> 
<input type="text" name="Tabletitlecolor" size="35" value="<%=Tabletitlecolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>标题表格颜色二（浅背景）</B><br>
用户页面、提示页面</font></td>
<td width="5%" bgcolor="<%=aTabletitlecolor%>"></td>
<td width="50%"> 
<input type="text" name="aTabletitlecolor" size="35" value="<%=aTabletitlecolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>表格体颜色一</B></font></td>
<td width="5%" bgcolor="<%=Tablebodycolor%>"></td>
<td width="50%"> 
<input type="text" name="Tablebodycolor" size="35" value="<%=Tablebodycolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>表格体颜色二</B>(1和2颜色在首页显示中穿插)</font></td>
<td width="5%" bgcolor="<%=aTablebodycolor%>"></td>
<td width="50%"> 
<input type="text" name="aTablebodycolor" size="35" value="<%=aTablebodycolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>表格标题栏字体颜色</B></font></td>
<td width="5%" bgcolor="<%=TableFontcolor%>"></td>
<td width="50%"> 
<input type="text" name="TableFontcolor" size="35" value="<%=TableFontcolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>表格内容栏字体颜色</B></font></td>
<td width="5%" bgcolor="<%=TableContentcolor%>"></td>
<td width="50%"> 
<input type="text" name="TableContentcolor" size="35" value="<%=TableContentcolor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>警告提醒语句的颜色</B></font></td>
<td width="5%" bgcolor="<%=AlertFontColor%>"></td>
<td width="50%"> 
<input type="text" name="AlertFontColor" size="35" value="<%=AlertFontColor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>显示帖子的时候，相关帖子，转发帖子，回复等的颜色</B></font></td>
<td width="5%" bgcolor="<%=ContentTitle%>"></td>
<td width="50%"> 
<input type="text" name="ContentTitle" size="35" value="<%=ContentTitle%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>网页字体颜色（表格外）</B></font></td>
<td width="5%" bgcolor="<%=BodyFontColor%>"></td>
<td width="50%"> 
<input type="text" name="BodyFontColor" size="35" value="<%=BodyFontColor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>首页连接颜色</B><BR>如版面连接</font></td>
<td width="5%" bgcolor="<%=BoardLinkColor%>"></td>
<td width="50%"> 
<input type="text" name="BoardLinkColor" size="35" value="<%=BoardLinkColor%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>表格宽度</B></font></td>
<td width="5%"></td>
<td width="50%"> 
<input type="text" name="tablewidth" size="35" value="<%=tablewidth%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>一般用户名称字体颜色</B></font></td>
<td width="5%" bgcolor="<%=user_fc%>"></td>
<td width="50%"> 
<input type="text" name="user_fc" size="35" value="<%=user_fc%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>一般用户名称上的光晕颜色</B></font></td>
<td width="5%" bgcolor="<%=user_mc%>"></td>
<td width="50%"> 
<input type="text" name="user_mc" size="35" value="<%=user_mc%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>版主名称字体颜色</B></font></td>
<td width="5%" bgcolor="<%=bmaster_fc%>"></td>
<td width="50%"> 
<input type="text" name="bmaster_fc" size="35" value="<%=bmaster_fc%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>版主名称上的光晕颜色</B></font></td>
<td width="5%" bgcolor="<%=bmaster_mc%>"></td>
<td width="50%"> 
<input type="text" name="bmaster_mc" size="35" value="<%=bmaster_mc%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>管理员名称字体颜色</B></font></td>
<td width="5%" bgcolor="<%=master_fc%>"></td>
<td width="50%"> 
<input type="text" name="master_fc" size="35" value="<%=master_fc%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>版主名称上的光晕颜色</B></font></td>
<td width="5%" bgcolor="<%=master_mc%>"></td>
<td width="50%"> 
<input type="text" name="master_mc" size="35" value="<%=master_mc%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>贵宾名称字体颜色</B></font></td>
<td width="5%" bgcolor="<%=vip_fc%>"></td>
<td width="50%"> 
<input type="text" name="vip_fc" size="35" value="<%=vip_fc%>">
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>"> 
<td width="45%"><font color="<%=TableContentColor%>"><B>贵宾名称上的光晕颜色</B></font></td>
<td width="5%" bgcolor="<%=vip_mc%>"></td>
<td width="50%"> 
<input type="text" name="vip_mc" size="35" value="<%=vip_mc%>">
</td>
</tr>
<tr bgcolor=<%=aTabletitlecolor%>> 
<td width="45%">&nbsp;</td>
<td width="5%"></td>
<td width="50%"> 
<div align="center"> 
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end sub

sub saveconst()
dim Forum_body
if trim(request("skinid"))="" and trim(request("boardid"))="" then
Founderr=true
Errmsg=Errmsg+"<br>"+"<li>请选择保存的模板名称"
else
Forum_body=request.form("Tablebackcolor") & "," & request.form("aTablebackcolor") & "," & request.form("Tabletitlecolor") & "," & request.form("aTabletitlecolor") & "," & request.form("Tablebodycolor") & "," & request.form("aTablebodycolor") & "," & request.form("TableFontcolor") & "," & request.form("TableContentcolor") & "," & request.form("AlertFontColor") & "," & request.form("ContentTitle") & "," & request.form("AlertFontColor") & "," & request.form("ForumBody") & "," & request.form("TableWidth") & "," & request.form("BodyFontColor") & "," & request.form("BoardLinkColor") & "," & request.form("user_fc") & "," & request.form("user_mc") & "," & request.form("bmaster_fc") & "," & request.form("bmaster_mc") & "," & request.form("master_fc") & "," & request.form("master_mc") & "," & request.form("vip_fc") & "," & request.form("vip_mc") & "," & request.form("NavLighColor") & "," & request.form("NavDarkColor") & "," & request.form("IEbarColor")
'response.write Forum_body
if request("skinid")<>"" then
sql = "update config set Forum_body='"&Forum_body&"' where id in ( "&request("skinid")&" )"
conn.execute(sql)
end if
if request("boardid")<>"" then
sql = "update board set Forum_body='"&Forum_body&"' where boardid in ( "&request("boardid")&" )"
conn.execute(sql)
end if
response.write "设置成功。"
end if
end sub


sub pt_color1
dim pt_color,pt_Tablebackcolor,pt_aTablebackcolor,pt_Tabletitlecolor,pt_aTabletitlecolor,pt_Tablebodycolor,pt_aTablebodycolor,pt_TableFontcolor,pt_TableContentcolor,pt_AlertFontColor,pt_ContentTitle,pt_BodyFontColor,pt_BoardLinkColor,pt_user_mc_guotiety,pt_NavLighColor,pt_NavDarkColor,pt_IEbarColor,pt_cr,pt_cg,pt_cb,pt_user_fc_bri,Forum_body

pt_color=lcase(request("pt_color"))
if pt_color<>"" then
'系数使用的方法：
'为了和主色调选择在相同的色系
'采用在主色调的基础上进行调整的方式，当主色调选定后
'其他的颜色按照主色调的颜色比例进行调节
'并且根据主色调的颜色明亮度的不同
'生成颜色向黑、白两色的趋近程度不同
'以便保持颜色的协调
'以下的系数调整
'是指从用户所选择的主色调向不同的方向靠近的比例
'取值范围（定义域）在0到1之间
'数值越大越靠近主色调
'一般的深背景是向黑色靠近
'如：边框、字体
'其他的向白色靠近
'如：标题表格、表格体颜色等

'关于名称和晕光的颜色选择
'基本是选择与主色调无关的颜色
'在选择上有个人的主观想象
'用户可以在选择后再进行调整

'制作：葡萄 OICQ：78891408
'2002年5月17日

'-------------------------------------------------------------
'参数开始
pt_Tablebackcolor=30'表格边框颜色一
pt_aTablebackcolor=60'表格边框颜色二
pt_Tabletitlecolor=1.0'标题表格颜色一（深背景）为所选定的颜色实际无效
pt_aTabletitlecolor=60'标题表格颜色二（浅背景）
pt_Tablebodycolor=85'表格体颜色一
pt_aTablebodycolor=95'表格体颜色二(1和2颜色在首页显示中穿插)
pt_TableFontcolor=50'表格标题栏字体颜色
pt_TableContentcolor=45'表格内容栏字体颜色
pt_AlertFontColor=55'警告提醒语句的颜色
pt_ContentTitle=58'显示帖子的时候，相关帖子，转发帖子，回复等的颜色
pt_BodyFontColor=40'网页字体颜色（表格外）
pt_BoardLinkColor=50'首页连接颜色如版面连接
pt_user_mc_guotiety=35'所有用户（一般用户、版主、管理员、贵宾）名称上光晕颜色与字体颜色的亮度比值系数
pt_NavLighColor=10'顶部菜单表格背景(浅背景)
pt_NavDarkColor=10'顶部菜单表格背景(深背景)
pt_IEbarColor=10'浏览器边框颜色
'-------------------------------------------------------------
'以下不是参数，如果没有学习过ASP，请不要进行调整

pt_cr=pt_color_r(pt_color)
pt_cg=pt_color_g(pt_color)
pt_cb=pt_color_b(pt_color)
pt_user_fc_bri=color_bace(pt_cr,pt_cg,pt_cb,140)'所有用户（一般用户、版主、管理员、贵宾）名称字体颜色的调节方案函数****带系数****(注意，此系数未对用户公开，轻易不要调整，作用是通过计算RGB色彩的分配比例，来确定不同的配色方案的实际是一个)


Tablebackcolor=color_result(pt_Tablebackcolor,pt_cr,pt_cg,pt_cb,1)'表格边框颜色一
aTablebackcolor=color_result(pt_aTablebackcolor,pt_cr,pt_cg,pt_cb,1)'表格边框颜色二
Tabletitlecolor=pt_color'标题表格颜色一（深背景）
aTabletitlecolor=color_result(pt_aTabletitlecolor,pt_cr,pt_cg,pt_cb,0)'标题表格颜色二（浅背景）
Tablebodycolor=color_result(pt_Tablebodycolor,pt_cr,pt_cg,pt_cb,0)'表格体颜色一
aTablebodycolor=color_result(pt_aTablebodycolor,pt_cr,pt_cg,pt_cb,0)'表格体颜色二(1和2颜色在首页显示中穿插)
TableFontcolor=color_result(pt_TableFontcolor,pt_cr,pt_cg,pt_cb,1)'表格标题栏字体颜色
TableContentcolor=color_result(pt_TableContentcolor,pt_cr,pt_cg,pt_cb,1)'表格内容栏字体颜色
AlertFontColor=color_result(pt_AlertFontColor,pt_cr,pt_cg,pt_cb,1)'警告提醒语句的颜色
ContentTitle=color_result(pt_ContentTitle,pt_cr,pt_cg,pt_cb,1)'显示帖子的时候，相关帖子，转发帖子，回复等的颜色
BodyFontColor=color_result(pt_BodyFontColor,pt_cr,pt_cg,pt_cb,1)'网页字体颜色（表格外）
BoardLinkColor=color_result(pt_BoardLinkColor,pt_cr,pt_cg,pt_cb,1)'首页连接颜色如版面连接
user_fc=color_fc_result(pt_user_fc_bri,pt_user_mc_guotiety,pt_cr,pt_cg,pt_cb,1,0)'一般用户名称字体颜色
user_mc=color_fc_result(pt_user_fc_bri,pt_user_mc_guotiety,pt_cr,pt_cg,pt_cb,0,0)'一般用户名称上的光晕颜色
bmaster_fc=color_fc_result(pt_user_fc_bri,pt_user_mc_guotiety,pt_cr,pt_cg,pt_cb,1,1)'版主名称字体颜色
bmaster_mc=color_fc_result(pt_user_fc_bri,pt_user_mc_guotiety,pt_cr,pt_cg,pt_cb,0,1)'版主名称上的光晕颜色
master_fc=color_fc_result(pt_user_fc_bri,pt_user_mc_guotiety,pt_cr,pt_cg,pt_cb,1,2)'管理员名称字体颜色
master_mc=color_fc_result(pt_user_fc_bri,pt_user_mc_guotiety,pt_cr,pt_cg,pt_cb,0,2)'管理员名称上的光晕颜色
vip_fc=color_fc_result(pt_user_fc_bri,pt_user_mc_guotiety,pt_cr,pt_cg,pt_cb,1,3)'贵宾名称字体颜色
vip_mc=color_fc_result(pt_user_fc_bri,pt_user_mc_guotiety,pt_cr,pt_cg,pt_cb,0,3)'贵宾名称上的光晕颜色
NavLighColor=color_result(pt_NavLighColor,pt_cr,pt_cg,pt_cb,0)'顶部菜单表格背景(浅背景)
NavDarkColor=color_result(pt_NavDarkColor,pt_cr,pt_cg,pt_cb,1)'顶部菜单表格背景(深背景)
IEbarColor=color_result(pt_IEbarColor,pt_cr,pt_cg,pt_cb,0)'浏览器边框颜色

if trim(request("skinid"))="" and trim(request("boardid"))="" then
Founderr=true
Errmsg=Errmsg+"<br>"+"<li>请选择保存的模板名称"
else
Forum_body=Tablebackcolor & "," & aTablebackcolor & "," & Tabletitlecolor & "," & aTabletitlecolor & "," & Tablebodycolor & "," & aTablebodycolor & "," & TableFontcolor & "," & TableContentcolor & "," & AlertFontColor & "," & ContentTitle & "," & AlertFontColor & "," & request("ForumBody") & "," & request("TableWidth") & "," & BodyFontColor & "," & BoardLinkColor & "," & user_fc & "," & user_mc & "," & bmaster_fc & "," & bmaster_mc & "," & master_fc & "," & master_mc & "," & vip_fc & "," & vip_mc & "," & NavLighColor & "," & NavDarkColor & "," & IEbarColor
'response.write Forum_body
if request("skinid")<>"" then
sql = "update config set Forum_body='"&Forum_body&"' where id in ( "&request("skinid")&" )"
conn.execute(sql)
end if
if request("boardid")<>"" then
sql = "update board set Forum_body='"&Forum_body&"' where boardid in ( "&request("boardid")&" )"
conn.execute(sql)
end if
response.write "设置成功。"
end if
else
Response.Write "数据为空"
end if
end sub

function pt_color_r(main_color)
     dim pt_rx1,pt_rx2,pt_rx3
     pt_rx1=ltrim(rtrim(main_color))
     pt_rx2=mid(pt_rx1,2,1)
     pt_rx3=mid(pt_rx1,3,1)
     pt_color_r=pt_color_DCH(pt_rx2,pt_rx3)
end function

function pt_color_g(main_color)
     dim pt_gx1,pt_gx2,pt_gx3
     pt_gx1=ltrim(rtrim(main_color))
     pt_gx2=mid(pt_gx1,4,1)
     pt_gx3=mid(pt_gx1,5,1)
     pt_color_g=pt_color_DCH(pt_gx2,pt_gx3)
end function

function pt_color_b(main_color)
     dim pt_bx1,pt_bx2,pt_bx3
     pt_bx1=ltrim(rtrim(main_color))
     pt_bx2=mid(pt_bx1,6,1)
     pt_bx3=mid(pt_bx1,7,1)
     pt_color_b=pt_color_DCH(pt_bx2,pt_bx3)
end function

function pt_color_DCH(pt_H_x4,pt_H_x5)
     dim pt_xa1,pt_xa2
      pt_xa1=cint(pt_DCH_H(pt_H_x4))
      pt_xa2=cint(pt_DCH_H(pt_H_x5))
      pt_color_DCH=pt_xa1*16+pt_xa2
end function

function pt_DCH_H(x6)
     dim x7
     select case x6
     case "f"
     x7=15
     case "e"
     x7=14
     case "d"
     x7=13
     case "c"
     x7=12
     case "b"
     x7=11
     case "a"
     x7=10
     case else
     x7=x6
     end select
     pt_DCH_H=x7
end function

function HCD_D(x8)
     dim x9
     select case x8
     case 15
     x9="f"
     case 14
     x9="e"
     case 13
     x9="d"
     case 12
     x9="c"
     case 11
     x9="b"
     case 10
     x9="a"
     case else
     x9=x8
     end select
     HCD_D=x9
end function

function color_result(pt_x,pt_xr,pt_xg,pt_xb,pt_i)
     dim x_r,x_g,x_b,xishu
     xishu=pt_x
     select case pt_i
     case 0
     x_r=color256(((255-pt_xr)*xishu+pt_xr*100)\100)
     x_g=color256(((255-pt_xg)*xishu+pt_xg*100)\100)
     x_b=color256(((255-pt_xb)*xishu+pt_xb*100)\100)
     case 1
     x_r=color256((pt_xr*100-pt_xr*xishu)\100)
     x_g=color256((pt_xg*100-pt_xg*xishu)\100)
     x_b=color256((pt_xb*100-pt_xb*xishu)\100)
     case 2
     xishu=((255-min(pt_xg,pt_xb,256))*pt_x+min(pt_xr,pt_xg,xb))/255
     xr=255
     x_r=color256(pt_xr*xishu\100)
     x_g=color256(pt_xg*xishu\100)
     x_b=color256(pt_xb*xishu\100)
     case 3
     xishu=min(pt_xg,pt_xb,256)*pt_x/255*100
     x_r=color256(pt_xr*(xishu\100))
     x_g=color256(pt_xg*(xishu\100))
     x_b=color256(pt_xb*(xishu\100))
     case else
     x_r=pt_xr
     x_g=pt_xg
     x_b=pt_xb
     end select
     color_result="#" & color_HCD(x_r) & color_HCD(x_g) & color_HCD(x_b)
end function

function color_HCD(pt_D_x)
     dim pt_x1,pt_x2
     pt_x1=pt_D_x\16
     pt_x2=pt_D_x mod 16
     color_HCD=HCD_D(pt_x1) & HCD_D(pt_x2)
end function

function color256(x)
     if x>255 then
     x=255
     end if
     color256=x
end function

function color_fc_result(pt_mov,pt_xa,xr,xg,xb,i,dengji)
'     pt_base=color_bace(xr,xg,xb,140)'****带系数****
	 dim pt_base,x_r,x_g,x_b
	 pt_base=pt_mov
	 select case dengji
     case 0
     x_r=xr
     x_g=xg
     x_b=xb
'     x_r=bace_r(xr,xg,xb,pt_base)
'     x_g=bace_g(xr,xg,xb,pt_base)
'     x_b=bace_b(xr,xg,xb,pt_base)
     case 1
     x_r=bace_r(xr,xb,xg,pt_base)
     x_g=bace_g(xr,xb,xg,pt_base)
     x_b=bace_b(xr,xb,xg,pt_base)
'     x_r=bace_r(xg,xb,xr,pt_base)
'     x_g=bace_g(xg,xb,xr,pt_base)
'     x_b=bace_b(xg,xb,xr,pt_base)
     case 2
     x_r=bace_r(xb,xr,xg,pt_base)
     x_g=bace_g(xb,xr,xg,pt_base)
     x_b=bace_b(xb,xr,xg,pt_base)
     case 3
     x_r=bace_r(xg,xr,xb,pt_base)
     x_g=bace_g(xg,xr,xb,pt_base)
     x_b=bace_b(xg,xr,xb,pt_base)
     case else
     x_r=bace_r(xr,xb,xg,pt_base)
     x_g=bace_g(xr,xb,xg,pt_base)
     x_b=bace_b(xr,xb,xg,pt_base)
     end select
     if x_r=0 then
        x_r=1
     end if
     if x_g=0 then
        x_g=1
     end if
     if x_b=0 then
        x_b=1
     end if
     x_r=color256(x_r)
     x_g=color256(x_g)
     x_b=color256(x_b)
     if i=1 then
     color_fc_result=color_result(pt_xa,x_r,x_g,x_b,1)
     else
     color_fc_result=color_result(pt_xa,x_r,x_g,x_b,4)
     end if
end function

function bace_r(bace_r_r,bace_r_g,bace_r_b,bace_r_x)
        select case bace_r_x
        case "ab"
        bace_r=2*bace_r_b*bace_r_g\(bace_r_r+bace_r_g)
        case "ac"
        bace_r=2*bace_r_g*bace_r_b\(bace_r_r+bace_r_b)
        case "bc"
        bace_r=(bace_r_g+bace_r_b)\2
        case "a_b"
        bace_r=bace_r_g
        case "a_c"
        bace_r=bace_r_b
        case "b_c"
        bace_r=bace_r_r
        case else
        end select
end function

function bace_g(bace_g_r,bace_g_g,bace_g_b,bace_g_x)
        select case bace_g_x
        case "ab"
        bace_g=2*bace_g_b*bace_g_r\(bace_g_r+bace_g_g)
        case "ac"
        bace_g=(bace_g_r+bace_g_b)\2
        case "bc"
        bace_g=2*bace_g_r*bace_g_b\(bace_g_r+bace_g_b)
        case "a_b"
        bace_g=bace_g_r
        case "a_c"
        bace_g=bace_g_g
        case "b_c"
        bace_g=bace_g_b
        case else
        end select
end function

function bace_b(bace_b_r,bace_b_g,bace_b_b,bace_b_x)
        select case bace_b_x
        case "ab"
        bace_b=(bace_b_r+bace_b_g)\2
        case "ac"
        bace_b=2*bace_b_g*bace_b_r\(bace_b_g+bace_b_b)
        case "bc"
        bace_b=2*bace_b_r*bace_b_b\(bace_b_g+bace_b_b)
        case "a_b"
        bace_b=bace_b_b
        case "a_c"
        bace_b=bace_b_r
        case "b_c"
        bace_b=bace_b_g
        case else
        end select
end function

function color_bace(pt_bace_r,pt_bace_g,pt_bace_b,pt_bace_n)
dim pt_bace
if pt_bace_r=0 then
   pt_bace_r=1
end if
if pt_bace_g=0 then
   pt_bace_g=1
end if
if pt_bace_b=0 then
   pt_bace_b=1
end if
        if (pt_bace_r*100\pt_bace_g) > pt_bace_n then
                if (pt_bace_g*100\pt_bace_b) > pt_bace_n then
                                pt_bace="a_c"
                else
                        if (pt_bace_b*100\pt_bace_g) > pt_bace_n then
                                if (pt_bace_r*100\pt_bace_b) > pt_bace_n then
                                        pt_bace="a_b"
                                else
                                        if (pt_bace_b*100\pt_bace_r) > pt_bace_n then
                                                pt_bace="b_c"
                                        else
                                                pt_bace="ac"
                                        end if
                                end if
                        else
                                pt_bace="bc"
                        end if
                end if
        else
                if (pt_bace_g*100\pt_bace_r) > pt_bace_n then
                        if (pt_bace_r*100\pt_bace_b) > pt_bace_n then
                                pt_bace="b_c"
                        else
                                if (pt_bace_b*100\pt_bace_r) > pt_bace_n then
                                        if (pt_bace_g*100\pt_bace_b) > pt_bace_n then
                                                pt_bace="a_b"
                                        else
                                                if (pt_bace_b*100\pt_bace_g) > pt_bace_n then
                                                        pt_bace="a_c"
                                                else
                                                        pt_bace="bc"
                                                end if
                                        end if
                                 else
                                        pt_bace="ac"
                                 end if
                        end if
                else
                        pt_bace="ab"
                end if
        end if
        color_bace=pt_bace
end function

function min(xa,xb,xc)
if xa>xb then
x_min=xb
else
x_min=xa
end if
if xc>xb then
x_min=xb
else
x_min=xc
end if
min=x_min
end function

%>