OpenBinaryFile i stedet for OpentextFile ?
Jeg bruger nedenstående til at åbne og læse nogle txt-filer.Men nu skal jeg bruge til til at åbne nogle binary logfiler som Windows NTbackup gemmer dem.
Jeg kan læse mig til at der er noget der hedder OpenBinaryFile i stedet for OpenTextFile. Men jeg kan ik helt få det til at virke. En der kan ændre nedenstående til OpenBinaryFile så det virker ?
<html>
<head>
<title>View_selected</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5"> <link rel="stylesheet" type="text/css" href="../style.css"> <SCRIPT LANGUAGE="JavaScript">
<!-- Idea by: Nic Wolfe (Nic@TimelapseProductions.com) -->
<!-- Web URL: http://fineline.xs.mw -->
<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->
<!-- Begin
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=0,statusbar=0,menubar=0,resizable=0,width=420,height=410,left = 276,top = 232');"); } // End --> </script> </head> <body bgcolor="232323"> <div align="center"> <table border="0" width="80%"> <tr> <td align=center class=text2><b>-=[@ Mirror Backup logs @]=</b>-</td> </tr> </table> </div> <div align="center"> <center><br> <table border="0" width="80%"> <tr> <td align=center class=text1> <% dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("e:\mirror_backup_log\")
for each x in fo.SubFolders
Set fs1=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs1.OpenTextFile("E:\mirror_backup_log\" & x.Name & "\mirror.log") tekstindhold = f.ReadAll if inStr(1, tekstindhold , "updating", 1) > 0 then response.write "updating<br>"
elseif inStr(1, tekstindhold , "deleting", 1) > 0 then response.write "deleting<br>"
elseif inStr(1, tekstindhold , "adding", 1) > 0 then response.write "adding<br>"
else
response.write "ingen ændring<br>"
end if
f.Close
Set f=Nothing
Set fs1=Nothing
Response.write("<a href=""java script:popUp('view_mirror_backup.asp?dato=" & x.Name & "&opgave=vislog')"">" & x.Name & "</a><br>")
next
set fo=nothing
set fs=nothing
%>
</td>
</tr>
</table>
</div>
</body>
</html>
*******************
<html>
<head>
<title>View_selected</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<link rel="stylesheet" type="text/css" href="../style.css">
</head>
<%
dato = request.querystring("dato")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile("E:\mirror_backup_log\" & dato & "\mirror.log")
do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
%>
