代码就懒的写了，给个思路吧。 读取数据库中每条记录的链接和ID，用WebRequest访问链接，如果返回错误，比如404或者500，就删除该条记录。附代码：Module Module1
Sub Main()
System.Console.WriteLine("开始扫描数据库中的超链接...")
Dim returnData = SelectingData()
System.Console.WriteLine("开始执行删除操作...")
For I As Integer = 0 To returnData.Count - 1
...
