<%@ 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 gg=request("ggx") gg=GGcode(gg) toppath = Server.Mappath("../GGL.JS") 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.write (gg) Ts.Close function GGcode(fString) if not isnull(fString) then fString = Replace(fString, CHR(13) & CHR(10), "
';" & CHR(13) & CHR(10) & "strggl+='") fString ="var strggl="""";" & CHR(13) & CHR(10) & "strggl+='" & fString & "'" & CHR(13) & CHR(10) & "document.write(strggl)" GGcode = fString end if end function %> 公告发布成功