📄 admin_set.asp
字号:
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file="inc/admin_css.asp"-->
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
if not supermaster or session("flag")="" then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
call txl_error()
else
if request("action")="save" then
call saveconst()
elseif request("action")="restore" then
call restore()
else
call consted()
end if
conn.close
set conn=nothing
end if
sub consted()
dim sel
%>
<form method="POST" action="admin_set.asp?action=save">
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th height="25" colspan="2" id=TableTitleLink>常规信息设置</th>
</tr>
<tr>
<td height="25" colspan="2" class=txlrow><b>说明：</b>这里可以对同学录进行全部信息的设置；点击恢复默认设置可以恢复到同学录的初始设置。</td>
</tr>
<tr>
<td height="25" colspan="2" class=txlrow align=center><a href="?action=restore"><b>恢复同学录默认设置<b></a></td>
</tr>
<tr>
<th height="25" colspan="2" align=left id=TableTitleLink>状态设置[<a href="#top">顶部</a>]</th>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否允许新用户注册</U><BR>关闭后同学将不能注册</td>
<td width="50%" class=txlrow>
<input type=radio name="txl_Set(0)" value=0 <%if cint(txl_Set(0))=0 then%>checked<%end if%>>是
<input type=radio name="txl_Set(0)" value=1 <%if cint(txl_Set(0))=1 then%>checked<%end if%>>否 </td>
<tr>
<td width="50%" class=txlrow><U>同学录当前状态</U><BR>维护期间可设置关闭同学录</td>
<td width="50%" class=txlrow>
<input type=radio name="txl_Set(1)" value=0 <%if cint(txl_Set(1))=0 then%>checked<%end if%>>打开
<input type=radio name="txl_Set(1)" value=1 <%if cint(txl_Set(1))=1 then%>checked<%end if%>>关闭 </td>
</tr>
<tr>
<td width="50%" class=txlrow><U>维护说明</U><BR>在同学录关闭情况下显示，支持html语法</td>
<td width="50%" class=txlrow> <textarea name="Stopwhy" cols="40" rows="3"><%=Stopwhy%></textarea></td>
</tr>
<tr>
<th height=25 colspan=2 align=left id=tabletitlelink>班级信息[<a href="#top">顶部</a>]</th>
</tr>
<tr>
<td width="50%" class=txlrow> <U>同学录名称</U></td>
<td width="50%" class=txlrow> <input type="text" name="txlName" size="35" value="<%=txl_info(0)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>同学录的url</U></td>
<td width="50%" class=txlrow> <input type="text" name="txlURL" size="35" value="<%=txl_info(1)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>主页名称</U></td>
<td width="50%" class=txlrow> <input type="text" name="CompanyName" size="35" value="<%=txl_info(2)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>主页URL</U></td>
<td width="50%" class=txlrow> <input type="text" name="HostUrl" size="35" value="<%=txl_info(3)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>皮肤目录</U></td>
<td width="50%" class=txlrow> <input type="text" name="skinurl" size="35" value="<%=txl_info(6)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>图片目录</U></td>
<td width="50%" class=txlrow> <input type="text" name="Picurl" size="35" value="<%=txl_info(7)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>发贴表情目录</U></td>
<td width="50%" class=txlrow> <input type="text" name="faceurl" size="35" value="<%=txl_info(8)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>发贴心情目录</U></td>
<td width="50%" class=txlrow> <input type="text" name="emoturl" size="35" value="<%=txl_info(9)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>头像目录</U></td>
<td width="50%" class=txlrow> <input type="text" name="UserFaceurl" size="35" value="<%=txl_info(10)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>UBB图片目录</U></td>
<td width="50%" class=txlrow> <input type="text" name="Ubburl" size="35" value="<%=txl_info(11)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>班级照片存放目录</U></td>
<td width="50%" class=txlrow> <input type="text" name="photourl" size="35" value="<%=txl_info(12)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>版权信息</U></td>
<td width="50%" class=txlrow> <input type="text" name="Copyright" size="35" value="<%=Copyright%>"></td>
</tr>
<tr>
<th height=25 colspan=2 align=left id=tabletitlelink>悄悄话选项[<a href="#top">顶部</a>]</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>开启短信欢迎新注册用户</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_Set(2)" value=0 <%if cint(txl_Set(2))=0 then%>checked<%end if%>>打开
<input type=radio name="txl_Set(2)" value=1 <%if cint(txl_Set(2))=1 then%>checked<%end if%>>关闭
</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>新短消息弹出窗口</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(3)" value=0 <%if cint(txl_set(3))=0 then%>checked<%end if%>>是
<input type=radio name="txl_set(3)" value=1 <%if cint(txl_set(3))=1 then%>checked<%end if%>>否 </td>
</tr>
<tr>
<th height=25 colspan=2 align=left id=tabletitlelink>邮件选项[<a href="#top">顶部</a>]</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>管理员Email</U><BR>给用户发送邮件时，显示的来源Email信息</td>
<td width="50%" class=txlrow> <input type="text" name="SystemEmail" size="35" value="<%=txl_info(5)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>发送邮件组件</U><BR>如果您的服务器不支持下列组件，请选择不支持</td>
<td width="50%" class=txlrow>
<select name="txl_set(4)">
<option value="0" <%if txl_set(4)=0 then%>selected<%end if%>>不支持
<option value="1" <%if txl_set(4)=1 then%>selected<%end if%>>JMAIL
<option value="2" <%if txl_set(4)=2 then%>selected<%end if%>>CDONTS
<option value="3" <%if txl_set(4)=3 then%>selected<%end if%>>ASPEMAIL
</select>
</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>SMTP Server地址</U><BR>只有在论坛使用设置中打开了发送邮件功能，该填写内容方有效</td>
<td width="50%" class=txlrow> <input type="text" name="SMTPServer" size="35" value="<%=txl_info(4)%>"></td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>发送注册信息邮件</U><BR>请确认您打开了邮件功能</td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(5)" value=0 <%if cint(txl_set(5))=0 then%>checked<%end if%>>打开
<input type=radio name="txl_set(5)" value=1 <%if cint(txl_set(5))=1 then%>checked<%end if%>>关闭 </td>
</tr>
<tr>
<th height=25 colspan=2 align=left id=tabletitlelink>系统设置[<a href="#top">顶部</a>]</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>脚本超时时间</U><BR>默认为300，一般不做更改</td>
<td width="50%" class=txlrow> <input type="text" name="txl_set(6)" size="3" value="<%=txl_set(6)%>"> 秒</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>删除不活动用户时间</U><BR>可设置删除多少分钟内不活动用户<BR>单位：分钟，请输入数字</td>
<td width="50%" class=txlrow> <input type="text" name="txl_set(7)" size="3" value="<%=txl_set(7)%>"> 分钟</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否显示页面执行时间</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(8)" value=0 <%if cint(txl_set(8))=0 then%>checked<%end if%>>是
<input type=radio name="txl_set(8)" value=1 <%if cint(txl_set(8))=1 then%>checked<%end if%>>否 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否显示过生日会员</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(9)" value=0 <%if cint(txl_set(9))=0 then%>checked<%end if%>>是
<input type=radio name="txl_set(9)" value=1 <%if cint(txl_set(9))=1 then%>checked<%end if%>>否 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否显示在线列表</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(10)" value=0 <%if cint(txl_set(10))=0 then%>checked<%end if%>>是
<input type=radio name="txl_set(10)" value=1 <%if cint(txl_set(10))=1 then%>checked<%end if%>>否 </td>
</tr>
<tr>
<th height=25 colspan=2 align=left id=tabletitlelink>基本设置[<a href="#top">顶部</a>]</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>班级留言每页显示纪录</U><BR>班级留言列表、帖子回复列表等</td>
<td width="50%" class=txlrow> <input type="text" name="txl_set(11)" size="3" value="<%=txl_set(11)%>"> 条</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>班级论坛列表显示纪录</U><BR>班级名片列表、帖子主题列表等</td>
<td width="50%" class=txlrow> <input type="text" name="txl_set(12)" size="3" value="<%=txl_set(12)%>"> 条</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否允许发表留言</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(13)" value=0 <%if cint(txl_set(13))=0 then%>checked<%end if%>>是
<input type=radio name="txl_set(13)" value=1 <%if cint(txl_set(13))=1 then%>checked<%end if%>>否 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否允许论坛发贴</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(14)" value=0 <%if cint(txl_set(14))=0 then%>checked<%end if%>>是
<input type=radio name="txl_set(14)" value=1 <%if cint(txl_set(14))=1 then%>checked<%end if%>>否 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否允许上传照片</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(15)" value=0 <%if cint(txl_set(15))=0 then%>checked<%end if%>>是
<input type=radio name="txl_set(15)" value=1 <%if cint(txl_set(15))=1 then%>checked<%end if%>>否 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否开启UBB代码</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(16)" value=0 <%if cint(txl_set(16))=0 then%>checked<%end if%>>打开
<input type=radio name="txl_set(16)" value=1 <%if cint(txl_set(16))=1 then%>checked<%end if%>>关闭 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否开启HTML代码</U></td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(17)" value=0 <%if cint(txl_set(17))=0 then%>checked<%end if%>>打开
<input type=radio name="txl_set(17)" value=1 <%if cint(txl_set(17))=1 then%>checked<%end if%>>关闭 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>班级留言是否开启贴图标签</U><br>包括图片、flash、多媒体等</td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(18)" value=0 <%if cint(txl_set(18))=0 then%>checked<%end if%>>打开
<input type=radio name="txl_set(18)" value=1 <%if cint(txl_set(18))=1 then%>checked<%end if%>>关闭 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>班级论坛是否开启贴图标签</U><br>包括图片、flash、多媒体等</td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(19)" value=0 <%if cint(txl_set(19))=0 then%>checked<%end if%>>打开
<input type=radio name="txl_set(19)" value=1 <%if cint(txl_set(19))=1 then%>checked<%end if%>>关闭 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>是否开启班级照片评论功能</U><br>开启后可以对照片进行评论</td>
<td width="50%" class=txlrow>
<input type=radio name="txl_set(20)" value=0 <%if cint(txl_set(20))=0 then%>checked<%end if%>>打开
<input type=radio name="txl_set(20)" value=1 <%if cint(txl_set(20))=1 then%>checked<%end if%>>关闭 </td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>留言内容最大字节数</U><BR>1024字节等于1K</td>
<td width="50%" class=txlrow> <input type="text" name="txl_set(21)" size="8" value="<%=txl_set(21)%>"> 字节</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>论坛内容最大字节数</U></td>
<td width="50%" class=txlrow> <input type="text" name="txl_set(22)" size="8" value="<%=txl_set(22)%>"> 字节</td>
</tr>
<tr>
<td width="50%" class=txlrow> <U>上传照片最大字节数</U></td>
<td width="50%" class=txlrow> <input type="text" name="txl_set(23)" size="8" value="<%=txl_set(23)%>"> 字节</td>
</tr>
<tr>
<td colspan=2 class=txlrow align="center"><input type="submit" name="Submit" value="提 交"></td>
</tr>
</table>
</form>
<%
end sub
sub saveconst()
txl_Set=request.Form("txl_set(0)") & "," & request.Form("txl_set(1)") & "," & request.Form("txl_set(2)") & "," & request.Form("txl_set(3)") & "," & request.Form("txl_set(4)") & "," & request.Form("txl_set(5)") & "," & request.Form("txl_set(6)") & "," & request.Form("txl_set(7)") & "," & request.Form("txl_set(8)") & "," & request.Form("txl_set(9)") & "," & request.Form("txl_set(10)") & "," & request.Form("txl_set(11)") & "," & request.Form("txl_set(12)") & "," & request.Form("txl_set(13)") & "," & request.Form("txl_set(14)") & "," & request.Form("txl_set(15)") & "," & request.Form("txl_set(16)") & "," & request.Form("txl_set(17)") & "," & request.Form("txl_set(18)") & "," & request.Form("txl_set(19)") & "," & request.Form("txl_set(20)") & "," & request.Form("txl_set(21)") & "," & request.Form("txl_set(22)") & "," & request.Form("txl_set(23)")
txl_info=Request("txlName") & "," & Request("txlurl") & "," & Request("CompanyName") & "," & Request("HostUrl") & "," & Request("SMTPServer") & "," & Request("SystemEmail") & "," & Request("skinurl") & "," & Request("Picurl") & "," & Request("Faceurl") & "," & Request("emoturl") & "," & Request("userfaceurl") & "," & Request("Ubburl") & "," & Request("photourl")
txl_copyright=request("copyright")
sql="update config set txl_set='"&txl_set&"',Stopwhy='"&request.Form("Stopwhy")&"',txl_info='"&txl_info&"',txl_copyright='"&txl_copyright&"'"
conn.execute(sql)
response.write "设置成功。"
end sub
'恢复默认设置
sub restore()
txl_info="红雨同学录,http://www.hrbyydz.com/txl,数学人,http://www.hrbyydz.com,mail.enkj.com,qa_90@hotmail.com,skin/,images/,face/,emot/,userface/,ubbpic/,photo/"
txl_set="0,0,0,0,0,0,300,40,0,0,0,10,20,0,0,0,0,1,0,0,0,10240,16240,204800"
conn.execute("update config set txl_set='"&txl_set&"',txl_info='"&txl_info&"'")
response.write "还原设置成功。"
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -