小编Sif*_*uhy的帖子

Private Function StoreCouponCode() As String
        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("DBConnectionString").ConnectionString)
        Dim sql As New SqlCommand("", con)
        Dim sqlGetSlNo As New SqlCommand("SELECT MAX(SlNo) FROM Coupons WHERE CustID=" & Convert.ToInt16(HFCustID.Value) & " AND BusiID=" & Convert.ToInt16(HFBusiID.Value) & " AND OfferID=" & Convert.ToInt16(HFOfferID.Value), con)
        Dim sNo, UserID, couponCode, offerCheck As String
        Dim slNo As Int16

        Try
            UserID = getCurrentUserID()
            con.Open()
            sNo = Convert.ToString(sqlGetSlNo.ExecuteScalar)     'fteches latest serial no for the coupon
            If sNo = "" Then
                slNo = 0
            Else
                slNo = Convert.ToInt16(sNo) + …