设计到几个技术问题。
1。如何获取当前系统日期。
Dim DateNow as DateTime =DateTime.Now
Dim StrDate as String=Format(DateNow.Today,"yyyy年M月d日")
Dim d as Integer=DateNow.Day
这个用法可以参考后面的参考文章
2。如何按行来读取文本文件
Dim objStreamReader as StreamReader = File.OpenText(Server.MapPath("zhiban.txt"))
For i=1 to d
strline= objStreamReader.Readline()
next i
这里的readline就是读取一行文本
3。实现过程中遇到了乱码。
首先说一下,我的引用方式是在页面中用script来引用下面那个zhiban .aspx,比如
遇到两个问题,第一个是日期不正常显示,都是乱码,后来复制了一个webconfig过来,把里边的编码都改成gb2312就没事了。
第二个是,从文本文件中读取的数据,数字部分没问题,如果是汉字就不显示,就好像不存在一样,后来我把文本文件按照unicode方式另存了一下就好了,呵呵
程序原文:
zhiban.aspx: