📄 admincs.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->
<body <%=background%> >
<%if request("action")="" then
%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr align="center">
<td colspan="3" <%=tColor%> class=tdc1 height=22>论坛基本样式设置 | <a href="?action=add">新建样式</a></td>
</tr>
<% sql="select s_id,bdtj2 from stycss"
set rs=conn.execute(sql)
i=1
do while not rs.eof %>
<tr>
<td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>样式<%=i%>：</td>
<td bgcolor=<%=tColor2%> class=tdc><a href="?action=show&s_id=<%=rs("s_id")%>" title="点击进入修改"><%=rs("bdtj2")%></a> </td>
</tr>
<%rs.movenext
i=i+1
loop
set rs=nothing%>
</table>
<%
elseif Request.QueryString("action")="do" then
delstycss=request.form("delstycss")
if delstycss=1 then
sql1="select s_id from home where s_id="&chktopic(request("s_id"))&""
set rs1=conn.execute(sql1)
if not rs1.eof then
errormsg="很抱歉，由于当前样式为默认样式，所以不能删除"
else
sql="delete from stycss where s_id="&chktopic(request("s_id"))&""
conn.execute(sql)
errormsg="删除完毕！"
end if
set rs1=nothing
response.write("<div class=tdc>操作结果:"&errormsg&"</div>")
response.end
end if
addstycss=chktopic(request.form("addstycss"))
if addstycss=1 then
sql="update lanmu set s_id="&chktopic(request("s_id"))&""
conn.execute(sql)
sql="update home set s_id="&chktopic(request("s_id"))&""
conn.execute(sql)
end if
background=chktopic(request.form("background"))
topimg=chktopic(request.form("topimg"))
h_Color=chktopic(request.form("hColor"))
tColor=chktopic(request.form("tColor"))
tColor1=chktopic(request.form("tColor1"))
tColor2=chktopic(request.form("tColor2"))
bdtj=chktopic(request.form("bdtj"))
bdtj2=chktopic(request.form("bdtj2"))
tdc=chktopic(request.form("tdc"))
tdc1=chktopic(request.form("tdc1"))
tdc2=chktopic(request.form("tdc2"))
tdc3=chktopic(request.form("tdc3"))
top1=chktopic(request.form("top1"))
link=chktopic(request.form("link"))
v_reply=chktopic(request("v_reply"))
t_reply=chktopic(request("t_reply"))
r_reply=chktopic(request("r_reply"))
s_announce=chktopic(request.form("s_announce"))
s_announcelink=chktopic(request.form("s_announcelink"))
s_fannounce=chktopic(request.form("s_fannounce"))
s_fannouncelink=chktopic(request.form("s_fannouncelink"))
s_fannounceopen=chktopic(request.form("s_fannounceopen"))
s_fannouncewidth=chktopic(request.form("s_fannouncewidth"))
s_fannounceheight=chktopic(request.form("s_fannounceheight"))
s_fannouncelinksay=chktopic(request.form("s_fannouncelinksay"))
s_bqannounce=chktopic(request.form("s_bqannounce"))
s_bqannouncelink=chktopic(request.form("s_bqannouncelink"))
if s_fannouncewidth="" then s_fannouncewidth=40
if s_fannounceheight="" then s_fannounceheight=40
sqlch="Update stycss set s_fannouncelinksay='"&s_fannouncelinksay&"',s_fannounceheight="&s_fannounceheight&",s_fannouncewidth="&s_fannouncewidth&",s_fannounce='"&s_fannounce&"',s_fannouncelink='"&s_fannouncelink&"',s_fannounceopen="&s_fannounceopen&",r_reply='"&r_reply&"',t_reply='"&t_reply&"',v_reply='"&v_reply&"',s_announce='"&s_announce&"',s_announcelink='"&s_announcelink&"',s_bqannounce='"&s_bqannounce&"',s_bqannouncelink='"&s_bqannouncelink&"',top1='"&top1&"',topimg='"&topimg&"',hcolor='"&h_color&"',link='"&link&"',tdc3='"&tdc3&"',tdc2='"&tdc2&"',tdc1='"&tdc1&"',tdc='"&tdc&"',bdtj2='"&bdtj2&"',bdtj='"&bdtj&"',tColor2='"&tColor2&"',tColor1='"&tColor1&"',tColor='"&tColor&"',background='"&background&"'where s_id="&chktopic(request("s_id"))&""
conn.Execute (sqlch)
response.write("<div class=tdc>修改成功</div>")
response.end
'新建样式
elseif Request.QueryString("action")="add1" then
background=chktopic(request.form("background"))
topimg=chktopic(request.form("topimg"))
h_Color=chktopic(request.form("hColor"))
tColor=chktopic(request.form("tColor"))
tColor1=chktopic(request.form("tColor1"))
tColor2=chktopic(request.form("tColor2"))
bdtj=chktopic(request.form("bdtj"))
bdtj2=chktopic(request.form("bdtj2"))
tdc=chktopic(request.form("tdc"))
tdc1=chktopic(request.form("tdc1"))
tdc2=chktopic(request.form("tdc2"))
tdc3=chktopic(request.form("tdc3"))
top1=chktopic(request.form("top1"))
link=chktopic(request.form("link"))
v_reply=chktopic(request("v_reply"))
t_reply=chktopic(request("t_reply"))
r_reply=chktopic(request("r_reply"))
s_announce=chktopic(request.form("s_announce"))
s_announcelink=chktopic(request.form("s_announcelink"))
s_fannounce=chktopic(request.form("s_fannounce"))
s_fannouncelink=chktopic(request.form("s_fannouncelink"))
s_fannounceopen=chktopic(request.form("s_fannounceopen"))
s_fannouncewidth=chktopic(request.form("s_fannouncewidth"))
s_fannounceheight=chktopic(request.form("s_fannounceheight"))
s_fannouncelinksay=chktopic(request.form("s_fannouncelinksay"))
s_bqannounce=chktopic(request.form("s_bqannounce"))
s_bqannouncelink=chktopic(request.form("s_bqannouncelink"))
if s_fannouncewidth="" then s_fannouncewidth=40
if s_fannounceheight="" then s_fannounceheight=40
if bdtj2="" then
response.write ("<div class=tdc>样式名称不能为空</div>")
response.end
end if
sql="select top 1 s_id from stycss order by s_id desc"
set rs=conn.execute(sql)
s_id=rs("s_id")+1
set rs=nothing
sqli="insert into stycss (s_fannouncelinksay,s_fannounceheight,s_fannouncewidth,s_fannounceopen,s_fannouncelink,s_fannounce,top1,link,tdc3,tdc2,tdc1,tdc,bdtj,bdtj2,tcolor,tcolor1,tcolor2,background,topimg,s_id,r_reply,t_reply,v_reply,s_announce,s_announcelink,s_bqannounce,s_bqannouncelink,hcolor) values('"&s_fannouncelinksay&"',"&s_fannounceheight&","&s_fannouncewidth&","&s_fannounceopen&",'"&s_fannouncelink&"','"&s_fannounce&"','"&top1&"','"&link&"','"&tdc3&"','"&tdc2&"','"&tdc1&"','"&tdc&"','"&bdtj&"','"&bdtj2&"','"&tcolor&"','"&tcolor1&"','"&tcolor2&"','"&background&"','"&topimg&"',"&s_id&",'"&r_reply&"','"&t_reply&"','"&v_reply&"','"&s_announce&"','"&s_announcelink&"','"&s_bqannounce&"','"&s_bqannouncelink&"','"&gcolor&"')"
conn.execute(sqli)
response.write ("<div class=tdc>新建成功</div>")
response.end
elseif Request.QueryString("action")="do" then
%>
<% elseif Request.QueryString("action")="show" then
s_id=chktopic(request("s_id"))
sqlchk="select * from stycss where s_id="&s_id&""
set rschk=conn.Execute (sqlchk)
if not rschk.eof then
%>
<form name="form1" method="POST" action="?action=do&s_id=<%=s_id%>">
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr align="center">
<td colspan="3" <%=tColor%> class=tdc1 height=22><a href="?">论坛基本样式设置</a> | <a href="?action=add">新建样式</a> </td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>样式名称：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="bdtj2" class=tdc size="20" value="<%=rschk("bdtj2")%>">
</td>
</tr>
<tr>
<td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>背景音乐：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="top1" class=tdc size="50" value="<%=rschk("top1")%>">
<br>
(格式：mid音乐："<bgsound src="音乐地址" loop=次数>";<br>
flash输入:"<embed src=地址 width=0 height=0></embed>")</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>论坛图标：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="topimg" class=tdc size="45" value="<%=rschk("topimg")%>">
(顶端左上角图）<br>(格式：图片输入"<img src=图片名称 border=0>";<BR>flash输入:"<embed src=flash名称 border=0>")
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>论坛广告图标1：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_announce" class=tdc size="50" value="<%=rschk("s_announce")%>">
(顶端中部图）<br>(格式：图片输入"<img src=图片名称 width=图片宽度 height=图片高度 border=0>";<BR>flash输入:"<embed width=flash宽度 height=flash高度 src=flash名称 border=0>")
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>论坛广告连接1：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_announcelink" class=tdc size="40" value="<%=rschk("s_announcelink")%>">
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>论坛广告图标2：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_bqannounce" class=tdc size="50" value="<%=rschk("s_bqannounce")%>">
(底部图）<br>(格式：图片输入"<img src=图片名称 width=图片宽度 height=图片高度 border=0>";<BR>flash输入:"<embed width=flash宽度 height=flash高度 src=flash名称 border=0>")
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>论坛广告连接2：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_bqannouncelink" class=tdc size="40" value="<%=rschk("s_bqannouncelink")%>">
（底部连接）</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>浮动广告开通：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="radio" value="1" name="s_fannounceopen" <%if rschk("s_fannounceopen")=1 then response.write("checked")%>> 开通<input type="radio" value="0" name="s_fannounceopen" <%if rschk("s_fannounceopen")=0 then response.write("checked")%>>关闭（浮动）</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>浮动广告图标：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_fannounce" class=tdc size="50" value="<%=rschk("s_fannounce")%>">
(浮动）<br>(格式：image/logo.gif)
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>浮动广告图标高度：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_fannounceheight" class=tdc size="5" value="<%=rschk("s_fannounceheight")%>">
（如：40）</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>浮动广告图标宽度：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_fannouncewidth" class=tdc size="5" value="<%=rschk("s_fannouncewidth")%>">
(如：40）<br>(格式：image/logo.gif)
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>浮动广告连接：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_fannouncelink" class=tdc size="40" value="<%=rschk("s_fannouncelink")%>">
（浮动）<br>
(格式：http://down.dxxo.com/)</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>浮动广告连接说明：</td>
<td bgcolor=<%=tColor2%> class=tdc colspan="2">
<input type="text" name="s_fannouncelinksay" class=tdc size="50" value="<%=rschk("s_fannouncelinksay")%>">
(浮动）<br>(格式：飞越的简历)
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>页背景图片：</td>
<td <%=rschk("background")%> class=tdc width=20>
</td>
<td bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="background" class=tdc size="30" value="<%=rschk("background")%>"><br>(格式：图片为背景输入"background=image/b1.gif";<BR>颜色为背景输入:"bgcolor=颜色名称")
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>分类背景色：</td>
<td <%=rschk("hcolor")%> class=tdc width=20>
</td>
<td bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="hcolor" class=tdc size="30" value="<%=rschk("hcolor")%>"><br>(格式：图片为背景输入"background=image/b1.gif";<BR>颜色为背景输入:"bgcolor=颜色名称")
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>标题背景色：</td>
<td <%=rschk("tcolor")%> class=tdc width=20>
</td>
<td bgcolor=<%=tColor2%> class=tdc >
<input type="text" name="tcolor" class=tdc size="30" value="<%=rschk("tcolor")%>"><br>(格式：图片为背景输入"background=image/b1.gif";<BR>颜色为背景输入:"bgcolor=颜色名称")
</td>
</tr>
<tr>
<td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>按钮背景色1：</td>
<td bgcolor=<%=rschk("bdtj")%> class=tdc width=20>
</td>
<td bgcolor=<%=tColor2%> class=tdc >
<input type="text" name="bdtj" class=tdc size="10" value="<%=rschk("bdtj")%>">
(通常跟标题背景色一致）</td>
</tr>
<tr>
<td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>文字色1:：</td>
<td bgcolor=<%=rschk("tdc")%> class=tdc width=20>
</td>
<td bgcolor=<%=tColor2%> class=tdc >
<input type="text" name="tdc" class=tdc size="10" value="<%=rschk("tdc")%>">(一般显示文章内容)
</td>
</tr>
<tr>
<td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>文字色2:：</td>
<td bgcolor=<%=rschk("tdc1")%> class=tdc width=20>
</td>
<td bgcolor=<%=tColor2%> class=tdc >
<input type="text" name="tdc1" class=tdc size="10" value="<%=rschk("tdc1")%>">(一般显示标题栏上的文字)
</td>
</tr>
<tr>
<td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>表格背景色1：</td>
<td bgcolor=<%=rschk("tcolor2")%> class=tdc width=20>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -