急急！！！这段代码什么意思！？

Function KeywordEncode(ByVal Keyword)
Dim I
Dim Temp

For I = 1 To Len(Keyword)

Temp = Hex(Asc(Mid(Keyword,I,1)))

If Len(Temp) = 4 Then 
KeywordEncode = KeywordEncode & Temp
Else 
KeywordEncode = KeywordEncode & "00" & Temp
End If 
Next
End Function --------------------编程问答-------------------- 这是vb语言？ --------------------编程问答-------------------- --------------------编程问答-------------------- asp函数吧,对keywords进行asc编码

补充：.NET技术 ,  ASP.NET