module1.bas

delphi 和ASP BS模式的程序

Attribute VB_Name = "Module1"
Public stutas As String
Public db As ADODB.Connection
Public Function AllDelStr(DT As String, DX As String) As String
If Len(DT) = 0 Then Exit Function
Do
W = InStr(DT, DX)
If W = 0 Then Exit Do
DT = Left(DT, W - 1) & Right(DT, Len(DT) - W - Len(DX) + 1)
Loop
AllDelStr = DT
End Function