getpartstrandbyteslen.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 51 行

<%
 Function strLen(str) 
  Dim i,l,t,c
   l=len(str) 
   t=l 
   For i=1 To l 
    c=asc(mid(str,i,1)) 
     If c<0 then c=c+65536 
      If c>255 Then 
        t=t+1 
      End If
   Next 
   strLen=t 
 End Function
 Function getStr(str,getLen)
  If str="" or isNull(str) Then
   getStr=""
  Else
  Dim getStrTempValue
   getStrTempValue=Left(str,getLen)
   For i=1 To strLen(str)
    If strLen(getStrTempValue)<getLen*2 Then
     getStrTempValue=left(str,len(getStrTempValue)+1)
    End If
	If strLen(getStrTempValue)=getLen*2 Then
	 Exit For
	End If
   Next
    getStr=getStrTempValue
  End If
 End Function
 function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","") 
   changechr=replace(replace(replace(replace(changechr,"'",""),"and",""),"insert",""),"set","") 
    changechr=replace(replace(replace(replace(changechr,"select",""),"update",""),"delete%20from",""),chr(34),"&quot;") 
end function
Function RtnReplaceInt(iCheck,iDefault) 
	If Trim(iCheck)="" Then
		RtnReplaceInt = iDefault
		Exit Function
	End If

	If IsNumeric(iCheck)=false Then
		RtnReplaceInt = iDefault
		Exit Function
	End If

	RtnReplaceInt = iCheck
End Function
%>