Asp检查英文名称是否合法

<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>'检查英文名称是否合法
Function chkinputchar(f_char)
 Dim f_name, i, c
 f_name = f_char
 chkinputchar = True
 If Len(f_name) <= 0 Then
  chkinputchar = False
  Exit Function
 End If
 For i = 1 To Len(f_name)
    c = Mid(f_name, i, 1)
  If InStr(" abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ@,.0123456789|-_", c) <= 0  Then
     chkinputchar = False
  Exit Function
    End If
   Next
End Function  <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>