📄 mod_clueon.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<%
'****************************************************************
'* joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'* 版权所有: JoinBoard V2.3
'*
'* 程序制作: 友盟工作室
'*
'* 主页地址: http://joinboard.com 友盟论坛
'*
'* 论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*
'****************************************************************
'* Powered by: JoinBoard V2.3
'* Copyright 2003－2004. - All Rights Reserved.
'* JoinBoard is a trademark of YouMeng Studio.
'****************************************************************
BoardID = trim(request.QueryString("BoardID"))
if Not(IsNumeric(BoardID)) or BoardID = "0" then
response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='0; URL="&BBSHomeUrl&"'>")
response.End()
End if
set rs = Conn.ExeCute("select title,styleid,bestrowUserStyle,Mod_clueon,clueon_color From JBB_Board where BoardID="&BoardID)
if Not rs.eof then
if rs("bestrowUserStyle") then
styleid = rs("styleid")
End if
title = rs("title")
Mod_clueonC = rtrim(rs("Mod_clueon"))
clueon_color = rtrim(rs("clueon_color"))
else
%>
<!--#include file="INC/style.asp"-->
<%
set rs = Nothing
response.Write("<html><head><title>"& Board_Name&" - 错误信息"&"</title><link href="&Css_path&" rel=""stylesheet"" type=""text/css""></head><body leftmargin=""0"" topmargin=""0"">")
Call top()
ShowMsg "该版块不存在或者已经删除!~请点击 <a href=""javascript:history.back()"">这里</a> 返回"
Call bottom()
response.End()
End if
set rs = Nothing
%>
<!--#include file="INC/style.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)&" - 管理版主寄语"%></title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
return eval(jsStr)
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()
response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.Write "<img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <a href="""&BBSHomeUrl&""">"& BBS_Config(0) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <a href=""board.asp?BoardID="& BoardID &""">"& title &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> 管理版主寄语"
response.Write "</td></tr></table>"
if usergroup = 1 then
Mod_clueon = true
elseif usergroup = 2 then
set rs = Conn.ExeCute("select Mod_stop from JBB_Mod where Mod_nameID="&userid &" and Mod_stop=0")
if Not rs.eof then
Mod_clueon = true
End if
set rs = nothing
elseif usergroup = 3 then
set rs = Conn.ExeCute("select Mod_BoardID from JBB_Mod where Mod_nameID="&userid &" and Mod_stop=0 and Mod_BoardID="&BoardID)
if Not rs.eof then
Mod_clueon = true
End if
set rs = nothing
End if
'----------------------------------------------------------------------
if Mod_clueon <> true then
ShowMsg "您没有权限在此版块管理版主寄语.请点击 <a href=""javascript:history.back()"">这里</a> 返回"
Call Bottom()
response.End()
End if
'----------------------------------------------
action = trim(request.QueryString("action"))
if action = "SaveEdit" then
Mod_clueonC = replace(trim(request.Form("Mod_clueonC")),"'","''")
clueon_color = replace(trim(request.Form("clueon_color")),"'","''")
if clueon_color = "" then clueon_color="#000000"
Conn.ExeCute("update JBB_Board set Mod_clueon='"& Mod_clueonC &"',clueon_color='"&clueon_color&"' where BoardID="&BoardID)
Application.Lock
Application(JBBMasterCookies&"Board_Config"&BoardID)=""
Application.UnLock
ShowMsg "版主寄语修改完毕,系统正在返回论坛,如果您不想等待，请点击 <a href=""Board.asp?BoardID="& BoardID &""">这里</a>."
response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='2; URL=Board.asp?BoardID="& BoardID &"'>")
else
%>
<form name="form1" method="post" action="?action=SaveEdit&BoardID=<%=BoardID%>">
<table width="584" border="0" align="center" cellpadding="5" cellspacing="1">
<tr>
<td valign="top"><div align="right">寄语内容:</div></td>
<td width="238"> <textarea name="Mod_clueonC" cols="60" rows="3" id="Mod_clueonC"><%=Mod_clueonC%></textarea>
</td>
</tr>
<tr>
<td valign="top">
<div align="right">字体颜色:<br>
(默认为黑色) </div>
<div align="right"></div></td>
<td><table border=0 cellpadding=0 cellspacing=0 width="100%" class="p9">
<tbody>
<tr>
<td width="6%" height="24"> <div align="LEFT"><font color="#FF0000">红色</font></div></td>
<td width="7%" height="24"> <div align="LEFT">
<input name="clueon_color" type="radio" value="#FF0000" <%if clueon_color="#FF0000" then response.Write("checked") end if%>>
</div></td>
<td width="6%" height="24"> <div align="LEFT"><font color="#ff00FF">洋红</font></div></td>
<td width="7%" height="24"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#FF00FF" <%if clueon_color="#FF00FF" then response.Write("checked") end if%>>
</div></td>
<td width="7%" height="24"> <div align="LEFT"><font color="#ffff00">黄色</font></div></td>
<td width="7%" height="24"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#FFFF00" <%if clueon_color="#FFFF00" then response.Write("checked") end if%>>
</div></td>
<td width="7%" height="24"> <div align="LEFT"><font color="#00FFFF">蓝绿</font></div></td>
<td width="8%" height="24"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#00FFFF" <%if clueon_color="#00FFFF" then response.Write("checked") end if%>>
</div></td>
<td width="7%" height="24"> <div align="LEFT"><font color="#0000FF">蓝色</font></div></td>
<td width="8%" height="24"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#0000FF" <%if clueon_color="#0000FF" then response.Write("checked") end if%>>
</div></td>
<td width="6%" height="24"> <div align="LEFT"><font color="#FF7F00">珊瑚</font></div></td>
<td width="8%" height="24"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#FF7F00" <%if clueon_color="#FF7F00" then response.Write("checked") end if%>>
</div></td>
<td width="6%" height="24"> <div align="LEFT"><font color="#9932CD">淡紫</font></div></td>
<td width="10%" height="24"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#9932CD" <%if clueon_color="#9932CD" then response.Write("checked") end if%>>
</div></td>
</tr>
<tr>
<td width="6%" height="25"> <div align="LEFT"><font color="#CC3299">紫红</font></div></td>
<td width="7%" height="25"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#CC3299" <%if clueon_color="#CC3299" then response.Write("checked") end if%>>
</div></td>
<td width="6%" height="25"> <div align="LEFT"><font color="#8E6B23">赭色</font></div></td>
<td width="7%" height="25"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#8E6B23" <%if clueon_color="" then response.Write("checked") end if%>>
</div></td>
<td width="7%" height="25"> <div align="LEFT"><font color="#FF7E00">橘色</font></div></td>
<td width="7%" height="25"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#FF7E00" <%if clueon_color="#FF7E00" then response.Write("checked") end if%>>
</div></td>
<td width="7%" height="25"> <div align="LEFT"><font color="#00FF00">绿色</font></div></td>
<td width="8%" height="25"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#00FF00" <%if clueon_color="#00FF00" then response.Write("checked") end if%>>
</div></td>
<td width="7%" height="25"> <div align="LEFT"><font color="#000099">藏蓝</font></div></td>
<td width="8%" height="25"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#000099" <%if clueon_color="#000099" then response.Write("checked") end if%>>
</div></td>
<td width="6%" height="25"> <div align="LEFT"><font color="#E9E41D">黄绿</font></div></td>
<td width="8%" height="25"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#E9E41D" <%if clueon_color="#E9E41D" then response.Write("checked") end if%>>
</div></td>
<td width="6%" height="25"> <div align="LEFT"><font color="#C0C0C0">灰色</font></div></td>
<td width="10%" height="25"> <div align="LEFT">
<input type="radio" name="clueon_color" value="#C0C0C0" <%if clueon_color="#C0C0C0" then response.Write("checked") end if%>>
</div></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td> </td>
<td> <input type="submit" name="Submit" value="确定修改"> <input name="Submit2" type="button" onClick="MM_callJS('history.back()')" value="返回">
</td>
</tr>
</table>
</form>
<br>
<br>
<%
End if
Call Bottom()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -