<%
'取中间字符串
function getmidstr(L,R,str)

  int_left=instr(str,L)
  int_right=instr(str,R)

  If int_left>0 and int_right>0 Then
  getmidstr=mid(str,int_left+len(L),int_right-int_left-len(L))
  Else
  getmidstr="执行的字符串中不包含“"&L&"”或“"&R&"”"

str

response.write 

,str)
’将输出

%

扩展模式：

<%
'取中间字符串
function getmidstr(L,R,str,m,n) 
          'm,n为控制参数，表示输出的字符串将分别向左，向右多输出m，n个字符。
  int_left=instr(str,L)
  int_right=instr(str,R)

  if (m="left") then   '若m为“left”,输出的字符串将包含左边部分（L），下同
  m=len(L)
  end if
  if (n="right") then

  n=len(R)
  end if

  if (m>(len(L)+int_left-1)) then
  m=(len(L)+int_left-1)
  end if
  If int_left>0 and int_right>0 Then

  getmidstr=mid(str,int_left+len(L)-m,int_right-int_left-len(L)+n+m)
  Else
  getmidstr="执行的字符串中不包含“"&L&"”或“"&R&"”"

  End If
end function

str="abcdefghijk"
response.write "<BR>"&getmidstr("bcd","hi",str,0,0) 

‘输出"efg"
response.write "<BR>"&getmidstr("bcd","hi",str,2,1) 

‘输出"cdefgh"
response.write "<BR>"&getmidstr("bcd","hi",str,"left","right") 
‘输出"bcdefghi"


%>

Tags：取中间字符串，ASP