colortemplates.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

strSql = strSql & " C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = 'blue', C_STRVISITEDTEXTDECORATION = 'none', "
strSql = strSql & " C_STRACTIVELINKCOLOR = 'red', C_STRHOVERFONTCOLOR = 'red', C_STRHOVERTEXTDECORATION = 'none', "
strSql = strSql & " C_STRHEADCELLCOLOR = 'midnightblue', C_STRHEADFONTCOLOR = 'mintcream', C_STRCATEGORYCELLCOLOR = 'slateblue', "
strSql = strSql & " C_STRCATEGORYFONTCOLOR = 'mintcream', C_STRFORUMFIRSTCELLCOLOR = 'whitesmoke', C_STRFORUMCELLCOLOR = 'whitesmoke', "
strSql = strSql & " C_STRALTFORUMCELLCOLOR = 'gainsboro', C_STRFORUMFONTCOLOR = 'midnightblue', C_STRFORUMLINKCOLOR = 'darkblue', "
strSql = strSql & " C_STRTABLEBORDERCOLOR = '000000', C_STRPOPUPTABLECOLOR = 'navyblue', C_STRPOPUPBORDERCOLOR = '000000', "
strSql = strSql & " C_STRNEWFONTCOLOR = 'blue', C_STRINSISTFONTCOLOR = '#990000', C_STRTOPICWIDTHLEFT = '100', C_STRTOPICNOWRAPLEFT = '1', "
strSql = strSql & " C_STRTOPICWIDTHRIGHT = '95%', C_STRTABLEWIDTH = '95%', C_STRTOPICNOWRAPRIGHT = '0' WHERE CONFIG_ID = " & 1
End If
If t_select = "slide" then
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRDEFAULTFONTFACE = '宋体, Arial, Helvetica', C_STRDEFAULTFONTSIZE = '2', C_STRHEADERFONTSIZE = '4', "
strSql = strSql & " C_STRFOOTERFONTSIZE = '1', C_STRPAGEBGCOLOR = 'slategrey', C_STRDEFAULTFONTCOLOR = 'lightsteelblue', C_STRLINKCOLOR = 'azure', "
strSql = strSql & " C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = 'orange', C_STRVISITEDTEXTDECORATION = 'none', "
strSql = strSql & " C_STRACTIVELINKCOLOR = 'yellowgreen', C_STRHOVERFONTCOLOR = 'red', C_STRHOVERTEXTDECORATION = 'none', "
strSql = strSql & " C_STRHEADCELLCOLOR = 'dimgray', C_STRHEADFONTCOLOR = 'black', C_STRCATEGORYCELLCOLOR = 'red', "
strSql = strSql & " C_STRCATEGORYFONTCOLOR = 'black', C_STRFORUMFIRSTCELLCOLOR = 'red', C_STRFORUMCELLCOLOR = 'black', "
strSql = strSql & " C_STRALTFORUMCELLCOLOR = 'blue', C_STRFORUMFONTCOLOR = 'azure', C_STRFORUMLINKCOLOR = 'lightgreen', "
strSql = strSql & " C_STRTABLEBORDERCOLOR = 'darkgray', C_STRPOPUPTABLECOLOR = 'red', C_STRPOPUPBORDERCOLOR = '000000', "
strSql = strSql & " C_STRNEWFONTCOLOR = 'red', C_STRINSISTFONTCOLOR = '#990000', C_STRTOPICWIDTHLEFT = '100', C_STRTOPICNOWRAPLEFT = '1', "
strSql = strSql & " C_STRTOPICWIDTHRIGHT = '95%', C_STRTABLEWIDTH = '95%', C_STRTOPICNOWRAPRIGHT = '0' WHERE CONFIG_ID = " & 1
End If
If t_select = "fantasy" then
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRDEFAULTFONTFACE = '宋体, Arial, Helvetica', C_STRDEFAULTFONTSIZE = '2', C_STRHEADERFONTSIZE = '4', "
strSql = strSql & " C_STRFOOTERFONTSIZE = '1', C_STRPAGEBGCOLOR = '000000', C_STRDEFAULTFONTCOLOR = 'mintcream', C_STRLINKCOLOR = 'red', "
strSql = strSql & " C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = 'red', C_STRVISITEDTEXTDECORATION = 'none', "
strSql = strSql & " C_STRACTIVELINKCOLOR = 'red', C_STRHOVERFONTCOLOR = 'firebrick', C_STRHOVERTEXTDECORATION = 'none', "
strSql = strSql & " C_STRHEADCELLCOLOR = 'lightslateblue', C_STRHEADFONTCOLOR = 'mintcream', C_STRCATEGORYCELLCOLOR = 'midnightblue', "
strSql = strSql & " C_STRCATEGORYFONTCOLOR = 'mintcream', C_STRFORUMFIRSTCELLCOLOR = 'lightgray', C_STRFORUMCELLCOLOR = 'midnightblue', "
strSql = strSql & " C_STRALTFORUMCELLCOLOR = 'darkblue', C_STRFORUMFONTCOLOR = 'mintcream', C_STRFORUMLINKCOLOR = 'red', "
strSql = strSql & " C_STRTABLEBORDERCOLOR = '000000', C_STRPOPUPTABLECOLOR = 'midnightblue', C_STRPOPUPBORDERCOLOR = '000000', "
strSql = strSql & " C_STRNEWFONTCOLOR = 'red', C_STRINSISTFONTCOLOR = '#990000', C_STRTOPICWIDTHLEFT = '100', C_STRTOPICNOWRAPLEFT = '1', "
strSql = strSql & " C_STRTOPICWIDTHRIGHT = '95%', C_STRTABLEWIDTH = '95%', C_STRTOPICNOWRAPRIGHT = '0' WHERE CONFIG_ID = " & 1
End If
If t_select = "px" then
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRDEFAULTFONTFACE = '宋体, Arial, Helvetica', C_STRDEFAULTFONTSIZE = '2', C_STRHEADERFONTSIZE = '4', "
strSql = strSql & " C_STRFOOTERFONTSIZE = '1', C_STRPAGEBGCOLOR = '263C6D', C_STRDEFAULTFONTCOLOR = '3399CC', C_STRLINKCOLOR = 'FFFFFF', "
strSql = strSql & " C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = '55CC55', C_STRVISITEDTEXTDECORATION = 'none', "
strSql = strSql & " C_STRACTIVELINKCOLOR = '990000', C_STRHOVERFONTCOLOR = 'DD0000', C_STRHOVERTEXTDECORATION = 'none', "
strSql = strSql & " C_STRHEADCELLCOLOR = '1177AA', C_STRHEADFONTCOLOR = 'F9F9F9', C_STRCATEGORYCELLCOLOR = '006699', "
strSql = strSql & " C_STRCATEGORYFONTCOLOR = 'EEEEEE', C_STRFORUMFIRSTCELLCOLOR = '263C6D', C_STRFORUMCELLCOLOR = '263C6D', "
strSql = strSql & " C_STRALTFORUMCELLCOLOR = '263C6D', C_STRFORUMFONTCOLOR = '3399CC', C_STRFORUMLINKCOLOR = '000066', "
strSql = strSql & " C_STRTABLEBORDERCOLOR = '3399CC', C_STRPOPUPTABLECOLOR = '263C6D', C_STRPOPUPBORDERCOLOR = '3399CC', "
strSql = strSql & " C_STRNEWFONTCOLOR = '3399CC', C_STRINSISTFONTCOLOR = '#990000', C_STRTOPICWIDTHLEFT = '100', C_STRTOPICNOWRAPLEFT = '1', "
strSql = strSql & " C_STRTOPICWIDTHRIGHT = '95%', C_STRTABLEWIDTH = '95%', C_STRTOPICNOWRAPRIGHT = '0' WHERE CONFIG_ID = " & 1
End If
If t_select = "madonna" then
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRDEFAULTFONTFACE = '宋体, Arial, Helvetica', C_STRDEFAULTFONTSIZE = '2', C_STRHEADERFONTSIZE = '4', "
strSql = strSql & " C_STRFOOTERFONTSIZE = '1', C_STRPAGEBGCOLOR = 'FFFFFF', C_STRDEFAULTFONTCOLOR = '000000', C_STRLINKCOLOR = '40A0A0', "
strSql = strSql & " C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = '40A0A0', C_STRVISITEDTEXTDECORATION = 'none', "
strSql = strSql & " C_STRACTIVELINKCOLOR = 'FF8080', C_STRHOVERFONTCOLOR = 'FF8080', C_STRHOVERTEXTDECORATION = 'none', "
strSql = strSql & " C_STRHEADCELLCOLOR = '40A0A0', C_STRHEADFONTCOLOR = 'FFFFFF', C_STRCATEGORYCELLCOLOR = 'FFFFFF', "
strSql = strSql & " C_STRCATEGORYFONTCOLOR = '000000', C_STRFORUMFIRSTCELLCOLOR = 'F9F9F9', C_STRFORUMCELLCOLOR = 'F9F9F9', "
strSql = strSql & " C_STRALTFORUMCELLCOLOR = 'gainsboro', C_STRFORUMFONTCOLOR = '000000', C_STRFORUMLINKCOLOR = '40A0A0', "
strSql = strSql & " C_STRTABLEBORDERCOLOR = '000000', C_STRPOPUPTABLECOLOR = 'F9F9F9', C_STRPOPUPBORDERCOLOR = '000000', "
strSql = strSql & " C_STRNEWFONTCOLOR = '000000', C_STRINSISTFONTCOLOR = '#990000', C_STRTOPICWIDTHLEFT = '100', C_STRTOPICNOWRAPLEFT = '1', "
strSql = strSql & " C_STRTOPICWIDTHRIGHT = '95%', C_STRTABLEWIDTH = '95%', C_STRTOPICNOWRAPRIGHT = '0' WHERE CONFIG_ID = " & 1
End If
If t_select = "blacksun" then
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRDEFAULTFONTFACE = '宋体, Arial, Helvetica', C_STRDEFAULTFONTSIZE = '2', C_STRHEADERFONTSIZE = '3', "
strSql = strSql & " C_STRFOOTERFONTSIZE = '1', C_STRPAGEBGCOLOR = '000000', C_STRDEFAULTFONTCOLOR = 'FFFFFF', C_STRLINKCOLOR = 'FFFFFF', "
strSql = strSql & " C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = 'FFFFFF', C_STRVISITEDTEXTDECORATION = 'none', "
strSql = strSql & " C_STRACTIVELINKCOLOR = 'FFFFFF', C_STRHOVERFONTCOLOR = 'FFFFFF', C_STRHOVERTEXTDECORATION = 'none', "
strSql = strSql & " C_STRHEADCELLCOLOR = '27467A', C_STRHEADFONTCOLOR = 'FFFFFF', C_STRCATEGORYCELLCOLOR = 'D46B2A', "
strSql = strSql & " C_STRCATEGORYFONTCOLOR = 'FFFFFF', C_STRFORUMFIRSTCELLCOLOR = '264C8B', C_STRFORUMCELLCOLOR = '264C8B', "
strSql = strSql & " C_STRALTFORUMCELLCOLOR = '264C8B', C_STRFORUMFONTCOLOR = 'F9F9F9', C_STRFORUMLINKCOLOR = 'F9F9F9', "
strSql = strSql & " C_STRTABLEBORDERCOLOR = '000000', C_STRPOPUPTABLECOLOR = '264C8B', C_STRPOPUPBORDERCOLOR = '000000', C_STRINSISTFONTCOLOR = '#990000', "
strSql = strSql & " C_STRNEWFONTCOLOR = '264C8B', C_STRTOPICWIDTHLEFT = '100', C_STRTOPICNOWRAPLEFT = '1', "
strSql = strSql & " C_STRTOPICWIDTHRIGHT = '95%', C_STRTABLEWIDTH = '95%', C_STRTOPICNOWRAPRIGHT = '0' WHERE CONFIG_ID = " & 1
End If
If t_select = "ChinaXP_net_Default" Then
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRDEFAULTFONTFACE = '宋体, Arial, Helvetica', C_STRDEFAULTFONTSIZE = '2', C_STRHEADERFONTSIZE = '4', "
strSql = strSql & " C_STRFOOTERFONTSIZE = '1', C_STRPAGEBGIMAGE = '', C_STRPAGEBGCOLOR = '#313030', C_STRDEFAULTFONTCOLOR = '#FFFFFF', "
strSql = strSql & " C_STRLINKCOLOR = '#FFFFFF', C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = '#FFFFFF', "
strSql = strSql & " C_STRVISITEDTEXTDECORATION = 'none', C_STRACTIVELINKCOLOR = '#FFFFFF', C_STRHOVERFONTCOLOR = '#FFFFFF', "
strSql = strSql & " C_STRHOVERTEXTDECORATION = 'underline overline', C_STRHEADCELLCOLOR = '#39596B', C_STRHEADFONTCOLOR = '#FFFFFF', "
strSql = strSql & " C_STRCATEGORYCELLCOLOR = '#39596B', C_STRCATEGORYFONTCOLOR = '#FFFFFF', C_STRFORUMFIRSTCELLCOLOR = '#525552', "
strSql = strSql & " C_STRFORUMCELLCOLOR = '#525552', C_STRALTFORUMCELLCOLOR = '#737173', C_STRFORUMFONTCOLOR = '#FFFFFF', "
strSql = strSql & " C_STRFORUMLINKCOLOR = '#FFFFFF', C_STRTABLEBORDERCOLOR = '#000000', C_STRPOPUPTABLECOLOR = '#525552', "
strSql = strSql & " C_STRPOPUPBORDERCOLOR = '#000000', C_STRNEWFONTCOLOR = '#FFFFFF', C_STRINSISTFONTCOLOR = '#990000', C_STRTOPICWIDTHLEFT = '16%', "
strSql = strSql & " C_STRTOPICNOWRAPLEFT = '1', C_STRTOPICWIDTHRIGHT = '84%', C_STRTABLEWIDTH = '750', C_STRTOPICNOWRAPRIGHT = '0' WHERE CONFIG_ID = " & 1
End If
If t_select = "ChinaXP_net_Default_2" Then
	strSql = "UPDATE FORUM_CONFIG SET C_STRDEFAULTFONTFACE = '宋体, Arial, Helvetica', C_STRDEFAULTFONTSIZE = '2', C_STRHEADERFONTSIZE = '4', C_STRFOOTERFONTSIZE = '1', C_STRPAGEBGIMAGE = 'bg2.gif', C_STRPAGEBGCOLOR = '#FFFFFF', C_STRDEFAULTFONTCOLOR = '#333333', C_STRLINKCOLOR = '#333333', C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = '#333333', "
	strSql = strSql & "C_STRVISITEDTEXTDECORATION = 'none', C_STRACTIVELINKCOLOR = '#333333', C_STRHOVERFONTCOLOR = '#333333', C_STRHOVERTEXTDECORATION = 'underline overline', C_STRHEADCELLCOLOR = '#ADAA73', C_STRHEADFONTCOLOR = '#333333', C_STRCATEGORYCELLCOLOR = '#CCCC9D', C_STRCATEGORYFONTCOLOR = '#333333', C_STRFORUMFIRSTCELLCOLOR = '#DDDDBD', "
	strSql = strSql & "C_STRFORUMCELLCOLOR = '#f2f2e6', C_STRALTFORUMCELLCOLOR = '#EDEDDA', C_STRFORUMFONTCOLOR = '#333333', C_STRFORUMLINKCOLOR = '#333333', C_STRTABLEBORDERCOLOR = '#000000', C_STRPOPUPTABLECOLOR = '#DDDDBD', C_STRPOPUPBORDERCOLOR = '#000000', C_STRNEWFONTCOLOR = '#333333', C_STRINSISTFONTCOLOR = '#990000', C_STRTOPICWIDTHLEFT = '16%', C_STRTOPICNOWRAPLEFT = 1, "
	strSql = strSql & "C_STRTOPICWIDTHRIGHT = '84%', C_STRTABLEWIDTH = '750', C_STRTOPICNOWRAPRIGHT = 0 WHERE CONFIG_ID = 1"
