asp 数据截取

gif01.gif01.gif0101.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif01.gif.gif01.gif01.gif01.gif[IMG]img/2006/03.gif[/IMG]f01.gif01.gif01.gif01.gif01
－－－－－－－－－－－
我想得到sql数据表（ntext类型）内容中的“03.gif”，怎么样截取？
然后从服务器删除掉这个03.gif文件，又怎么做？

假设该字段的值储存在strWord字段中，以下是一个设计思路。
dim strPicPath
dim arrWord
dim i
arrWord = split(strWord, "[IMG]")
for i = 1 to ubound(arrWord)
  strPicPath = server.mappath(split(arrWord(i),"[/IMG]")(0))
  '使用fso删除
  del strPicPath
next
Function Del(strSysPath)
  On Error Resume Next
  Dim objFile
  Set objFile = Server.Createobject("Scripting.FileSystemObject")
  If objFile.FileExists(strSysPath) Then
    objFile.DeleteFile strSysPath
  End If
  Set objFile = Nothing
  If Err.Number = 0 Then
    Del = True
  Else
    Del = False
  End If
  On Error Goto 0
End Function

热门标签

asp 数据截取

您可能感兴趣问答

Collapsible

热门标签

热点问答