<script language=vbscript>
'xm 姓名
function valiName(xm)
ret = true
for i = 1 to len(xm)
if asc(mid(xm, i, 1)) >= 0 and asc(mid(xm, i, 1)) <= 128 then
ret = false
exit for
end if
next
valiName = ret
end function
'mc 名称
'g 不能连续出现的英文字符
'h 不能连续出现的相同的中文字符
function valiNameContinuousChar(mc, g, h)
c = 0 : d = 0
b = false
last = ""
for i = 1 to len(mc)
if last <> "" and last = mid(mc, i, 1) then
d = d + 1
end if
if asc(mid(mc, i, 1)) > 0 then
if not b then
b = true
end if
c = c + 1
if c >= g then exit for
else
b = false
c = 0
end if
last = mid(mc, i, 1)
next
valiNameContinuousChar = c < g and d <= h - 2
end function
</script>
'xm 姓名
function valiName(xm)
ret = true
for i = 1 to len(xm)
if asc(mid(xm, i, 1)) >= 0 and asc(mid(xm, i, 1)) <= 128 then
ret = false
exit for
end if
next
valiName = ret
end function
'mc 名称
'g 不能连续出现的英文字符
'h 不能连续出现的相同的中文字符
function valiNameContinuousChar(mc, g, h)
c = 0 : d = 0
b = false
last = ""
for i = 1 to len(mc)
if last <> "" and last = mid(mc, i, 1) then
d = d + 1
end if
if asc(mid(mc, i, 1)) > 0 then
if not b then
b = true
end if
c = c + 1
if c >= g then exit for
else
b = false
c = 0
end if
last = mid(mc, i, 1)
next
valiNameContinuousChar = c < g and d <= h - 2
end function
</script>