<%@ LANGUAGE=VBScript codepage ="936" %>
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl ="No-Cache"
if session("TWT_ARR_ArgALL")="" then response.end
TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=")
nickname=TWT_ArrArg(0)
grade=TWT_ArrArg(2)
myid=TWT_ArrArg(1)
If Session("ADMIN") <> True Then Response.Redirect "../error.asp?id=439"
if grade<10 then Response.Redirect "../error.asp?id=439"%>
<%
userip=Request.ServerVariables("REMOTE_ADDR")
if Instr(twt_sys_grade,"|" & nickname & "|")=0 or Instr(jiutian_hkip,userip)<>0 then
%>
<%
response.end
end if
%>
发言管理
<%if not request.form("set")="ok" then%>
【发言管理】
［天外天提示］更改以下参数，将会影响到聊天室处理运气部份的运行代码。
刷新
<%
response.end
else
call setconst()
end if
sub setconst()
'*************************************************************
'*以下为聊天室设置请按自己的需要设置，设置前最好备份一下原文件！*
'* CNET中文网（http://www.yescnet.com) *
'*************************************************************
writeStr=writeStr & "const twt_c_rndgg=" & """" & sqlstr(request.form("twt_c_rndgg"),"|") & """" & chr(13) & chr(10)
writeStr=writeStr & "const twt_c_move=" & request.form("twt_c_move") & chr(13) & chr(10)
writeStr=writeStr & "const twt_c_fang=" & request.form("twt_c_fang") & chr(13) & chr(10)
writeStr=writeStr & "const twt_c_wuqi=" & request.form("twt_c_wuqi") & chr(13) & chr(10)
writeStr=writeStr & "const twt_c_zouyunqi=" & request.form("twt_c_zouyunqi") & chr(13) & chr(10)
%>
<%
tpstr=replace(writestr,chr(13) & chr(10) ," ")
tpstr="<% " & tpstr & " %>"
writestr="<" & "%" & chr(13) & chr(10) & writestr & chr(13) & chr(10) & "%" & ">"
response.write tpstr
if IsObjInstalled("Scripting.FileSystemObject") then
toppath = Server.Mappath("../const4.asp")
Set fs = CreateObject("scripting.filesystemobject")
If Not Fs.FILEEXISTS(toppath) Then
Set Ts = fs.createtextfile(toppath, True)
Ts.close
end if
Set Ts= Fs.OpenTextFile(toppath,2)
Ts.writeline (writeStr)
Ts.Close
%>
<%
else
%>
<%
end if
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Function sqlstr(str,gt)
tempstr=replace(str,"""","'")
tempstr=replace(str,gt & gt,gt)
if right(tempstr,1)<>gt then tempstr= tempstr & gt
tempstr=replace(tempstr,"http://","",1,-1, vbTextCompare)
if left(tempstr,1)=gt then tempstr=right(tempstr,len(tempstr)-1)
sqlstr=tempstr
end Function
%>