sethits.aspx.vb

来自「如果不使用IIS,请先运行 XSP.exe,待提示已侦听 8080端口后」· VB 代码 · 共 19 行

Imports DNNLite.DesktopModules.Article
Partial Class DesktopModules_Article_SetHits
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If String.IsNullOrEmpty(Request("articleid")) Then
            Response.End()
        End If
        Try
            DbService.ExecuteNonQuery("update article set hits=hits+1 where id=" & Integer.Parse(Request("articleid")))

        Catch ex As Exception
            Response.End()
        End Try


    End Sub
End Class