File Manager
Back to List
| Current Directory: ~/
Editing: default.asp.bak
Full path: C:\ict\ICT\default.asp.bak
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<% '========================��С�ȵ���÷�����===================== Dim strFilePath Dim strObjFile Dim strObjStream Dim strTemp strFilePath = Server.MapPath("visitors.txt") '��˹����˹觢ͧ������纤�ҵ���Ţ Set strObjFile = CreateObject("Scripting.FileSystemObject") '���ҧ Object �����Ѻ Text File Set strObjStream= strObjFile.OpenTextFile (strFilePath, 1) '�ӡ���Դ��� visitors.txt ������ҹ���ҧ���� strTemp = strObjStream.ReadLine+1 '������ʹ Readline ������ҹ������ +������ա 1 strObjStream.Close '�ӡ�ûԴ��� Set strObjStream = strObjFile.OpenTextFile (strFilePath, 2) '�ӡ���Դ��� visitors.txt ������¹���ҧ���� strObjStream.WriteLine(strTemp) '��¹��ҷ����ҹ��ҡ����觴�ҹ����Ңͧ strTemp ŧ� visitors.txt strObjStream.Close '�ӡ�ûԴ��� %> <META http-equiv="Content-Type" content="text/html; charset=windows-874"> <BODY> <font face="ms Sans Serif, Thonburi, DB ThaiTextFixed" color="#000000" size="2"> <!-- <hr> --> <%=strTemp %> <!--<hr> --> <!-- <%'bit=strTemp\10000%><IMG SRC="<%'=bit%>.gif"> <%'bit=(strTemp mod 10000)\1000%><IMG SRC="<%'=bit%>.gif"> <%'bit=(strTemp mod 1000)\100%><IMG SRC="<%'=bit%>.gif"> <%'bit=(strTemp mod 100)\10%><IMG SRC="<%'=bit%>.gif"> <%'bit=strTemp mod 10%><IMG SRC="<%'=bit%>.gif">���� --> </body>