top.asp

小说站源代码文件

<%
dim a,b,c,bgcolor,fontcolor,fontsize,fontface
a=CheckSql(request("a"))
if a="" then
a=Request.Cookies("cnend")("a")
end if
if a<>"" then
CheckSqlnum(a)
a=int(a)
else
a=CnEndRadbgcolor
end if

b=CheckSql(request("b"))
if b="" then
b=Request.Cookies("cnend")("b")
end if
if b<>"" then
CheckSqlnum(b)
b=int(b)
else
b=CnEndRadfontcolor
end if

c=CheckSql(request("c"))
if c="" then
c=Request.Cookies("cnend")("c")
end if
if c<>"" then
CheckSqlnum(c)
c=int(c)
else
c=CnEndRadfontsize
end if

d=CheckSql(request("d"))
if d="" then
d=Request.Cookies("cnend")("d")
end if
if d<>"" then
CheckSqlnum(d)
d=int(d)
else
d=CnEndRadfontface
end if

e=CheckSql(request("e"))
if e="" then
e=Request.Cookies("cnend")("e")
end if
if e<>"" then
CheckSqlnum(e)
e=int(e)
else
e=CnEndRadfontcll
end if

f=CheckSql(request("f"))
if f="" then
f=Request.Cookies("cnend")("f")
end if
if f<>"" then
CheckSqlnum(f)
f=int(f)
else
f=CnEndRadfontlhet
end if

call SaveCookie_cnend()

if a=0 then
	bgcolor="f0f0f0"
	elseif a=1 then
	bgcolor="f0f0f0"
	elseif a=2 then
	bgcolor="ffffff"
	elseif a=3 then
	bgcolor="eefaee"
	elseif a=4 then
	bgcolor="e7f4fe"
	elseif a=5 then
	bgcolor="e9faff"
	elseif a=6 then
	bgcolor="e6f3ff"
	elseif a=7 then
	bgcolor="e4ebf1"
	elseif a=8 then
	bgcolor="eeeeee"
	elseif a=9 then
	bgcolor="eaeaea"
	elseif a=10 then
	bgcolor="e4e1d8"
	elseif a=11 then
	bgcolor="e6e6e6"
	elseif a=12 then
	bgcolor="ffffed"
	elseif a=13 then
	bgcolor="fcefff"
else
	bgcolor="f0f0f0"
end if

if b=0 then
	fontcolor="000000"
	elseif b=1 then
	fontcolor="333333"
	elseif b=2 then
	fontcolor="000000"
	elseif b=3 then
	fontcolor="ff0000"
	elseif b=4 then
	fontcolor="006600"
	elseif b=5 then
	fontcolor="0000ff"
	elseif b=6 then
	fontcolor="660000"
	elseif b=7 then
	fontcolor="darkslategray"
	
else
	fontcolor="000000"
end if

if c=0 then
	fontsize=12
	elseif c=1 then
	fontsize=9
	elseif c=2 then
	fontsize=10
	elseif c=3 then
	fontsize=11
	elseif c=4 then
	fontsize=12
	elseif c=5 then
	fontsize=14
	elseif c=6 then
	fontsize=16
	elseif c=7 then
	fontsize=18
	elseif c=8 then
	fontsize=20
	elseif c=9 then
	fontsize=22
	elseif c=10 then
	fontsize=24
	elseif c=11 then
	fontsize=26
	elseif c=12 then
	fontsize=28
	elseif c=13 then
	fontsize=32
	elseif c=14 then
	fontsize=36
	elseif c=15 then
	fontsize=48
	elseif c=16 then
	fontsize=72
else
	fontsize=12
end if

if d=0 then
	fontface="宋体"
	elseif d=1 then
	fontface="黑体"
	elseif d=2 then
	fontface="隶书"
	elseif d=3 then
	fontface="幼圆"
	elseif d=4 then
	fontface="仿宋_GB2312"
	elseif d=5 then
	fontface="楷体_GB2312"
	elseif d=6 then
	fontface="华文彩云"
	elseif d=7 then
	fontface="华文琥珀"
	elseif d=8 then
	fontface="华文新魏"
	elseif d=9 then
	fontface="华文行楷"
	elseif d=10 then
	fontface="新宋体"
	elseif d=11 then
	fontface="Arial"
	elseif d=12 then
	fontface="Book Antiqua"
	elseif d=13 then
	fontface="Century Gothic"
	elseif d=14 then
	fontface="Courier New"
	elseif d=15 then
	fontface="Georgia"
	elseif d=16 then
	fontface="Impact"
	elseif d=17 then
	fontface="Tahoma"
	elseif d=18 then
	fontface="Times New Roman"
	elseif d=19 then
	fontface="Verdana"
	elseif d=20 then
	fontface="微软雅黑"
else
	fontface="宋体"
end if

if e=0 then
	fontcll="font-variant:normal;"
	elseif e=1 then
	fontcll="font-weight:bold;"
	elseif e=2 then
	fontcll="font-style:italic;"
	elseif e=3 then
	fontcll="font-weight:bold;font-style:italic;"
	elseif e=4 then
	fontcll="text-decoration:overline;"
	elseif e=5 then
	fontcll="text-decoration:underline;"
	elseif e=6 then
	fontcll="text-decoration:line-through;"
	elseif e=7 then
	fontcll="text-decoration:overline line-through;"
	elseif e=8 then
	fontcll="text-decoration:overline underline;"
	elseif e=9 then
	fontcll="text-decoration:underline line-through;"
	elseif e=10 then
	fontcll="text-decoration:overline underline line-through;"
	elseif e=11 then
	fontcll="font-weight:bold;text-decoration:overline;"
	elseif e=12 then
	fontcll="font-style:italic;text-decoration:overline;"
	elseif e=13 then
	fontcll="font-weight:bold;font-style:italic;text-decoration:overline;"
	elseif e=14 then
	fontcll="font-weight:bold;text-decoration:underline;"
	elseif e=15 then
	fontcll="font-style:italic;text-decoration:underline;"
	elseif e=21 then
	fontcll="font-weight:bold;font-style:italic;text-decoration:underline;"
	elseif e=16 then
	fontcll="font-weight:bold;text-decoration:line-through;"
	elseif e=22 then
	fontcll="font-style:italic;text-decoration:line-through;"
	elseif e=23 then
	fontcll="font-weight:bold;font-style:italic;text-decoration:line-through;"
	elseif e=17 then
	fontcll="font-weight:bold;text-decoration:overline line-through;"
	elseif e=24 then
	fontcll="font-style:italic;text-decoration:overline line-through;"
	elseif e=25 then
	fontcll="font-weight:bold;font-style:italic;text-decoration:overline line-through;"
	elseif e=18 then
	fontcll="font-weight:bold;text-decoration:overline underline;"
	elseif e=26 then
	fontcll="font-style:italic;text-decoration:overline underline;"
	elseif e=27 then
	fontcll="font-weight:bold;font-style:italic;text-decoration:overline underline;"
	elseif e=19 then
	fontcll="font-weight:bold;text-decoration:underline line-through;"