以下计数器为什么老是提示vistor=file.ReadAll错误?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>jishuqi</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<%
dim dizhi
dim vistor
 dizhi=server.MapPath("jsq/jsq.txt")
set fso=server.CreateObject("scripting.filesystemobject") 
      set file=fso.opentextfile(dizhi,2,ture)
      vistor=file.ReadAll
      vistor=vistor+1
      file.write(vistor)
      set file=nothing
      set fso=nothing
response.write(vistor)
%>
</body>
</html>