<%
On Error Resume Next
'此页用于搜集互刷助手使用者的机器码便于统计分析，保存于 #UserList.log 文件，如果没看到此文件，请检查当前目录是否有写入权限
'及输出软件最新版本信息（如果有新版本，可修改下面的最新版本号，软件运行时会读取此信息判断是否有更新升级，更新升级EXE文件统一命名为：Update.exe）
Dim FSO, F, Content, Path, Data
Data = Left(Request("q"),50)
If Data <> "" Then
	Path = Server.MapPath("#UserList.log")
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	If Not FSO.FileExists(Path) Then
		Set F = FSO.CreateTextFile(Path)
		F.Write Data & vbCrLf
		F.Close
		Set F = Nothing
	Else
		Set F = FSO.OpenTextFile(Path, 1, True)
		If Not F.AtEndofStream Then
			Content = F.ReadAll
		End If
		F.Close
		Set F = Nothing
		'判断记录是否已存在
		If InStr(Content, Data) <= 0 Then
			Set F = FSO.OpenTextFile(Path, 8, True)
			F.Write Data & vbCrLf
			F.Close
			Set F = Nothing
		End If
	End If
	Set FSO = Nothing
End If
%>助手最新版本：V1.7.2