编写程序在浏览器输出1~999中能被3整除，且至少有一位数字是5的所有整数

ASP程序： <% Dim istr For i=1 To 999 If i Mod 3 = 0 Then istr = CStr(i) For j=1 To Len(istr) If Mid(istr,j,1)="5" Then response.write istr & "" Exit For End If