<html>
<head>
<title>Texte</title>
</head> <%
Set objFile =
Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFile.OpenTextFile(Server.MapPath("/tutorial") &
"\texte\tips.txt")
Randomize Timer
intLine = Int(Rnd * 10)
For i = 0 to intLine
objStream.SkipLine
Next
strText = objStream.ReadLine
objStream.Close
Set objStream = Nothing
Set objFile = Nothing
%>
<h2
align="center"><font
color="#0000FF">S'essayer avec un fichier Texte</font></h2>
<hr>
<%=strText%>
</body>
</html> |