oStream.Type = 2 oStream.Mode = 3 oStream.Open oStream.WriteText sByte oStream.Position = 0 oStream.CharSet = "gb2312" oStream.Position = 2 ByteToStr = oStream.ReadText oStream.Close Set oStream = Nothing End Function
Private Function ItemToColl For i = 0 To itemCount - 1 If Not Form.Exists(itemName(i)) Then Form.Add itemName(i), itemData(i) End If Next End Function
Private Sub Class_Terminate Form.RemoveAll Set Form = Nothing End Sub
上一篇:学习ASP有用的文本框过滤函数
下一篇:ASP实现的日历代码实例程序
|