'//检测是否有同名类别名
Set Rs = Conn.Execute("Select * from [KS_Province] where ID<>" & ID & " and City='"&City&"' and ParentID="&ParentID&"")
If Not Rs.Eof Then
Rs.close
Set Rs = Nothing
Call CloseConn
Response.write "<script>alert('该地区已经存在!');history.back();</script>"
Response.End()
End if
增加红色部分的文字即可!