你执行了两次请求，下面的代码改一下
cm.ExecuteNonQueryIf cm.ExecuteNonQuery Then
改成
dim count as integer = cm.ExecuteNonQueryIf count = 1 then
加好友 
发短信
Post By：2014/3/28 11:41:00 [显示全部帖子]
