%
Application.Lock
set fso=CreateObject("Scripting.FileSystemObject")
filepath=server.MapPath("save.txt")
set readf=fso.OpenTextFile(filepath,1,true)
t=readf.readall
Application.UnLock
n=len(t)
m=n\22+1
for i=1 to m
str=str&mid(t,(i-1)*22+1,22)&"
"
next
%>
|
WElCOME TO OUR HOMEPAGE !!!! |
||
|
|
|
|
|
|||||||||||||||||||||||||||||||