outcheck.asp

OFFICE办公自动化

<%
'树形结构输出检测
function checktxt_w2(i)
 dim j,k,x,h
 h=""
 k=len(i)
 
 for j=1 to k step 1
 x=mid(i,j,1)
 
 if x=chr(39) then
   h=h & "+" & chr(34) & chr(39) & chr(34)
 elseif x=chr(34) then
   h=h & "+" & chr(39) & chr(34) & chr(39)
 else 
 h=h & "+" & chr(34) & x & chr(34)
 end if
 next 
  checktxt_w2=h
end function 
%>