⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 scfg.asp

📁 柠檬树聊天服务器
💻 ASP
字号:
🔍 
<%Response.Expires=0
class1=Session("class")
if class1="" then Response.Write "没有权限" : Response.end
%>
<html>
<head>
<title></title>
<style type="text/css">
<!--
body {font-size : 10.5pt;}
td {font-size : 10.5pt;}
input {font-size : 10.5pt;}
.p9 {font-size: 9pt;}
-->
</style>
</head>
<body topmargin="2" leftmargin="2" bgcolor="#FFFFFF">
<!--#include file="conn.asp"-->

<% Dim config, string, enter, CgTitle, PastePic, PasteUrl, LookScore, LookGrade, LookHIP, LookIP, KickMan , LockIP,  BoomMan, UseHtml, Port, SystemURL, r_grade

config=Request.Form("config")
enter=Request.Form("enter")
CgTitle=Request.Form("CgTitle")
PastePic=Request.Form("PastePic")
PasteUrl=Request.Form("PasteUrl")
LookScore=Request.Form("LookScore")
LookGrade=Request.Form("LookGrade")
LookHIP=Request.Form("LookHIP")
LookIP=Request.Form("LookIP")
KickMan=Request.Form("KickMan")
LockIP=Request.Form("LockIP")
BoomMan=Request.Form("BoomMan")
UseHtml=Request.Form("UseHtml")
Port=Request.Form("Port")
SystemURL=Request.Form("SystemURL")
r_grade=Request.Form("r_grade")

if enter="修改确定" then
   Set rs = Conn.Execute("Update system set CgTitle='"&CgTitle&"', PastePic='"&PastePic&"', PasteUrl='"&PasteUrl&"', LookScore='"&LookScore&"', LookGrade='"&LookGrade&"', LookHIP='"&LookHIP&"', LookIP='"&LookIP&"', KickMan='"&KickMan&"', LockIP='"&LockIP&"', BoomMan='"&BoomMan&"', UseHtml='"&UseHtml&"', Port='"&Port&"', SystemURL='"&SystemURL&"' ")
	rs.close
	Response.write "<br><br><br><br><p align='center'>级别设置修改完毕<br><br><font color=red>请在管理中点击更新系统，使系统读取最新配置数据</font></p>"
	Response.write "<p align='center'><a href='scfg.asp'>点击这里返回</p></body>"
	Response.end
end if

IF config="-B-" then
string=Request.Form("come")
Application("come")=string
End if

IF config="-C-" then
string=Request.Form("exit")
Application("exit")=string
End if

IF config="-D-" then
string=Request.Form("tpp")
Application("tpp")=string
End if

IF config="-E-" then
string=Request.Form("tps")
Application("tps")=string
End if

IF config="-F-" then
string=Request.Form("tnu")
Application("tnu")=string
End if
%>

<form method="POST" action="scfg.asp">
<br>
  <table width="90%" border="1" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="1" bgcolor="#f0f0f0" align="center">
    <tr align="center">
      <td height="20" bgcolor="#66FFCC" colspan="3"><font
      color="#900000">一般性系统设置（自动更新）</font></td>
    </tr>
    <tr>
      <td width="130" height="45" bgcolor="#F0F0F0">进入聊天室公告：</td>
      <td height="45" bgcolor="#F0F0F0"><textarea rows="3" name="come" cols="46" class="p9"><%=Application("come")%></textarea></td>
      <td align="center"><input type="submit" value="-B-" name="config" style="background-color: FFCCFF"></td>
    </tr>
    <tr>
      <td height="45" bgcolor="#F0F0F0">离开聊天室公告：</td>
      <td height="45" bgcolor="#F0F0F0"><textarea rows="3" name="exit" cols="46" class="p9"><%=Application("exit")%></textarea></td>
      <td align="center"><input type="submit" value="-C-" name="config" style="background-color: FFCCFF"></td>
    </tr>
    <tr>
      <td height="45" bgcolor="#F0F0F0">网友投票公告：</td>
      <td height="45" bgcolor="#F0F0F0"><textarea rows="8" name="tpp" cols="46" class="p9"><%=Application("tpp")%></textarea></td>
      <td align="center"><input type="submit" value="-D-" name="config" style="background-color: FFCCFF"></td>
    </tr>
    <tr>
      <td height="45" bgcolor="#F0F0F0">投票权最低分：</td>
      <td height="45" bgcolor="#F0F0F0"><input type="text" name="tps" size="12" maxlength="12" value=<%=Application("tps")%>></td>
      <td align="center"><input type="submit" value="-E-" name="config" style="background-color: FFCCFF"></td>
    </tr>
    <tr>
      <td height="45" bgcolor="#F0F0F0">每人投票次数：</td>
      <td height="45" bgcolor="#F0F0F0"><input type="text" name="tnu" size="12" maxlength="12" value=<%=Application("tnu")%>></td>
      <td align="center"><input type="submit" value="-F-" name="config" style="background-color: FFCCFF"></td>
    </tr>
  </table>
<br>

<%set rs=conn.execute("Select * from system")%>

<table width="90%" border="1" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="1" bgcolor="#f0f0f0" align="center">
    <tr align="center">
      <td height="20" bgcolor="#66FFCC" colspan="2"><font
      color="#900000">高级系统设置（更改后手动更新设置）</font></td>
    </tr> 
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">更改标题级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="CgTitle" size="12" maxlength="12" value=<%=rs("CgTitle")%>></td>
    </tr>
    <tr>
      <td height="35" bgcolor="#F0F0F0">固定贴图级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="PastePic" size="12" maxlength="12" value=<%=rs("PastePic")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">自由贴图级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="PasteUrl" size="12" maxlength="12" value=<%=rs("PasteUrl")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">查看积分级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="LookScore" size="12" maxlength="12" value=<%=rs("LookScore")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">查看等级级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="LookGrade" size="12" maxlength="12" value=<%=rs("LookGrade")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">查看半长IP级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="LookHIP" size="12" maxlength="12" value=<%=rs("LookHIP")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">查看完整IP级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="LookIP" size="12" maxlength="12" value=<%=rs("LookIP")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">踢人级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="KickMan" size="12" maxlength="12" value=<%=rs("KickMan")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">封锁IP级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="LockIP" size="12" maxlength="12" value=<%=rs("LockIP")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">炸人级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="BoomMan" size="12" maxlength="12" value=<%=rs("BoomMan")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">使用Html级别：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="UseHtml" size="12" maxlength="12" value=<%=rs("UseHtml")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">6级以下满多少自动升级：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="r_grade" size="12" maxlength="12" value=<%=rs("r_grade")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">端口号：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="port" size="12" maxlength="12" value=<%=rs("port")%>></td>
    </tr>
    <tr>
      <td width="130" height="35" bgcolor="#F0F0F0">聊天室地址：</td>
      <td height="35" bgcolor="#F0F0F0"><input type="text" name="SystemURL" size="50" maxlength="100" value=<%=rs("SystemURL")%>></td>
    </tr>
<tr height="45"><td colspan="2" align="center"><input type="submit" value="修改确定" name="enter" style="background-color: FFCCFF"></td></tr>
  </table>
<%rs.close%>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -