File Manager
Back to List
| Current Directory: ~/
Editing: counterr.asp.bak
Full path: C:\ict\ICT\counterr.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 '�ӡ�ûԴ��� %> <HTML><title>ASPThai Free Source Counter</title> <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> �ʴ� Counter Ẻ����Ţ ---- <%=strTemp %> ���� <hr> �ʴ� Counter Ẻ�ٻ�Ҿ 5 ��ѡ <%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">���� '��ѡ˹���