验证链接(vb.net)

    Public Function SetStardLink(ByVal strInput As String) As String

        If InStr(LCase(strInput), "http://") > 0 Then
            Return strInput
        Else
            Return "http://" & strInput
        End If

    End Function