admin_boardaset.asp

生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序

<tr> 
<td width="40%"><font color="<%=TableContentColor%>"><B>是否开启表情标签</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="strIcons" value=0 <%if cint(strIcons)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="strIcons" value=1 <%if cint(strIcons)=1 then%>checked<%end if%>>打开&nbsp;</font>
</td>
</tr>
<tr> 
<td width="40%"><font color="<%=TableContentColor%>"><B>是否开启Flash标签</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="strflash" value=0 <%if cint(strflash)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="strflash" value=1 <%if cint(strflash)=1 then%>checked<%end if%>>打开&nbsp;</font>
</td>
</tr>
<tr> 
<td width="40%"><font color="<%=TableContentColor%>"><B>版面配色公开</B></font></td>
<td width="60%"> <font color="<%=TableContentColor%>">
<input type=radio name="viewcolor" value=0 <%if cint(viewcolor)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="viewcolor" value=1 <%if cint(viewcolor)=1 then%>checked<%end if%>>打开&nbsp;</font>
</td>
</tr>
<tr> 
<td width="40%"><font color="<%=TableContentColor%>"><B>是否允许未登陆用户搜索</B></font></td>
<td width="60%"> 
<input type=radio name="Search_G" value=0 <%if cint(Search_G)=0 then%>checked<%end if%>>允许&nbsp;
<input type=radio name="Search_G" value=1 <%if cint(Search_G)=1 then%>checked<%end if%>>不允许&nbsp;
</td>
</tr>
<tr bgcolor=<%=aTabletitlecolor%>> 
<td width="40%">&nbsp;</td>
<td width="60%"> 
<div align="center"> 
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end if
end sub
sub savebmset()

chkedit=false
set rs=conn.execute("select boardmaster from board where boardid="&request("boardid"))
master_1=split(rs(0),"|")
if bmflag_5=1 then
chkedit=true
else
if bmflag_3=0 then
chkedit=false
elseif bmflag_3=1 and membername=master_1(0) then
chkedit=true
else
chkedit=false
end if
end if
if master then
chkedit=true
end if
if chkedit=false then
	Errmsg=Errmsg+"<br>"+"<li>本项功能未对您开放。"
	call error()
else
Forum_Setting=TimeAdjust & "," & ScriptTimeOut & "," & EmailFlag & "," & request("Uploadpic") & "," & request("IpFlag") & "," & request("FromFlag") & "," & TitleFlag & "," & uploadFlag & "," & kicktime & "," & request("guestlogin") & "," & openmsg & "," & request("MaxAnnouncePerPage") & "," & request("Maxtitlelist") & "," & request("AnnounceMaxBytes") & "," & request("online_u") & "," & request("online_g") & "," & LinkFlag & "," & request("TopicFlag") & "," & request("VoteFlag") & "," & request("ReflashFlag") & "," & request("ReflashTime") & "," & ForumStop & "," & RegTime & "," & EmailReg & "," & EmailRegOne & "," & RegFlag & "," & online_n & "," & ViewUser_g & "," & ViewUser_u & "," & BirthFlag & "," & request("runtime") & "," & FastLogin & "," & GroupFlag & "," & request("uploadsize") & "," & request("strAllowForumCode") & "," & request("strAllowHTML") & "," & request("strIMGInPosts") & "," & request("strIcons") & "," & request("strflash") & "," & request("vote_num") & "," & facenum & "," & imgnum & "," & request("relaypost") & "," & request("relayposttime") & "," & facename & "," & imgname & "," & smsflag & "," & SendRegEmail & "," & request("Search_G") & "," & bmflag_1 & "," & bmflag_2 & "," & bmflag_3 & "," & bmflag_4 & "," & bmflag_5 & "," & RegFaceNum & "," & request("viewcolor")
'response.write forum_setting
'response.end
sql="update board set Forum_Setting='"&Forum_Setting&"',Forum_upload='"&request("Forum_upload")&"' where boardid="&request("boardid")
conn.execute(sql)
response.write "设置成功。"
end if
end sub

sub editbmcolor()
set rs=conn.execute("select boardmaster from board where boardid="&request("boardid"))
master_1=split(rs(0),"|")
if bmflag_5=1 then
chkedit=true
else
if bmflag_3=0 then
chkedit=false
elseif bmflag_3=1 and membername=master_1(0) then
chkedit=true
else
chkedit=false
end if
end if
if master then
chkedit=true
end if
if chkedit=false then
	Errmsg=Errmsg+"<br>"+"<li>本项功能未对您开放。"
	call error()
else
%>
<form method="POST" action="?action=savebmcolor&boardid=<%=request("boardid")%>">
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center bordercolor=<%=aTablebackcolor%>>
<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> 使用万用颜色拾取器</td>
</tr>
<tr> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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> 
<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 if
end sub
sub savebmcolor()
set rs=conn.execute("select boardmaster from board where boardid="&request("boardid"))
master_1=split(rs(0),"|")
if bmflag_5=1 then
chkedit=true
else
if bmflag_3=0 then
chkedit=false
elseif bmflag_3=1 and membername=master_1(0) then
chkedit=true
else
chkedit=false
end if
end if
if master then
chkedit=true
end if
if chkedit=false then
	Errmsg=Errmsg+"<br>"+"<li>本项功能未对您开放。"
	call error()
else
Forum_body=request("Tablebackcolor") & "," & request("aTablebackcolor") & "," & request("Tabletitlecolor") & "," & request("aTabletitlecolor") & "," & request("Tablebodycolor") & "," & request("aTablebodycolor") & "," & request("TableFontcolor") & "," & request("TableContentcolor") & "," & request("AlertFontColor") & "," & request("ContentTitle") & "," & request("AlertFontColor") & "," & request("ForumBody") & "," & request("TableWidth") & "," & request("BodyFontColor") & "," & request("BoardLinkColor") & "," & request("user_fc") & "," & request("user_mc") & "," & request("bmaster_fc") & "," & request("bmaster_mc") & "," & request("master_fc") & "," & request("master_mc") & "," & request("vip_fc") & "," & request("vip_mc")
'response.write Forum_body
'response.end
sql = "update board set Forum_body='"&Forum_body&"' where boardid="&request("boardid")
conn.execute(sql)
response.write "设置成功！"
end if
end sub
%>
<!--#include file=footer.asp-->