|
Тема |
pomognete, molq ;) |
|
Автор |
moonjogger (влюбен...) |
|
Публикувано | 03.04.02 15:45 |
|
|
Zdraveite,
imam edin XML fail...iskam chrez ASP da proverqvam dali faila e modificiran prez poslednite N na broi sekundi. Ako e modificiran - mi se izprashta faila kato tekstov potok, ako ne - vrushta "&reply=0"
Edin priqtel mi napisa sledniq script, no toi ne raboti...vrushta "<=fc"
-----------------------
<%
Dim strFileName
strFileName = "c:\temp\Joro\" & Request ("fname") ' Tuka sam si znaesh kade shte e
Dim intInterval
intInterval = CInt (Request ("interval"))
Dim fso, f, ts, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile (strFileName)
'response.write f.DateCreated & "<BR>"
'response.write f.DateLastAccessed & "<BR>"
'response.write f.DateLastModified & "<BR>"
'response.write Now & "<BR>"
If (DateDiff ("s", f.DateLastModified, Now) < intInterval) Then
%>&reply=0&<%
Else
' Open the file
Set ts = f.OpenAsTextStream (1, -2)
fc = ts.ReadAll
ts.Close
%>&reply=<% = fc %>&<%
End If
%>
---------------------------
Blagodarq predvaritelno!!!
|Не се изказвай за неща, които не разбираш|
|
| |
|
|
|