End If
If t_select = "ChinaXP_net_Default_3" Then
	strSql = "UPDATE FORUM_CONFIG SET C_STRDEFAULTFONTFACE = '宋体, Arial, Helvetica', C_STRDEFAULTFONTSIZE = '2', C_STRHEADERFONTSIZE = '4', C_STRFOOTERFONTSIZE = '1', C_STRPAGEBGIMAGE = 'bg.gif', C_STRPAGEBGCOLOR = '#FFFFFF', C_STRDEFAULTFONTCOLOR = '#333333', C_STRLINKCOLOR = '#333333', C_STRLINKTEXTDECORATION = 'none', C_STRVISITEDLINKCOLOR = '#333333', "
	strSql = strSql & "C_STRVISITEDTEXTDECORATION = 'none', C_STRACTIVELINKCOLOR = '#333333', C_STRHOVERFONTCOLOR = '#333333', C_STRHOVERTEXTDECORATION = 'underline overline', C_STRHEADCELLCOLOR = '#A9B6CD', C_STRHEADFONTCOLOR = '#333333', C_STRCATEGORYCELLCOLOR = '#C5D3E6', C_STRCATEGORYFONTCOLOR = '#333333', C_STRFORUMFIRSTCELLCOLOR = '#EFF3F9', "
	strSql = strSql & "C_STRFORUMCELLCOLOR = '#f0F3Fa', C_STRALTFORUMCELLCOLOR = '#F2F8FF', C_STRFORUMFONTCOLOR = '#333333', C_STRFORUMLINKCOLOR = '#333333', C_STRTABLEBORDERCOLOR = '#60718B', C_STRPOPUPTABLECOLOR = '#EFF3F9', C_STRPOPUPBORDERCOLOR = '#60718B', C_STRNEWFONTCOLOR = '#333333', C_STRINSISTFONTCOLOR = '#990000', C_STRTOPICWIDTHLEFT = '16%', C_STRTOPICNOWRAPLEFT = 0, "
	strSql = strSql & "C_STRTOPICWIDTHRIGHT = '84%', C_STRTABLEWIDTH = '750', C_STRTOPICNOWRAPRIGHT = 0 WHERE CONFIG_ID = 1"
End If

my_Conn.Execute (strSql)
Application(strCookieURL & "ConfigLoaded") = ""
End if%>
<!--#INCLUDE file="inc_footer.asp" -->
<% Else %>
<% Response.Redirect "admin_login.asp" %>
<% End IF
Response.Redirect ("admin_config_colors.asp")%>