📄 admin_config_sitesetup.asp
字号:
<input type="radio" name="const_index_chat" value="1" <%if const_index_chat=1 then Response.Write("checked")%>>
开放<font color="gray">(是否开启首页聊天室，机耗资源，酌情考虑)</font></td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>点歌台参数设置</td>
<td colspan="2"> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>接受者个数</td>
<td colspan="2"> <input name="const_ordersong_renum" type="text" class=fminpt id="const_banner" value="<%=htmlencode(const_ordersong_renum)%>" size="6">
<font color="gray">(设置最多可以有几个接受者)</font> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>保留最大天数</td>
<td colspan="2"> <input name="const_ordersong_saveday" type="text" class=fminpt id="const_banner2" value="<%=htmlencode(const_ordersong_saveday)%>" size="6">
<font color="gray">(设置过期的最大天数，超过的将删除)</font> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>留言字数限制</td>
<td colspan="2"> <input name="const_ordersong_contentnum" type="text" class=fminpt id="const_ordersong_contentnum" value="<%=htmlencode(const_ordersong_contentnum)%>" size="6">
<font color="gray">(祝福留言的最多字符)</font> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>歌曲格式限制</td>
<td colspan="2"> <input name="const_ordersong_songfmt" type="text" class=fminpt id="const_ordersong_songfmt" value="<%=htmlencode(const_ordersong_songfmt)%>" size="40">
<font color="gray">(限制歌曲的扩展名，多个用|格开)</font> </td>
</tr>
<tr align="center" bgcolor=#eeeeee class=TBBG9>
<td colspan="3">Wap影音保密设定</td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>详细资料保密设定</td>
<td colspan="2"><input type="radio" name="const_secret_set" value="1" <%if const_secret_set=1 then Response.write "checked"%>>
保密 <input type="radio" name="const_secret_set" value="0" <%if const_secret_set=0 then Response.write "checked"%>>
开放 <font color="gray">(影音成员及影音嘉宾详细资料保密设定)</font> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>好友和准成员注册限制</td>
<td colspan="2"><input type="radio" name="const_friend_regset" value="1" <%if const_friend_regset=1 then Response.write "checked"%>>
允许注册 <input type="radio" name="const_friend_regset" value="0" <%if const_friend_regset=0 then Response.write "checked"%>>
不允许注册 <font color="gray">(影音好友和准影音成员注册限制设定)</font> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>好友和准成员登录限制</td>
<td colspan="2"><input type="radio" name="const_friend_loginset" value="1" <%if const_friend_loginset=1 then Response.write "checked"%>>
允许登录 <input type="radio" name="const_friend_loginset" value="0" <%if const_friend_loginset=0 then Response.write "checked"%>>
不允许登录 <font color="gray">(影音好友和准影音成员登录限制设定)</font> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>影音留言保密设定</td>
<td colspan="2"><input type="radio" name="const_forum_login_limit" value="0" <%if const_forum_login_limit=0 then Response.write "checked"%>>
不登录查看
<input type="radio" name="const_forum_login_limit" value="1" <%if const_forum_login_limit=1 then Response.write "checked"%>>
登录查看 <input type="radio" name="const_forum_login_limit" value="2" <%if const_forum_login_limit=2 then Response.write "checked"%>>
影音成员和嘉宾查看 <font color="gray">(设定影音留言查看权限)</font> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>影音论坛保密设定</td>
<td colspan="2"><input type="radio" name="const_bbs_login_limit" value="0" <%if const_bbs_login_limit=0 then Response.write "checked"%>>
不登录查看
<input type="radio" name="const_bbs_login_limit" value="1" <%if const_bbs_login_limit=1 then Response.write "checked"%>>
登录查看
<input type="radio" name="const_bbs_login_limit" value="2" <%if const_bbs_login_limit=2 then Response.write "checked"%>>
影音成员和嘉宾查看<font color="gray">(设定影音论坛查看权限)</font> </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>手机相册保密设定</td>
<td colspan="2"><input type="radio" name="const_photo_login_limit" value="0" <%if const_photo_login_limit=0 then Response.write "checked"%>>
不登录查看
<input type="radio" name="const_photo_login_limit" value="1" <%if const_photo_login_limit=1 then Response.write "checked"%>>
登录查看 <input type="radio" name="const_photo_login_limit" value="2" <%if const_photo_login_limit=2 then Response.write "checked"%>>
影音成员和嘉宾查看<font color="gray"> </font> <font color="gray">(设定手机相册查看权限)</font>
</td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>会员资料保密设定</td>
<td colspan="2"><input type="radio" name="const_classmateinfo_login_limit" value="0" <%if const_classmateinfo_login_limit=0 then Response.write "checked"%>>
不登录查看
<input type="radio" name="const_classmateinfo_login_limit" value="1" <%if const_classmateinfo_login_limit=1 then Response.write "checked"%>>
登录才看 <input type="radio" name="const_classmateinfo_login_limit" value="2" <%if const_classmateinfo_login_limit=2 then Response.write "checked"%>>
影音成员和嘉宾查看<font color="gray"> </font> <font color="gray">(设定会员资料查看权限)</font>
</td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>上传照片限制</td>
<td colspan="2"><input type="radio" name="const_upphoto_limit" value="1" <%if const_upphoto_limit=1 then Response.write "checked"%>>
限制上传 <input type="radio" name="const_upphoto_limit" value="0" <%if const_upphoto_limit=0 then Response.write "checked"%>>
不限制上传 <font color="gray">(设定影音好友和准影音成员是否能上传照片)</font> </td>
</tr>
<tr bgcolor=#eeeeee class=TBBG1>
<td colspan=3 align=center>Wap影音管理员用户名和密码设置</td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>管理员用户名和密码</td>
<td colspan="2"><input name="const_admin" type="text" class=fminpt id="const_admin" value="<%=htmlencode(const_admin)%>" size="30" maxlength="255">
<font color=gray>(管理员用户名和密码，用|格开)</font></td>
</tr>
<tr bgcolor=#eeeeee class=TBBG1>
<td colspan=3 align=center>Wap影音状态设置</td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>Wap影音状态设置</td>
<td colspan="2"> <input type="radio" name="SiteEnableFlag" value="1" <%if application("SiteEnableFlag")=1 then Response.Write("checked")%>>
开放
<input type="radio" name="SiteEnableFlag" value="0" <%if application("SiteEnableFlag")=0 then Response.Write("checked")%>>
关闭 </td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td>Wap影音关闭说明</td>
<td width="478" valign="middle"> <textarea name="SiteDisbledescription" cols="40" rows="4" class="fminpt" id="SiteDisbledescription"><%=htmlencode(application("SiteDisbledescription"))%></textarea>
</td>
<td width="101" valign="top"><font color=#FF0000>(在这里输入关闭说明，为空则不生效)</font></td>
</tr>
</table>
<%
End Function
Function GetFormValue
dim thing
for each thing in Request.Form
Response.Write thing&"="&Request(thing)&"<br>"
next
End Function
Function MakeDataBaseLinkFile
on error resume next
application("SiteEnableFlag")=Request("SiteEnableFlag")
application("SiteDisbledescription")=Replace(Request("SiteDisbledescription"),Chr(34),Chr(34))
if application("SiteEnableFlag")=0 then
Response.Write("Wap影音状态设置：<font color=red> 关闭 </font><br>要设置开放，请进入本管理系统设置！<br>")
else
Response.Write("Wap影音状态设置：<font color=green> 开放 </font>")
end if
Dim fs,outfile,n,outfilestr,Form_DEF_BBS_Name
Set fs = CreateObject("Scripting.FileSystemObject")
Set outfile=fs.CreateTextFile(Server.Mappath("inc/commom.asp"),true)
if not isobject(fs) then
Response.Write "您的服务器不支持FSO，请手动修改INC/commom.asp文件！"
Response.End()
end if
outfilestr=""
outfilestr=outfilestr&chr(60) & "%@ LANGUAGE=VBScript CodePage=936%" & chr(62) & VbCrLf
outfilestr=outfilestr& chr(60) & "%Option Explicit" & VbCrLf
outfilestr=outfilestr& "Response.Buffer = True" & VbCrLf
outfilestr=outfilestr& VbCrLf
outfilestr=outfilestr& " If application("& chr(34) &"SiteEnableFlag"& chr(34) &")="&chr(34)& chr(34)&" Then application("&chr(34)&"SiteEnableFlag"&chr(34)&") = 1" & VbCrLf
outfilestr=outfilestr& " If application("& chr(34) &"SiteEnableFlag"& chr(34) &")=0 and application("& chr(34) &"SiteDisbledescription"& chr(34) &")<>"& chr(34) & chr(34) &" and inStr(Replace(Lcase(Request.ServerVariables("& chr(34) &"URL"& chr(34) &")),"& chr(34) &"\"& chr(34) &","& chr(34) &"/"& chr(34) &"),"& chr(34) &"/admin/"& chr(34) &") = 0 Then" & VbCrLf
outfilestr=outfilestr& " Response.Write"& chr(34) &" 由于以下原因，本Wap影音暂时关闭：<br>"& chr(34) &"&application("& chr(34) &"SiteDisbledescription"& chr(34) &")"& VbCrLf
outfilestr=outfilestr& " Response.End"& VbCrLf
outfilestr=outfilestr& " End If"& VbCrLf
outfilestr=outfilestr& VbCrLf
outfilestr=outfilestr&" Const const_admin="& chr(34) &Request("const_admin")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_txlname="& chr(34) &Request("const_txlname")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_txlurl="& chr(34) &Request("const_txlurl")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_homepagename="& chr(34) &Request("const_homepagename")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_homepageurl="& chr(34) &Request("const_homepageurl")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_AccessDatabase="& chr(34) &Request("const_AccessDatabase")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_txllogourl="& chr(34) &Request("const_txllogourl")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_copyright="& chr(34) &Replace(Request("const_copyright"),Chr(34),Chr(34)&Chr(34))& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_adminname="& chr(34) &Request("const_adminname")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_adminemail="& chr(34) &Request("const_adminemail")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_BadWordString="& chr(34) &Request("const_BadWordString")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_FaceUploadurl="& chr(34) &Request("const_FaceUploadurl")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_photoup_path="& chr(34) &Request("const_photoup_path")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_faceuploadurl2="& chr(34) &Request("const_faceuploadurl2")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_emoturl="& chr(34) &Request("const_emoturl")& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_banner="& chr(34) &Replace(Request("const_banner"),Chr(34),Chr(34)&Chr(34))& chr(34) & VbCrLf
outfilestr=outfilestr&" Const const_PhotoFormat="& chr(34) &Replace(Request("const_PhotoFormat"),Chr(34),Chr(34)&Chr(34))& chr(34) & VbCrLf
outfilestr=outfilestr& VbCrLf
outfilestr=outfilestr&" Const const_welcomemessage="& Request("const_welcomemessage")& VbCrLf
outfilestr=outfilestr&" Const const_welcomeemail="& Request("const_welcomeemail")& VbCrLf
outfilestr=outfilestr&" Const const_UserOnlineTimeOut="& Request("const_UserOnlineTimeOut")& VbCrLf
outfilestr=outfilestr&" Const const_emailmode="& Request("const_emailmode")& VbCrLf
outfilestr=outfilestr&" Const const_uploadcomponent="& Request("const_uploadcomponent")& VbCrLf
outfilestr=outfilestr&" Const const_EnableUploadface="& Request("const_EnableUploadface")& VbCrLf
outfilestr=outfilestr&" Const const_MaxUploadFaceSize="& Request("const_MaxUploadFaceSize")& VbCrLf
outfilestr=outfilestr&" Const const_FaceHeight="& chr(34)& Request("const_FaceHeight")& chr(34)& VbCrLf
outfilestr=outfilestr&" Const const_FaceWidth="& chr(34)& Request("const_FaceWidth")& chr(34)& VbCrLf
outfilestr=outfilestr&" Const const_EnableSignUBBCode="& Request("const_EnableSignUBBCode")& VbCrLf
outfilestr=outfilestr&" Const const_PhotoMaxSize="& Request("const_PhotoMaxSize")& VbCrLf
outfilestr=outfilestr&" Const const_EnableMessageUBBCode="& Request("const_EnableMessageUBBCode")& VbCrLf
outfilestr=outfilestr&" Const const_index_chat="& Request("const_index_chat")& VbCrLf
outfilestr=outfilestr&" Const const_ordersong_renum="& Request("const_ordersong_renum")& VbCrLf
outfilestr=outfilestr&" Const const_ordersong_saveday="& Request("const_ordersong_saveday")& VbCrLf
outfilestr=outfilestr&" Const const_ordersong_contentnum="& Request("const_ordersong_contentnum")& VbCrLf
outfilestr=outfilestr&" Const const_ordersong_songfmt="& chr(34)& Request("const_ordersong_songfmt")& chr(34)& VbCrLf
outfilestr=outfilestr& VbCrLf
outfilestr=outfilestr& VbCrLf
outfilestr=outfilestr&" Const const_secret_set="& Request("const_secret_set")& VbCrLf
outfilestr=outfilestr&" Const const_friend_regset="& Request("const_friend_regset")& VbCrLf
outfilestr=outfilestr&" Const const_friend_loginset="& Request("const_friend_loginset")& VbCrLf
outfilestr=outfilestr&" Const const_forum_login_limit="& Request("const_forum_login_limit")& VbCrLf
outfilestr=outfilestr&" Const const_bbs_login_limit="& Request("const_bbs_login_limit")& VbCrLf
outfilestr=outfilestr&" Const const_photo_login_limit="& Request("const_photo_login_limit")& VbCrLf
outfilestr=outfilestr&" Const const_classmateinfo_login_limit="& Request("const_classmateinfo_login_limit")& VbCrLf
outfilestr=outfilestr&" Const const_upphoto_limit="& Request("const_upphoto_limit")& VbCrLf
outfilestr=outfilestr& VbCrLf
outfilestr=outfilestr& VbCrLf
outfilestr=outfilestr& "%" & chr(62) & VbCrLf
outfile.write outfilestr
outfile.Close
Set Fs = Nothing
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -