📄 post.asp
字号:
<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'# #
'# 汉化修改: 资源搜罗站 #
'# 电子邮件: cgier@21cn.com #
'# 主页地址: http://www.sdsea.com #
'# http://www.99ss.net #
'# http://www.cdown.net #
'# http://www.wzdown.com #
'# http://www.13888.net #
'# 论坛地址:http://ubb.yesky.net #
'# 最后修改日期: 2001/03/12 中文版本：Version 3.1 SR4 #
'#################################################################
'# 原始来源 #
'# Snitz Forums 2000 Version 3.1 SR4 #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved #
'#################################################################
'#【版权声明】 #
'# #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。 #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！ #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们 #
'#################################################################
'#################################################################################
'## Variable declaration
'#################################################################################
dim strSelectSize
dim intCols, intRows
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_code.asp" -->
<%
'#################################################################################
'## Initialise variables
'#################################################################################
strSelectSize = Request.Form("SelectSize")
strRqMethod = Request.QueryString("method")
strRqForumID = Request.QueryString("FORUM_ID")
strRqCatID = Request.QueryString("CAT_ID")
strCkPassWord = Request.Cookies(strUniqueID & "User")("Pword")
'#################################################################################
'## Page-code start
'#################################################################################
if strSelectSize = "" or IsNull(strSelectSize) then
strSelectSize = Request.Cookies(strCookieURL & "strSelectSize")
end if
if not(IsNull(strSelectSize)) then
Response.Cookies(strCookieURL & "strSelectSize") = strSelectSize
Response.Cookies(strCookieURL & "strSelectSize").expires = Now() + 365
end if
%>
<!--#INCLUDE FILE="inc_top.asp" -->
<%
if strRqForumId <> "" then
set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT F_PRIVATEFORUMS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & strRqForumID
set rs = my_conn.execute(strSQL)
IsPrivateType = rs("F_PRIVATEFORUMS")
set rs = nothing
end if
select case strSelectSize
case "1"
intCols = 45
intRows = 6
case "2"
intCols = 80
intRows = 12
case "3"
intCols = 90
intRows = 12
case "4"
intCols = 130
intRows = 15
case else
intCols = 45
intRows = 6
end select
%>
<script language="JavaScript">
<!--
//#################################################################################
//## Allowed User - Selection Code
//#################################################################################
function selectUsers()
{
if (document.PostTopic.AuthUsers.length == 1)
{
document.PostTopic.AuthUsers.options[0].value = "";
return;
}
if (document.PostTopic.AuthUsers.length == 2)
document.PostTopic.AuthUsers.options[0].selected = true
else
for (x = 0;x < document.PostTopic.AuthUsers.length - 1 ;x++)
document.PostTopic.AuthUsers.options[x].selected = true;
}
function MoveWholeList(strAction)
{
if (strAction == "Add")
{
if (document.PostTopic.AuthUsersCombo.length > 1)
{
for (x = 0;x < document.PostTopic.AuthUsersCombo.length - 1 ;x++)
document.PostTopic.AuthUsersCombo.options[x].selected = true;
InsertSelection("Add");
}
}
else
{
if (document.PostTopic.AuthUsers.length > 1)
{
for (x = 0;x < document.PostTopic.AuthUsers.length - 1 ;x++)
document.PostTopic.AuthUsers.options[x].selected = true;
InsertSelection("Del");
}
}
}
function InsertSelection(strAction)
{
var pos,user,mText;
var count,finished;
if (strAction == "Add")
{
pos = document.PostTopic.AuthUsers.length;
finished = false;
count = 0;
do //Add to destination
{
try{
if (document.PostTopic.AuthUsersCombo.options[count].text == "")
{
finished = true;
continue;
}
}
catch(e)
{
finished = true;
return;
}
if (document.PostTopic.AuthUsersCombo.options[count].selected)
{
document.PostTopic.AuthUsers.length +=1;
document.PostTopic.AuthUsers.options[pos].value = document.PostTopic.AuthUsers.options[pos-1].value;
document.PostTopic.AuthUsers.options[pos].text = document.PostTopic.AuthUsers.options[pos-1].text;
document.PostTopic.AuthUsers.options[pos-1].value = document.PostTopic.AuthUsersCombo.options[count].value;
document.PostTopic.AuthUsers.options[pos-1].text = document.PostTopic.AuthUsersCombo.options[count].text;
document.PostTopic.AuthUsers.options[pos-1].selected = true;
}
pos = document.PostTopic.AuthUsers.length;
count += 1;
}while (!finished); //finished adding
finished = false;
count = document.PostTopic.AuthUsersCombo.length - 1;
do //remove from source
{
try {
if (document.PostTopic.AuthUsersCombo.options[count].text == "")
{
--count;
continue;
}
}
catch(e)
{
return;
}
if (document.PostTopic.AuthUsersCombo.options[count].selected )
{
for ( z = count ; z < document.PostTopic.AuthUsersCombo.length-1;z++)
{
if ((document.PostTopic.AuthUsers.length-count) == 2)
{
document.PostTopic.AuthUsers.options[z].value = "";
document.PostTopic.AuthUsers.options[z].text = "";
}
else
{
document.PostTopic.AuthUsersCombo.options[z].value = document.PostTopic.AuthUsersCombo.options[z+1].value;
document.PostTopic.AuthUsersCombo.options[z].text = document.PostTopic.AuthUsersCombo.options[z+1].text;
}
}
document.PostTopic.AuthUsersCombo.length -= 1;
}
--count;
if (count < 0)
finished = true;
}while(!finished) //finished removing
}
if (strAction == "Del")
{
pos = document.PostTopic.AuthUsersCombo.length;
finished = false;
count = 0;
do //Add to destination
{
try{
if (document.PostTopic.AuthUsers.options[count].text == "")
{
finished = true;
continue;
}
}
catch(e)
{
finished = true;
return;
}
if (document.PostTopic.AuthUsers.options[count].selected)
{
document.PostTopic.AuthUsersCombo.length +=1;
document.PostTopic.AuthUsersCombo.options[pos].value = document.PostTopic.AuthUsersCombo.options[pos-1].value;
document.PostTopic.AuthUsersCombo.options[pos].text = document.PostTopic.AuthUsersCombo.options[pos-1].text;
document.PostTopic.AuthUsersCombo.options[pos-1].value = document.PostTopic.AuthUsers.options[count].value;
document.PostTopic.AuthUsersCombo.options[pos-1].text = document.PostTopic.AuthUsers.options[count].text;
document.PostTopic.AuthUsersCombo.options[pos-1].selected = true;
}
count += 1;
pos = document.PostTopic.AuthUsersCombo.length;
}while (!finished); //finished adding
finished = false;
count = document.PostTopic.AuthUsers.length - 1;
do //remove from source
{
try{
if (document.PostTopic.AuthUsers.options[count].text == "")
{
--count;
continue;
}
}
catch(e)
{
return;
}
if (document.PostTopic.AuthUsers.options[count].selected )
{
for ( z = count ; z < document.PostTopic.AuthUsers.length-1;z++)
{
if ((document.PostTopic.AuthUsers.length-count) == 2)
{
document.PostTopic.AuthUsers.options[z].value = "";
document.PostTopic.AuthUsers.options[z].text = "";
}
else
{
document.PostTopic.AuthUsers.options[z].value = document.PostTopic.AuthUsers.options[z+1].value;
document.PostTopic.AuthUsers.options[z].text = document.PostTopic.AuthUsers.options[z+1].text;
}
}
document.PostTopic.AuthUsers.length -= 1;
}
--count;
if (count < 0)
finished = true;
}while(!finished) //finished removing
}
}
function autoReload(objform)
{
var tmpCookieURL = '<%=strCookieURL%>';
if (objform.SelectSize.value == 1)
{
document.PostTopic.Message.cols = 45;
document.PostTopic.Message.rows = 6;
}
if (objform.SelectSize.value == 2)
{
document.PostTopic.Message.cols = 80;
document.PostTopic.Message.rows = 12;
}
if (objform.SelectSize.value == 3)
{
document.PostTopic.Message.cols = 90;
document.PostTopic.Message.rows = 12;
}
if (objform.SelectSize.value == 4)
{
document.PostTopic.Message.cols = 130;
document.PostTopic.Message.rows = 15;
}
document.PostTopic.SelectSize.value = objform.SelectSize.value;
document.cookie = tmpCookieURL + "strSelectSize=" + objform.SelectSize.value;
}
function OpenPreview()
{
var curCookie = "strMessagePreview=" + escape(document.PostTopic.Message.value);
document.cookie = curCookie;
popupWin = window.open('pop_preview.asp', 'preview_page', 'scrollbars=yes,width=750,height=450')
}
function OpenPreview2()
{
var curCookie = "strMessagePreview=" + escape(document.PostTopic.Message.value);
document.cookie = curCookie;
popupWin = window.open('pop_spellcheck.asp', 'preview_page', 'scrollbars=yes,width=750,height=450')
}
//-->
</script>
<%
if strRqMethod = "EditForum" then
if (mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") then
'## Do Nothing
else
Response.Write "<p>错误：只有版主和管理员可以编辑论坛</p>" & vbcrlf
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -