📄 admin_config_edit.asp
字号:
</table>
</td><td class=gray>安全的发布信息时间，选择表示开放</td>
</tr>
<tr><td colspan=3 class=td> 网站SMTP邮件认证信息</td></tr>
<tr>
<td>联系邮箱地址：</td>
<td><input type=text name=web_dim_4 value='<%response.write web_dim(4)%>' size=20 maxlength=100> </td>
<td><%call admin_read("","联系邮箱地址","此乃联系站长的邮箱地址，SMTP邮件发送时发信人的邮箱地址，建议此邮箱地址与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=text name=web_sm_pass value='<%response.write web_sm_pass%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP认证密码</td>
</tr>
<tr><td colspan=3 class=td> 网站头部及底部信息设置</td></tr>
<tr>
<td>头部滚动广告：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=scroll_head value='<%response.write scroll_head%>' size=88 maxlength=200> </td>
<td><%call admin_read("","头部滚动广告","网站头部的滚动广告，在登陆用户有新短信时是会暂时隐掉，支持HTML。")%></td>
</tr>
</table>
</td>
</tr>
<tr><td colspan=3 class=td> 网站安全过滤设置</td></tr>
<tr>
<td>编码支持信息：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_frm_word value='<%response.write web_frm_word%>' size=88 maxlength=200> </td>
<td><%call admin_read("","编码支持信息","网站表单内常规的文本框所支持的编码提示信息，支持HTML。")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>用户名禁用：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_dim_15 value='<%response.write web_dim(15)%>' size=88 maxlength=200> </td>
<td><%call admin_read("","用户名禁用","网站注册用户名过滤字符，系统将默认禁用以下字符：<br>空格、|、:、'、"、TABLE符、回车符、换行符等")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>密码可用字符：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_dim_16 value='<%response.write web_dim(16)%>' size=88 maxlength=200> </td>
<td><%call admin_read("","密码可用字符","网站注册新用户时设置密码的可用（有效）的字符，区分大小写")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>保留用户名：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_dim_17 value='<%response.write web_dim(17)%>' size=88 maxlength=200> </td>
<td><%call admin_read("","保留用户名","网站注册新用户时要保留下来的用户名，多个关键字请用“:”（小写的冒号）格开")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>不健康字符：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_dim_18 value='<%response.write web_dim(18)%>' size=88 maxlength=200> </td>
<td><%call admin_read("","不健康字符","网站注册新用户时要保留下来的用户名，多个关键字请用“:”（小写的冒号）格开")%></td>
</tr>
</table>
</td>
</tr>
<tr><td colspan=3 class=td> IP过滤访问设置</td></tr>
<tr><td colspan=3 align=center>
<table border=0 width='98%'>
<tr><td width='33%' height=1></td><td width='34%'></td><td width='33%'></td></tr>
<%
tdim=split(web_dim(22),"|")
tnum=ubound(tdim)
for i=0 to tnum+1
if (i/3)-(i\3)=0 then response.write vbcrlf&"<tr>"
tmp1=""
if i<tnum+1 then tmp1=tdim(i)
response.write vbcrlf&"<td>IP"&i+1&"：<input type=text name=web_dim_22 value='"&tmp1&"' size=18 maxlength=15></td>"
if ((i-2)/3)-((i-2)\3)=0 then response.write vbcrlf&"</tr>"
next
erase tdim
%>
</table>
</td></tr>
<%
call submit_config()
end sub
sub joekoe_chk_music()
dim tdim,tnum,tmp1,music_ip,mint,jint,yint,power,playserver,downserver,musicserver,music_num,music_username
if chk() then
music_ip=code_config(request.form("music_ip"),0)
music_username=code_config(request.form("music_username"),0)
musicserver=code_config(request.form("music_server"),0)
musicserver=replace(musicserver," ","")
musicserver=replace(musicserver,",","$")
musicserver=musicserver&"$"
for i=0 to 1
if instr(musicserver,"$$")<1 then exit for
musicserver=replace(musicserver,"$$","$")
next
if right(musicserver,1)="$" then musicserver=left(musicserver,len(musicserver)-1)
mint=code_num(request.form("web_dim_23"),100)
jint=code_num(request.form("web_dim_24"),250)
yint=code_num(request.form("web_dim_25"),1000)
power=code_admin("power",1,50)
power=replace(power," ","")
power=replace(power,",",".")
music_ip=replace(music_ip," ","")
music_ip=replace(music_ip,",","|")
music_ip=music_ip&"|"
for i=0 to 1
if instr(music_ip,"||")<1 then exit for
music_ip=replace(music_ip,"||","|")
next
if right(music_ip,1)="|" then music_ip=left(music_ip,len(music_ip)-1)
music_num=code_num(request.form("music_num_1"),0)&code_num(request.form("music_num_2"),0)&code_num(request.form("music_num_3"),0)
web_dim(23)=mint
web_dim(24)=jint
web_dim(25)=yint
web_dim(26)=music_num
web_dim(27)=power
web_dim(28)=musicserver
web_dim(29)=music_ip
web_dim(30)=music_username
web_dim(31)=code_config(request.form("music_addin"),0)
web_dim(32)=code_config(request.form("music_comp"),0)
web_dim(33)=code_config(request.form("music_lang"),0)
web_dim(34)=code_config(request.form("music_favnum"),0)
web_dim(35)=code_config(request.form("music_mailnum"),0)
call joekoe_template_common()
call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
exit sub
end if
call form_first()
if len(web_dim(26))<>3 then web_dim(26)="000"
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>月卡花费：</td>
<td><input type=text name=web_dim_23 value='<%response.write web_dim(23)%>' size=10 maxlength=5> 个虚拟币</td>
<td class=gray>购买月卡所需虚拟币</td>
</tr>
<tr>
<td>度卡花费：</td>
<td><input type=text name=web_dim_24 value='<%response.write web_dim(24)%>' size=10 maxlength=5> 个虚拟币</td>
<td class=gray>购买季卡所需虚拟币</td>
</tr>
<tr>
<td>年卡花费：</td>
<td><input type=text name=web_dim_25 value='<%response.write web_dim(25)%>' size=10 maxlength=5> 个虚拟币</td>
<td class=gray>购买年卡所需虚拟币</td>
</tr>
<% tmp1=int(mid(web_dim(26),1,1)) %>
<tr>
<td>下载防盗：</td>
<td><input type=radio name=music_num_1 value='1'<% if int(tmp1)=1 then response.write " checked" %>> 开启 <input type=radio name=music_num_1 value='0'<% if int(tmp1)=0 then response.write " checked" %>> 关闭</td>
<td class=gray>歌曲下载防盗功能，注意开启后不扣币</td>
</tr>
<% tmp1=int(mid(web_dim(26),3,1)) %>
<tr>
<td>地址加密：</td>
<td><input type=radio name=music_num_3 value='1'<% if int(tmp1)=1 then response.write " checked" %>> 开启 <input type=radio name=music_num_3 value='0'<% if int(tmp1)=0 then response.write " checked" %>> 关闭</td>
<td class=gray>RM格式歌曲地址加密功能</td>
</tr>
<!--<% tmp1=int(mid(web_dim(26),2,1)) %>
<tr>
<td>前台发布：</td>
<td><input type=radio name=music_num_2 value='1'<% if int(tmp1)=1 then response.write " checked" %>> 开启 <input type=radio name=music_num_2 value='0'<% if int(tmp1)=0 then response.write " checked" %>> 关闭</td>
<td class=gray>用户是否能在前台发布歌曲</td>
</tr>
<tr>
<td>前台发布加分：</td>
<td><input type=text name=music_addin value='<%response.write web_dim(31)%>' size=10> 分</td>
<td class=gray>用户前台发布加积分值</td>
</tr>-->
<tr>
<td>最多收藏基数：</td>
<td colspan=2><input type=text name=music_favnum value='<%response.write web_dim(34)%>' size=10 maxlength=5> 条 用户最多收藏基数 * 用户组系数 = 用户最多收藏数量</td>
</tr>
<tr>
<td>最多点歌基数：</td>
<td colspan=2><input type=text name=music_mailnum value='<%response.write web_dim(35)%>' size=10 maxlength=5> 条 用户最多点歌基数 * 用户组系数 = 用户最多点歌数量</td>
</tr>
<tr>
<td>隶属公司：</td>
<td><input type=text name=music_comp value='<%response.write web_dim(32)%>' size=62 maxlength=200></td>
<td class=gray>歌手和专辑所属公司，请用“|”分隔</td>
</tr>
<tr>
<td>语言种类：</td>
<td><input type=text name=music_lang value='<%response.write web_dim(33)%>' size=62 maxlength=200></td>
<td class=gray>歌手和专辑语言种类，请用“|”分隔</td>
</tr>
<tr><td colspan=3 class=td> 音乐服务器设置</td></tr>
<tr><td colspan=3 align=center>每个服务器地址请用下列方式输入：<font class=red>“播放服务器|下载服务器”</font>，<b>注意用“|”分隔，否则出错！地址结尾请加上“/”！</b></td></tr>
<%
tdim=split(web_dim(28),"$")
tnum=ubound(tdim)
for i=0 to tnum+1
tmp1=""
if i<tnum+1 then tmp1=tdim(i)
response.write vbcrlf&"<tr>"
response.write vbcrlf&"<td>服务器"&i+1&"：</td>"
response.write vbcrlf&"<td colspan=2><input type=text name=music_server value='"&tmp1&"' size=88 maxlength=200></td>"
response.write vbcrlf&"</tr>"
next
erase tdim
%>
<tr><td colspan=3 class=td> 免费访问设置</td></tr>
<tr>
<td>免费 IP ：</td>
<td colspan=2 align=center>
<table border=0 width='98%'>
<tr><td width='33%' height=1></td><td width='34%'></td><td width='33%'></td></tr>
<%
tdim=split(web_dim(29),"|")
tnum=ubound(tdim)
for i=0 to tnum+1
if (i/3)-(i\3)=0 then response.write vbcrlf&"<tr>"
tmp1=""
if i<tnum+1 then tmp1=tdim(i)
response.write vbcrlf&"<td>IP"&i+1&"：<input type=text name=music_ip value='"&tmp1&"' size=18 maxlength=15></td>"
if ((i-2)/3)-((i-2⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -