问个超级晕的问题：ASP.NET(VB)中如何做一段程序+一个TXT做a=a+1这种超级简单的计数器？

[yjxp]

在ASP中可以这样写：
<%
Dim objFso,objTS,ss
Set objFso=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFso.OpenTextFile(server.MapPath("s.txt"),1,True)
ss = objTS.readline
ss = ss+1
response.write ss
objTS.close
Set objTS=objFso.OpenTextFile(server.MapPath("s.txt"),2,True)
objTS.Write(ss)
objTS.close
set objTS=Nothing
set objFso=Nothing
%>
但不知道ASP.net中怎么写啊？？？？
那位大哥知道，行行好？

[coolnick]

不就是读文件，写文件吗？用FILE类

[wanderzhou]

StreamReader outFile = new StreamReader (infoFile,Encoding.GetEncoding("gb2312"));
int ss=Convert.ToInt32(outFile.ReadLine())+1;
outFile.Close();

[yjxp]

FILE类怎么用啊，那里有示范，ASP.NET不会用呢

[xrll]

给你一段完整读写的代码:
<script language="c#" runat="server">
void Page_Load(Object Src,EventArgs E) {
('newyear.htm','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,revisable=no,left=100,top=0,width=600,height=50')</" + "script>");
if (!IsPostBack){
StreamReader objReader;
StreamWriter objWriter;
String sFile;
String sCount;
int iCount;
try{
sFile = Server.MapPath("counter/counter.txt");
if(!File.Exists(sFile)){
objWriter = File.CreateText(sFile);
objWriter.Write("0");
objWriter.Close();
}
objReader = File.OpenText(sFile);
sCount = objReader.ReadToEnd();
objReader.Close();
iCount = Int32.Parse(sCount);
iCount = iCount + 1;
sCount = iCount.ToString();
objWriter = File.CreateText(sFile);
objWriter.Write(sCount);
objWriter.Close();
}
catch (Exception edd){
Console.WriteLine("[因以下原因不能读出文件]: " +edd.ToString()) ;
}

[xrll]

对不起,请将('newyear.htm','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,revisable=no,left=100,top=0,width=600,height=50')</" + "script>");删除.

[yjxp]

好，我研究研究，不过最好有VB代码，只会ASP，VB还有点认识...

[yjxp]

各位大哥，我这样写：

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.IO" %>
<%
Dim filecont As object
Dim streamreaderobj As StreamReader
streamreaderobj = File.OpenText(Server.MapPath("sss.txt"))
filecont = streamreaderobj.ReadLine()
filecont = filecont+1
streamreaderobj.Close

Dim strwriterobj As StreamWriter
'创建文本文件并将其赋给上面声明的streamwriter对象
strwriterobj= File.CreateText(Server.MapPath("sss.txt"))
'在刚才创建的文本文件里写一些东东
strwriterobj.WriteLine(filecont)
strwriterobj.Close
%>
<%=filecont%>

可可能过，但没刷新几次就：出现该进程无法访问文件“F:\Web\webroom\web\sss.txt”，因为该文件正由另一进程使用。

[OK521]

你把你的程序放到sub....end sub 中，在页面中可以用一个label来显示值，不需要用<%=filecont%>的。
dim filecount as integer
在程序中可以转换的