to UBound(newArray) Response.Write(newArray(i2)&;" ") next Response.Write("
") next
8:asp 对非法字符进行过滤 :
'此文件可以对整站提交文字进行过滤 '编写者:逸风 '编写日期:2008-6-4 '函数说明:对非法字符进行过滤 '这个函数将过滤所有非中文字符 function ClearString(str) dim re,str1,str2,i set re = new regexp re.Pattern = "^[\u4e00-\u9fa5\s\n\r\t]+$" for i=1 to len(str) str1 = mid(str,i,1) clearString = re.Test(str1) if clearString=true then str2 = str2&;str1 end if next str=str2 ClearString = str end fu