wapstr.asp
资源名称:WAPblaog.zip [点击查看]
上传用户:dragonczj
上传日期:2013-07-05
资源大小:56k
文件大小:0k
源码类别:
手机WAP编程
开发平台:
Java
- <%
- Function converttowide(str)
- Dim strlen
- Dim position
- Dim convertstr
- if isnull(str) then
- converttowide=str
- else
- position=1
- strlen=Len(str)
- For i=1 To strlen
- convertstr=convertstr+"&#x"+Hex(AscW(Mid(str,position,1)))+";"
- position=position+1
- Next
- converttowide=convertstr
- end if
- End Function
- %>