| 本月文章推荐 |
检查字符串strSource是否为big或big5码发表日期：2002-1-17
|
|
Public Function CheckBIG(strSource As String) As Boolean
Dim idx As Long Dim ByteTemp() As Byte CheckBIG = False For idx = 1 To Len(strSource) ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode) If UBound(ByteTemp) > 0 Then If (ByteTemp(1) >= 64) And (ByteTemp(1) <= 126) Then CheckBIG = True Exit For End If End If Next idx End Function |
| 上一篇：ASP限制只能中文输入的方法
人气:11685 下一篇：避免asp的SQL的执行效率低 人气:9760 |
| 浏览全部big的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
