Web Service:
<WebMethod(Description:="显示文章的评论", enablesession:=True)> _
Public Function ShowComment(ByVal ArticleID As Integer, ByVal CommentTable As String) As DataSet
Dim show As New DataAccess.CommentDB()
Dim ds As New DataSet()
ds = show.ShowCommentArticle(ArticleID, CommentTable)
Return ds <-- 有一条记录
End Function