Javascript 表单之间的数据传递
作者:cmscn 日期:2007-01-06
一，最简单的就是同一个网页里的表单的数据传递。
举个实例，一个网页上有两个表单，每个表单里一个文本框，一个按钮。点按钮互相对操作对方的文本框的值。我们举的例子是把一个文本框付给另一个文本框。具体的HTML代码如下：
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form name="form1" method="post" action="">
<input type="text" name="textfield">
<input type="button" name="Submit" value="1--------->2" onClick="ok()">
</form>
<form name="form2" method="post" action="">
<input type="text" name="textfield2">
<input type="button" name="Submit" value="2----->1" onClick="ok1()">
</form>
</body>
</html>
以上为HTMl的代码，大家可能注意到了onclik的代码了，有两个函数，接下来就是JAVASCRIPT的代码了：
<script language="JavaScript">
function ok()
{
document.form2.textfield2.value=document.form1.textfield.value;
}
function ok1()
{
document.form1.textfield.value=document.form2.textfield2.value;
}
</script>
二，第二种是两个窗口之间的表单的文本框之间数据传递。其实这个可以在原来的基础上进行一些扩展就可以了。关于如何创建弹出窗口，窗体里的表单的代码， 在这里就不多说了，现在在这里说一下如何操作父窗口的表单里的文本框的数据。具体代码如下：
<script language="JavaScript">
function ok()
{
opener.document.form2.textfield2.value=document.form1.textfield.value
}
</script>
三，第三种就是框架网页之间的表单的文本框之间数据传递.
注意的地方是框架的写法：
<frameset cols="505,505">
<frame src="test.htm" name="leftr" id="leftr">//定义框架的名称
<frame src="test2.htm" id="right" name="right">
</frameset>
<noframes><body>
</body></noframes>
具体的实现代码如下：
<script language="JavaScript">
function ok()
{
parent.leftr.document.form2.textfield2.value
=document.form1.textfield.value
}
</script>
这三种窗口之间的文本框数值互相操作的简单方法就实现了，其它需要注意的就是他们之间的关系。
举个实例，一个网页上有两个表单，每个表单里一个文本框，一个按钮。点按钮互相对操作对方的文本框的值。我们举的例子是把一个文本框付给另一个文本框。具体的HTML代码如下：
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form name="form1" method="post" action="">
<input type="text" name="textfield">
<input type="button" name="Submit" value="1--------->2" onClick="ok()">
</form>
<form name="form2" method="post" action="">
<input type="text" name="textfield2">
<input type="button" name="Submit" value="2----->1" onClick="ok1()">
</form>
</body>
</html>
以上为HTMl的代码，大家可能注意到了onclik的代码了，有两个函数，接下来就是JAVASCRIPT的代码了：
<script language="JavaScript">
function ok()
{
document.form2.textfield2.value=document.form1.textfield.value;
}
function ok1()
{
document.form1.textfield.value=document.form2.textfield2.value;
}
</script>
二，第二种是两个窗口之间的表单的文本框之间数据传递。其实这个可以在原来的基础上进行一些扩展就可以了。关于如何创建弹出窗口，窗体里的表单的代码， 在这里就不多说了，现在在这里说一下如何操作父窗口的表单里的文本框的数据。具体代码如下：
<script language="JavaScript">
function ok()
{
opener.document.form2.textfield2.value=document.form1.textfield.value
}
</script>
三，第三种就是框架网页之间的表单的文本框之间数据传递.
注意的地方是框架的写法：
<frameset cols="505,505">
<frame src="test.htm" name="leftr" id="leftr">//定义框架的名称
<frame src="test2.htm" id="right" name="right">
</frameset>
<noframes><body>
</body></noframes>
具体的实现代码如下：
<script language="JavaScript">
function ok()
{
parent.leftr.document.form2.textfield2.value
=document.form1.textfield.value
}
</script>
这三种窗口之间的文本框数值互相操作的简单方法就实现了，其它需要注意的就是他们之间的关系。
传递
作者:cmscn 日期:2007-01-06
<td>图书来源：</td>
<td><input type=text name=laiyuan value='<%response.write laiyuan%>' size="10">
<input type="hidden" name="TxtSource" value="">
<select name="SelTxtSource" onChange="Dosusite(this.options[this.selectedIndex].value);">
<option value="" selected> </option>
<option value="***Clean" style="color:red">清空</option>
<option value="本站原创">本站原创</option>
<option value="起点中文">起点中文</option>
<option value="天下书盟">天下书盟</option>
<option value="天鹰文学">天鹰文学</option>
<option value="幻剑书盟">幻剑书盟</option>
<option value="中国书友网">中国书友网</option>
< lect>
function Dosusite(Source)
{
var TempArray,TempStr;
TempArray=Source.split("***");
if (TempArray[0] != '')
{
if (document.add_frm.laiyuan.value.indexOf(TempArray[0])<0)
{
if (typeof(TempArray[1])=='undefined') TempStr=TempArray[0];
else TempStr='<a href='+TempArray[1].replace(/[\"\']/,'')+'>'+TempArray[0]+'</a>';
if (document.add_frm.laiyuan.value=='') document.add_frm.laiyuan.value=TempArray[0];
else document.add_frm.laiyuan.value = document.add_frm.laiyuan.value + ',' + TempArray[0];
if (document.add_frm.TxtSource.value=='') document.add_frm.TxtSource.value=TempArray[0];
else document.add_frm.TxtSource.value = document.add_frm.TxtSource.value + ',' + TempArray[0];
}
}
if ((TempArray[0] == '')&&(TempArray[1] == 'Clean'))
{
document.add_frm.TxtSource.value = '';
document.add_frm.laiyuan.value = '';
}
return;
}
<td><input type=text name=laiyuan value='<%response.write laiyuan%>' size="10">
<input type="hidden" name="TxtSource" value="">
<select name="SelTxtSource" onChange="Dosusite(this.options[this.selectedIndex].value);">
<option value="" selected> </option>
<option value="***Clean" style="color:red">清空</option>
<option value="本站原创">本站原创</option>
<option value="起点中文">起点中文</option>
<option value="天下书盟">天下书盟</option>
<option value="天鹰文学">天鹰文学</option>
<option value="幻剑书盟">幻剑书盟</option>
<option value="中国书友网">中国书友网</option>
< lect>
function Dosusite(Source)
{
var TempArray,TempStr;
TempArray=Source.split("***");
if (TempArray[0] != '')
{
if (document.add_frm.laiyuan.value.indexOf(TempArray[0])<0)
{
if (typeof(TempArray[1])=='undefined') TempStr=TempArray[0];
else TempStr='<a href='+TempArray[1].replace(/[\"\']/,'')+'>'+TempArray[0]+'</a>';
if (document.add_frm.laiyuan.value=='') document.add_frm.laiyuan.value=TempArray[0];
else document.add_frm.laiyuan.value = document.add_frm.laiyuan.value + ',' + TempArray[0];
if (document.add_frm.TxtSource.value=='') document.add_frm.TxtSource.value=TempArray[0];
else document.add_frm.TxtSource.value = document.add_frm.TxtSource.value + ',' + TempArray[0];
}
}
if ((TempArray[0] == '')&&(TempArray[1] == 'Clean'))
{
document.add_frm.TxtSource.value = '';
document.add_frm.laiyuan.value = '';
}
return;
}
关键词管理For CMS 1.2
作者:cmscn 日期:2007-01-06
admin_keyes.asp
admin_keyes_list.asp
使用：
1、在后台管理>>>核心管理>>>菜单管理中，在系统管理或插件管理菜单下添加二级菜单“关键词管理”，连接为admin_keyes.asp
2、在新闻和文章后台添加管理中加入选择关键词功能
找到文件/include/jk_frm.asp
找到sub frm_keyes(kt)，把原来的内容改成：
response.write "<input type=text name=keyes value='"&kt&"' size=20 maxlength=20> 多个请用“,”隔开，如：关键词1,关键词2。 "&"<a href=""javascript:open_win('admin_keyes_list.asp?jk_mod="&index_url&"&info_frm=add_frm&info_word=keyes','infoList',300,360,'no');"">选择关键词</a>"
——你不一定这样改，只要在后面添加一个“选择关键词”的连接就是了。如果你不用多个关键词，只习惯用一个，那就在连接中的&info_word=keyes后面加&ty=1
3、在新闻管理列表和文章管理列表中添加关键词搜索：
要修改的文件：
admin_article.asp
admin_news.asp
a、找到：
<option value='topic'>按标题</option>
下面添加：
<option value='keyes'>按关键词</option>
b、找到：
call format_search("topic","topic,username",2,1)
改为：
call format_search("topic","topic,username,keyes",2,1)
存在问题：
1、关键词列表没有按“,”分开，因为一分开来就有分页计数不准确、关键词重复等问题，其实我也有解决方法，但代码太复杂，加上大多数人的关键词都是独立使用的，所以还是不拿出来了。
2、选择关键词，会在前面多了一个“,”，Goffice的JS不过关，要清除这个东西要一大堆代码，等找到更简单的法子再改吧，如果你习惯使用一个关键词，按照步骤2后面的办法使用。
http://www.joekoe.com/forum/view_53412.html
admin_keyes_list.asp
使用：
1、在后台管理>>>核心管理>>>菜单管理中，在系统管理或插件管理菜单下添加二级菜单“关键词管理”，连接为admin_keyes.asp
2、在新闻和文章后台添加管理中加入选择关键词功能
找到文件/include/jk_frm.asp
找到sub frm_keyes(kt)，把原来的内容改成：
response.write "<input type=text name=keyes value='"&kt&"' size=20 maxlength=20> 多个请用“,”隔开，如：关键词1,关键词2。 "&"<a href=""javascript:open_win('admin_keyes_list.asp?jk_mod="&index_url&"&info_frm=add_frm&info_word=keyes','infoList',300,360,'no');"">选择关键词</a>"
——你不一定这样改，只要在后面添加一个“选择关键词”的连接就是了。如果你不用多个关键词，只习惯用一个，那就在连接中的&info_word=keyes后面加&ty=1
3、在新闻管理列表和文章管理列表中添加关键词搜索：
要修改的文件：
admin_article.asp
admin_news.asp
a、找到：
<option value='topic'>按标题</option>
下面添加：
<option value='keyes'>按关键词</option>
b、找到：
call format_search("topic","topic,username",2,1)
改为：
call format_search("topic","topic,username,keyes",2,1)
存在问题：
1、关键词列表没有按“,”分开，因为一分开来就有分页计数不准确、关键词重复等问题，其实我也有解决方法，但代码太复杂，加上大多数人的关键词都是独立使用的，所以还是不拿出来了。
2、选择关键词，会在前面多了一个“,”，Goffice的JS不过关，要清除这个东西要一大堆代码，等找到更简单的法子再改吧，如果你习惯使用一个关键词，按照步骤2后面的办法使用。
http://www.joekoe.com/forum/view_53412.html
后台增加SMTP邮件发送配置
作者:cmscn 日期:2007-01-05
1.打开include/admin_config_edit.asp
在sub joekoe_chk_common()上添加
sub joekoe_chk_smtp()
if chk() then
web_sm_server=code_config(request.form("web_sm_server"),0)
web_sm_user=code_config(request.form("web_sm_user"),0)
web_sm_pass=code_config(request.form("web_sm_pass"),0)
call joekoe_template_common()
call joekoe_template_common_other()
call joekoe_template_js_config()
call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
exit sub
end if
call form_first()
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr><td colspan=3 class=td> 网站SMTP邮件认证信息</td></tr>
<tr>
<td>SMTP邮件服务器：</td>
<td><input type=text name=web_sm_server value='<%response.write web_sm_server%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器</td>
</tr>
<tr>
<td>SMTP验证帐号：</td>
<td><input type=text name=web_sm_user value='<%response.write web_sm_user%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP验证帐号</td>
</tr>
<tr>
<td>SMTP认证密码：</td>
<td><input type=password name=web_sm_pass value='<%response.write web_sm_pass%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP认证密码</td>
</tr>
<%
call submit_config()
end sub
2.common_other.asp
dim web_sm_server,web_sm_user,web_sm_pass
web_sm_server="smtp.163.com"
web_sm_user="asp126.com"
web_sm_pass="*******"
3.打开admins_config_edit.asp
在相应位置添加 <td><a href='?action=smtp'<%if action="shop" then response.write " class=red"%>>邮件<%response.write tit_fir%></a></td>
case "smtp"
ntit="邮件"
call joekoe_chk_smtp()
4.打开include/jk_template.asp
在 temp1=vbcrlf&"<"&"%"&vbcrlf&"dim后添加
web_sm_server,web_sm_user,web_sm_pass
在vbcrlf&"web_n_girl="""&web_n_girl&"""" & _后加
vbc...
在sub joekoe_chk_common()上添加
sub joekoe_chk_smtp()
if chk() then
web_sm_server=code_config(request.form("web_sm_server"),0)
web_sm_user=code_config(request.form("web_sm_user"),0)
web_sm_pass=code_config(request.form("web_sm_pass"),0)
call joekoe_template_common()
call joekoe_template_common_other()
call joekoe_template_js_config()
call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
exit sub
end if
call form_first()
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr><td colspan=3 class=td> 网站SMTP邮件认证信息</td></tr>
<tr>
<td>SMTP邮件服务器：</td>
<td><input type=text name=web_sm_server value='<%response.write web_sm_server%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器</td>
</tr>
<tr>
<td>SMTP验证帐号：</td>
<td><input type=text name=web_sm_user value='<%response.write web_sm_user%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP验证帐号</td>
</tr>
<tr>
<td>SMTP认证密码：</td>
<td><input type=password name=web_sm_pass value='<%response.write web_sm_pass%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP认证密码</td>
</tr>
<%
call submit_config()
end sub
2.common_other.asp
dim web_sm_server,web_sm_user,web_sm_pass
web_sm_server="smtp.163.com"
web_sm_user="asp126.com"
web_sm_pass="*******"
3.打开admins_config_edit.asp
在相应位置添加 <td><a href='?action=smtp'<%if action="shop" then response.write " class=red"%>>邮件<%response.write tit_fir%></a></td>
case "smtp"
ntit="邮件"
call joekoe_chk_smtp()
4.打开include/jk_template.asp
在 temp1=vbcrlf&"<"&"%"&vbcrlf&"dim后添加
web_sm_server,web_sm_user,web_sm_pass
在vbcrlf&"web_n_girl="""&web_n_girl&"""" & _后加
vbc...
Rss 2.0 添加办法
作者:cmscn 日期:2007-01-05
请先执行 语句
Access 版 alter table admin_menu add column m_rss_record text(250)
alter table admin_menu add column m_on_rss bit
Sql 版 alter table admin_menu add column m_rss_record nvarchar(250)
alter table admin_menu add column m_on_rss bit(1)
方法如下 修改前请看:
让查找的就是从文件第一行开始,依次往下的! 红色为查找的代码,蓝色为添加的代码
用到的文件 admins_menu.asp
一:
以下为代码内容：
dim m_is_menu,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record
二:
以下为代码内容：
m_murl=rs("m_murl")
m_on_rss=rs("m_on_rss")
m_rss_record=rs("m_rss_record")
三:
以下为代码内容：
m_murl=code_admin("m_murl",1,200)
m_on_rss=0
if request.form("m_on_rss")="yes" then m_on_rss=1
m_rss_record=code_admin("m_rss_record",1,250)
四:
以下为代码内容：
if int(m_is_master)=1 then
if m_nsort="" or m_index_url="" or m_data_name="" or m_tit="" or m_tit_fir="" then
call admin_error("<font class=red>栏目管理参数</font>有一项或多项为空！")
exit sub
end if
if m_on_rss=1 and m_rss_record="" then
call admin_error("二级"&tit_fir&"的RSS数据记录不能为空！")
exit sub
end if
五:
以下为代码内容：
sql="update "&data_name&" set m_name='"&m_name&"',m_url='"&m_url&"',m_hidden="&m_hidden&",m_is_master="&m_is_master&",m_is_nsort="&m_is_nsort&",m_is_review="&m_is_review&",m_popedom="&m_popedom&",m_nsort='"&m_nsort&"',m_index_url='"&m_index_url&"',m_data_name='"&m_data_name&"',m_tit='"&m_tit&"',m_tit_fir='"&m_tit_fi...
Access 版 alter table admin_menu add column m_rss_record text(250)
alter table admin_menu add column m_on_rss bit
Sql 版 alter table admin_menu add column m_rss_record nvarchar(250)
alter table admin_menu add column m_on_rss bit(1)
方法如下 修改前请看:
让查找的就是从文件第一行开始,依次往下的! 红色为查找的代码,蓝色为添加的代码
用到的文件 admins_menu.asp
一:
以下为代码内容：
dim m_is_menu,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record
二:
以下为代码内容：
m_murl=rs("m_murl")
m_on_rss=rs("m_on_rss")
m_rss_record=rs("m_rss_record")
三:
以下为代码内容：
m_murl=code_admin("m_murl",1,200)
m_on_rss=0
if request.form("m_on_rss")="yes" then m_on_rss=1
m_rss_record=code_admin("m_rss_record",1,250)
四:
以下为代码内容：
if int(m_is_master)=1 then
if m_nsort="" or m_index_url="" or m_data_name="" or m_tit="" or m_tit_fir="" then
call admin_error("<font class=red>栏目管理参数</font>有一项或多项为空！")
exit sub
end if
if m_on_rss=1 and m_rss_record="" then
call admin_error("二级"&tit_fir&"的RSS数据记录不能为空！")
exit sub
end if
五:
以下为代码内容：
sql="update "&data_name&" set m_name='"&m_name&"',m_url='"&m_url&"',m_hidden="&m_hidden&",m_is_master="&m_is_master&",m_is_nsort="&m_is_nsort&",m_is_review="&m_is_review&",m_popedom="&m_popedom&",m_nsort='"&m_nsort&"',m_index_url='"&m_index_url&"',m_data_name='"&m_data_name&"',m_tit='"&m_tit&"',m_tit_fir='"&m_tit_fi...
论坛帖子字体大小控制
作者:cmscn 日期:2007-01-05
打开forum_view.asp,查找"&v_word&"
改成<span>"&v_word&"</span>
选择一个地方插入控制按钮,图片自己另存吧!
<a href='javascript:;' onmousedown=fontSizer(1,'px')><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/size_big.gif' align=absmiddle alt=大字体></a><a href='javascript:;' onmousedown=fontSizer(-1,'px')><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/size_min.gif' align=absmiddle alt=小字体></a>
最后在forum_view.asp第一个<%上面插入
[/size][/size]
改成<span>"&v_word&"</span>
选择一个地方插入控制按钮,图片自己另存吧!
<a href='javascript:;' onmousedown=fontSizer(1,'px')><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/size_big.gif' align=absmiddle alt=大字体></a><a href='javascript:;' onmousedown=fontSizer(-1,'px')><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/size_min.gif' align=absmiddle alt=小字体></a>
最后在forum_view.asp第一个<%上面插入
复制内容到剪贴板
程序代码
程序代码<script>
var tags = new Array( 'span'); //元素集
var pixelArray = new Array('12','13','14','15','16','17'); //px单位
var emArray = new Array('9','10','11','12','13','14'); //pt单位
var initSize = 0;
function fontSizer(inc,unit) {
if (!document.getElementById)
return;
var size = initSize;
size += inc;
if (size < 0) {
size = 0;
}
if (size > 5) {
size = 5;
}
initSize = size;
getBody = document.getElementsByTagName('body')[0];
for (i = 0 i < tags.length i++ ) {
getallTags = getBody.getElementsByTagName(tags);
for (k = 0 k < getallTags.length k++)
getallTags[k].style.fontSize = (unit=='px') ? pixelArray[size]+unit: emArray[size]+unit;
}
}
</script>
var tags = new Array( 'span'); //元素集
var pixelArray = new Array('12','13','14','15','16','17'); //px单位
var emArray = new Array('9','10','11','12','13','14'); //pt单位
var initSize = 0;
function fontSizer(inc,unit) {
if (!document.getElementById)
return;
var size = initSize;
size += inc;
if (size < 0) {
size = 0;
}
if (size > 5) {
size = 5;
}
initSize = size;
getBody = document.getElementsByTagName('body')[0];
for (i = 0 i < tags.length i++ ) {
getallTags = getBody.getElementsByTagName(tags);
for (k = 0 k < getallTags.length k++)
getallTags[k].style.fontSize = (unit=='px') ? pixelArray[size]+unit: emArray[size]+unit;
}
}
</script>
鼠标指向提示信息
作者:cmscn 日期:2007-01-05
var pltsPop=null;
var pltsoffsetX = 10; // 弹出窗口位于鼠标左侧或者右侧的距离；3-12 合适
var pltsoffsetY = 15; // 弹出窗口位于鼠标下方的距离；3-12 合适
var pltsPopbg="#FF0099"; //背景色
var pltsPopfg="#880000"; //前景色
var pltsTitle="";
document.write('<div id=pltsTipLayer style="display: none;position: absolute; z-index:10001"></div>');
function pltsinits()
{
document.onmouseover = plts;
document.onmousemove = moveToMouseLoc;
}
function plts()
{ var o=event.srcElement;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
pltsPop=o.dypop;
if(pltsPop!=null&&pltsPop!=""&&typeof(pltsPop)!="undefined")
{
pltsTipLayer.style.left=-1000;
pltsTipLayer.style.display='';
var Msg=pltsPop.replace(/
/g,"<br>");
Msg=Msg.replace(/\0x13/g,"<br>");
var re=/\{(.[^\{]*)\}/ig;
if(!re.test(Msg))pltsTitle="BAO.99W.CN 提示信息";
else{
re=/\{(.[^\{]*)\}(.*)/ig;
pltsTitle=Msg.replace(re,"$1")+" ";
re=/\{(.[^\{]*)\}/ig;
Msg=Msg.replace(re,"");
Msg=Msg.replace("<br>","");}
var attr=(document.location.toString().toLowerCase().indexOf("list.asp")>0?"nowrap":"");
var content =
'<table style="FILTER:alpha(opacity=90) shadow(color=#bbbbbb,direction=135);" id=toolTipTalbe border=0><tr><td width="100%"><table class=td cellspacing="0" cellpadding="0" style="width:100%">'+
'<tr id=pltsPoptop ><th height=18 valign=bottom><b><p id=topleft align=left>↖'+pltsTitle+'</p><p id=topright align=right style="display:none">'+pltsTitle+'↗</font></b></th></tr>'+
'<tr><td "+attr+" class=bg_td style="padding-left:14px;padding-right:14px;padding-top: 6px;padding-bottom:6px;line-height:135%">'+Msg+'</td></tr>'+
'<tr id=pltsPopbot style="display:none"><th height=18 valign=bottom><b><p id=botleft align=left>↙'+pltsTitle+'</p><p id=botright align=right style="display:none">'+pltsTitle+'↘</font></b></th></tr>'+
'</table></td></tr></table>';
pltsTipLayer.innerHTML=content;
toolTipTal...
var pltsoffsetX = 10; // 弹出窗口位于鼠标左侧或者右侧的距离；3-12 合适
var pltsoffsetY = 15; // 弹出窗口位于鼠标下方的距离；3-12 合适
var pltsPopbg="#FF0099"; //背景色
var pltsPopfg="#880000"; //前景色
var pltsTitle="";
document.write('<div id=pltsTipLayer style="display: none;position: absolute; z-index:10001"></div>');
function pltsinits()
{
document.onmouseover = plts;
document.onmousemove = moveToMouseLoc;
}
function plts()
{ var o=event.srcElement;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
pltsPop=o.dypop;
if(pltsPop!=null&&pltsPop!=""&&typeof(pltsPop)!="undefined")
{
pltsTipLayer.style.left=-1000;
pltsTipLayer.style.display='';
var Msg=pltsPop.replace(/
/g,"<br>");
Msg=Msg.replace(/\0x13/g,"<br>");
var re=/\{(.[^\{]*)\}/ig;
if(!re.test(Msg))pltsTitle="BAO.99W.CN 提示信息";
else{
re=/\{(.[^\{]*)\}(.*)/ig;
pltsTitle=Msg.replace(re,"$1")+" ";
re=/\{(.[^\{]*)\}/ig;
Msg=Msg.replace(re,"");
Msg=Msg.replace("<br>","");}
var attr=(document.location.toString().toLowerCase().indexOf("list.asp")>0?"nowrap":"");
var content =
'<table style="FILTER:alpha(opacity=90) shadow(color=#bbbbbb,direction=135);" id=toolTipTalbe border=0><tr><td width="100%"><table class=td cellspacing="0" cellpadding="0" style="width:100%">'+
'<tr id=pltsPoptop ><th height=18 valign=bottom><b><p id=topleft align=left>↖'+pltsTitle+'</p><p id=topright align=right style="display:none">'+pltsTitle+'↗</font></b></th></tr>'+
'<tr><td "+attr+" class=bg_td style="padding-left:14px;padding-right:14px;padding-top: 6px;padding-bottom:6px;line-height:135%">'+Msg+'</td></tr>'+
'<tr id=pltsPopbot style="display:none"><th height=18 valign=bottom><b><p id=botleft align=left>↙'+pltsTitle+'</p><p id=botright align=right style="display:none">'+pltsTitle+'↘</font></b></th></tr>'+
'</table></td></tr></table>';
pltsTipLayer.innerHTML=content;
toolTipTal...
论坛简洁模式修改
作者:cmscn 日期:2007-01-05
一 修改文件 admin_forum.asp
找到
dim funder,ftrue,fir_true,forumname,forumtype,forumpro,forumstar,forumparent,forumorder,fparent,forumhidden,fhidden,rs2,forumf,forumid2,classid2,fhn
再最后增加,forumconfig
找到 if not(isnumeric(forumpro)) then forum_pro=0
在下面填加
forumconfig=trim(request.form("forum_config"))
找到 rs("forum_power")=code_admin("forum_power",1,50)
在下面填加
if forumconfig<>"" then rs("forum_config")=forumconfig
找到 forumhidden=rs("forum_hidden")
在下面填加 forumconfig=rs("forum_config")
找到563行 附近 <tr><td>论坛类型：</td><td>
在上填加
以下为代码内容：
<%if rs("forum_f")=0 then%>
<tr><td>分类样式：</td><td><input type=radio name=forum_config value='1'<%if int(forumconfig)=1 then response.write " checked"%>>正常 <input type=radio name=forum_config value='2'<%if int(forumconfig)=2 then response.write " checked"%>>简洁(2列) <input type=radio name=forum_config value='3'<%if int(forumconfig)=3 then response.write " checked"%>>简洁(3列)</td></tr>
<%end if%>
找到 rs("forum_config")=""
修改为 rs("forum_config")=1
找到 sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num from bbs_forum order by class_id,forum_order,forum_star"
修改为 sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num,forum_config from bbs_forum order by class_id,forum_order,forum_star"
找到 <tr class=<%response.write cc%>>
在下面填加
以下为代码内容：
<td>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr class=<%response.write cc%>>
<td><font class=<%response.write fclass%>><b><%response.write foo&forumname%></b></font><%if int(forumn)>0 then response.write " <font class=red>"&forumn&"</font&...
找到
dim funder,ftrue,fir_true,forumname,forumtype,forumpro,forumstar,forumparent,forumorder,fparent,forumhidden,fhidden,rs2,forumf,forumid2,classid2,fhn
再最后增加,forumconfig
找到 if not(isnumeric(forumpro)) then forum_pro=0
在下面填加
forumconfig=trim(request.form("forum_config"))
找到 rs("forum_power")=code_admin("forum_power",1,50)
在下面填加
if forumconfig<>"" then rs("forum_config")=forumconfig
找到 forumhidden=rs("forum_hidden")
在下面填加 forumconfig=rs("forum_config")
找到563行 附近 <tr><td>论坛类型：</td><td>
在上填加
以下为代码内容：
<%if rs("forum_f")=0 then%>
<tr><td>分类样式：</td><td><input type=radio name=forum_config value='1'<%if int(forumconfig)=1 then response.write " checked"%>>正常 <input type=radio name=forum_config value='2'<%if int(forumconfig)=2 then response.write " checked"%>>简洁(2列) <input type=radio name=forum_config value='3'<%if int(forumconfig)=3 then response.write " checked"%>>简洁(3列)</td></tr>
<%end if%>
找到 rs("forum_config")=""
修改为 rs("forum_config")=1
找到 sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num from bbs_forum order by class_id,forum_order,forum_star"
修改为 sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num,forum_config from bbs_forum order by class_id,forum_order,forum_star"
找到 <tr class=<%response.write cc%>>
在下面填加
以下为代码内容：
<td>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr class=<%response.write cc%>>
<td><font class=<%response.write fclass%>><b><%response.write foo&forumname%></b></font><%if int(forumn)>0 then response.write " <font class=red>"&forumn&"</font&...
版主修改用户帖子时隐藏编辑信息
作者:cmscn 日期:2007-01-05
forum.edit.asp里修改3段代码，红色为原来的代码，蓝色为修改后的代码。
以下为代码内容：
if not(int(login_modep)=1 and trim(request.form("edit_info"))<>"yes") then
if not(int(login_modep)=1 or int(login_modep)=2 and trim(request.form("edit_info"))<>"yes") then
<% if int(login_modep)=1 then %>
<% if int(login_modep)=1 or int(login_modep)=2 then %>
<% if is_topic then %>
<% if int(login_modep)=1 and is_topic then %>
效果图：编辑自己的帖子更不在话下
以下为代码内容：
if not(int(login_modep)=1 and trim(request.form("edit_info"))<>"yes") then
if not(int(login_modep)=1 or int(login_modep)=2 and trim(request.form("edit_info"))<>"yes") then
<% if int(login_modep)=1 then %>
<% if int(login_modep)=1 or int(login_modep)=2 then %>
<% if is_topic then %>
<% if int(login_modep)=1 and is_topic then %>
效果图：编辑自己的帖子更不在话下
逆风音乐频道修改
作者:cmscn 日期:2007-01-05
原先文件中的 call music_top(10,10)
在后面加一个参数
call music_top(10,10,0) 这个调用排行
或者
call music_top(10,10,1) 这个调用推荐
打开 con_music.asp 文件
sub music_top
sub music_top(n_num,c_num) 改成
sub music_top(n_num,c_num,s_num)
dim tmp_img,tmp_where
select case s_num
case 1 '调用推荐
tmp_img="left_song_good"
tmp_where=" and istop=1 order by id desc"
case 0 '调用排行
tmp_img="left_song_ph"
tmp_where=" order by hits desc,id desc"
end select
response.write vbcrlf&music_bar_top("left_song_good",0)
改成
response.write vbcrlf&music_bar_top(tmp_img,0)
sql="select top "&n_num&" name,hits,id from music_song where istop=1 and hidden=1 order by id desc"
改成
sql="select top "&n_num&" name,hits,id from music_song where hidden=1"&tmp_where
在前台文件中找
call music_top(10,10)
改成
call music_top(10,10,0)
或
call music_top(10,10,1)
作者:泡泡龙
在后面加一个参数
call music_top(10,10,0) 这个调用排行
或者
call music_top(10,10,1) 这个调用推荐
打开 con_music.asp 文件
sub music_top
sub music_top(n_num,c_num) 改成
sub music_top(n_num,c_num,s_num)
dim tmp_img,tmp_where
select case s_num
case 1 '调用推荐
tmp_img="left_song_good"
tmp_where=" and istop=1 order by id desc"
case 0 '调用排行
tmp_img="left_song_ph"
tmp_where=" order by hits desc,id desc"
end select
response.write vbcrlf&music_bar_top("left_song_good",0)
改成
response.write vbcrlf&music_bar_top(tmp_img,0)
sql="select top "&n_num&" name,hits,id from music_song where istop=1 and hidden=1 order by id desc"
改成
sql="select top "&n_num&" name,hits,id from music_song where hidden=1"&tmp_where
在前台文件中找
call music_top(10,10)
改成
call music_top(10,10,0)
或
call music_top(10,10,1)
作者:泡泡龙
