<SCRIPT language=VBscript>
function TrimStr(str)
TrimStr = trim(str)
end function
function IsDC(str)
for i = 1 to len(str)
dd = Asc(mid(str,i,1))//求Pname里的每个字付的ASC码进行判断,
if dd < 48 or (dd > 57 and dd < 65) or (dd > 90 and dd < 97) or dd > 122 then
IsDC = false
exit function
end if
next
IsDC = true
end function
</SCRIPT>