- <%
-
-
-
-
- function ReadFromTextFile (FileUrl,CharSet)
- dim str
- set stm=server.CreateObject("adodb.stream")
- stm.Type=2
- stm.mode=3
- stm.charset=CharSet
- stm.open
- stm.loadfromfile server.MapPath(FileUrl)
- str=stm.readtext
- stm.Close
- set stm=nothing
- ReadFromTextFile=str
- end function
- %>
- <%
-
-
-
-
- Sub WriteToTextFile (FileUrl,byval Str,CharSet)
- set stm=server.CreateObject("adodb.stream")
- stm.Type=2
- stm.mode=3
- stm.charset=CharSet
- stm.open
- stm.WriteText str
- stm.SaveToFile server.MapPath(FileUrl),2
- stm.flush
- stm.Close
- set stm=nothing
- end Sub
- %>
- <%
-
-
-
-
- Sub WriteToTextFile (FileUrl,byval Str,CharSet)
- set stm=server.CreateObject("adodb.stream")
- stm.Type=2
- stm.mode=3
- stm.charset=CharSet
- stm.open
- stm.WriteText str
- stm.SaveToFile server.MapPath(FileUrl),2
- stm.flush
- stm.Close
- set stm=nothing
- end Sub
- %>
|
|
| | |