查看: 357|回复: 1

[文章教程] 判断是否包含汉字

[复制链接]
冰河非非 发表于 2020-1-11 17:11:44 | 显示全部楼层 |阅读模式
  1. a = "浓崴崴"
  2. If HasChinese(a) = True Then
  3.     response.Write "是名字"
  4. Else
  5.     response.Write "是学号"
  6. End If

  7. Function HasChinese(Str)
  8.     Session.Codepage = 936 '先把编码改为963
  9.     HasChinese = False
  10.     Dim i
  11.     For i = 1 To Len(Str)
  12.         If Asc(Mid(Str, i, 1))<0 Then
  13.            HasChinese = True
  14.             Exit For
  15.         End If
  16.     Next
  17.     Session.Codepage = 65001 '再把编码改回65001
  18. End Function
复制代码



ttasp 发表于 2020-1-11 22:18:07 | 显示全部楼层
支持下,很实用
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号