gethits.aspx.vb

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


Partial Class DesktopModules_Article_GetHits
    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

            Dim hits As Int16 = DbService.ExecuteScalar("select hits from article where id=" & Integer.Parse(Request("articleid")))

            Response.Write("document.write(" & hits & ")")

        Catch ex As Exception
            Response.End()
        End Try
    End Sub
End Class