style.asp

一个不错的论坛原代码

<%sqlstyle="select top 1 * from stycss "
if request.cookies("fyskin")<>"" then
h_sid=request.cookies("fyskin")
else
sql="select s_id from home"
set rs=conn.execute(sql)
if not rs.eof then
h_sid=rs("s_id")
end if
set rs=nothing
if request.querystring("l_id")<>""then
 sql="select s_id from lanmu where l_id="&request.querystring("l_id")&""
set rs=conn.execute(sql)
if not rs.eof then
h_sid=rs("s_id")
end if
set rs=nothing
end if
end if
sqlstyle=sqlstyle&"where s_id="&h_sid&""
set rsstyle=conn.execute(sqlstyle)
if not rsstyle.eof then
background=rsstyle("background")
hColor=rsstyle("hColor")
tColor=rsstyle("tColor")
tColor1=rsstyle("tColor1")
tColor2=rsstyle("tColor2")
bdtj=rsstyle("bdtj")
tdc =rsstyle("tdc")
tdc1=rsstyle("tdc1")
tdc2=rsstyle("tdc2")
tdc3=rsstyle("tdc3")
top1=rsstyle("top1")
link=rsstyle("link")
topimg=rsstyle("topimg")
r_reply=rsstyle("r_reply")
t_reply=rsstyle("t_reply")
v_reply=rsstyle("v_reply")
s_announce=rsstyle("s_announce")
s_announcelink=rsstyle("s_announcelink")
s_bqannounce=rsstyle("s_bqannounce")
s_bqannouncelink=rsstyle("s_bqannouncelink")
s_fannounce=rsstyle("s_fannounce")
s_fannouncelink=rsstyle("s_fannouncelink")
s_fannounceopen=rsstyle("s_fannounceopen")
s_fannouncewidth=rsstyle("s_fannouncewidth")
s_fannounceheight=rsstyle("s_fannounceheight")
s_fannouncelinksay=rsstyle("s_fannouncelinksay")
else
Response.Cookies("fyskin")=""
response.write("样式参数调用失败，请点击<a href=index.asp>此处</a>重新进入论坛")
response.end
end if
set rsstyle=nothing
'写出底部广告
sub announce()
response.write("<br><center>")
if s_bqannouncelink<>"" then
response.write("<a href="""&s_bqannouncelink&""" target=_blank>"&s_bqannounce&"</a>")
else
response.write(s_bqannounce)
end if
response.write("<center>")
end sub
'写出浮动广告
sub fannounce()
if s_fannounceopen=1 then
response.write"<script>var mvtLight="""&s_fannounce&""";"&_
"var mvtWidth="&s_fannouncewidth&";"&_
"var mvtHeight="&s_fannounceheight&";"&_
"var mvtLink="""&s_fannouncelink&""";"&_
"var mvtAlt="""&s_fannouncelinksay&""";</script>"
response.write("<script src=js/adv.js></script>")
end if
end sub
%>