可是我已经判断了:
..................
If Not File.Exists(Server.MapPath("bin\checkdog.txt")) Then
Response.Redirect("default.aspx")
Else
'' 读出校对码()
Dim streamreaderobj As StreamReader
Dim filecont As String
streamreaderobj = File.OpenText(Server.MapPath("bin\checkdog.txt"))
filecont = streamreaderobj.ReadLine()
streamreaderobj.Close()
end if
....................