谁能帮我解释一下这些代码？逐句解释。。急

谁能帮我解释一下这些代码？逐句解释。。急

Function Bytes2bStr2(vin) //定义函数
Dim BytesStream,StringReturn //定义两个变量

Set BytesStream = Server.CreateObject("ADODB.Stream") //赋值 Server.CreateObject是创造数据集
With BytesStream //开始设置对象属性
.Type = adTypeText //类别为，text文本
.Open //打开对象
.WriteText vin //写入字符串vin的值

.Position = 0 //指向到流开始位置

.Charset = "GB2312" //设置流字符集
.Position = 2 //指向流第二位
StringReturn = .ReadText //读取流的值，赋给stringReturn
.close //关闭流
End With
Set BytesStream = Nothing //将对象置空
Bytes2bStr2 = StringReturn //函数返回值
End Function //结束函数

Function bytes2bstr1(vin) //另一个函数
strreturn = "" //返回值预置空
For i = 1 To lenb(vin) //遍历vin中所有的数据
thischarcode = ascb(midb(vin,i,1)) //AscB 返回的是字符在内存中第一个字节的字符代码
If thischarcode < &h80 Then //如果返回值小于h80
strreturn = strreturn & chr(thischarcode) //字符串加入到返回值
Else
nextcharcode = ascb(midb(vin,i+1,1)) //取下一个字符的第一个字节的字符代码
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) //字符代码*h100加入到函数返回值中，并加入其原值
i = i + 1
End If
Next
bytes2bstr1 = strreturn //函数返回
End Function//函数结束

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息