根据BOM获得实际encoding返回相应Reader

public Reader getReader(InputStream is,String encoding) throws IOException,UnsupportedEncodingExcept

接到一个项目，自己给加了一个类似于bbs的消息系统，由于http的无连接性，需要浏览器定时访问服务器查看是否有新消息存在，如果存在，则弹出窗口提示，同时刷新页面，显示已经存在的新消息数。 在网上搜了

'使用HttpWebRequest获得URL的返回值 Function GetUrlValue(ByVal Url As String) As String Dim HttpWebReques

'使用HttpWebRequest获得URL的返回值 Function GetUrlValue(ByVal Url As String) As String Dim HttpWebRe

'根据文本文件获得每行字符串的数组 Function GetLineStrByTxtFile(ByVal txtFileName As String) As ArrayList

'根据时间的字符串形式（20031110）获得日期型 Function GetDateTimeByDateString(ByVal DateString As String) As Date

'根据时间的字符串形式（20031110）获得日期型 Function GetDateTimeByDateString(ByVal DateString As String) As Date

'根据文本文件获得每行字符串的数组 Function GetLineStrByTxtFile(ByVal txtFileName As String) As ArrayList

<!-- http://www.knowsky.com --> <!-- bbs http://bbs.knowsky.com --> <!--把如下代码加入到&lt

<!-- http://www.knowsky.com/js --> <!-- bbs http://www.knowsky.com/bbs--> <HTML&g