vsprint打印实例

关注

VIP免费原创最新推荐文章于 2024-05-22 16:30:12 发布 1.4k 阅读 AI 写同款· GEO 优化 ›

Ghost HTTP方法：利用协议解析差异绕过WAF的实战指南 HTTP协议作为Web通信的基石，其请求方法定义了客户端与服务器交互的核心操作。在安全防护体系中，Web应用防火墙通过解析和规范化HTTP方法进行访问控制。然而，当请求经过多层中间件时，各组件对HTTP方法的解析可能存在差异，这种协议解析的不一致性构成了潜在的安全风险。从技术价值看，攻击者可利用大小写变异、添加特殊字符或使用方法覆盖头部等技巧，构造非常规HTTP方法，使恶意请求绕过前端WAF检测直达后端应用逻辑。这种技术常被用于渗透测试中，作为绕过防护、探测端点的有效手段。本文聚焦于Ghost HTTP方法阅读详情

Option Explicit

Public Function formatData2(ByVal data1 As Double, ByVal data2 As Double) As String
    Dim dt1, dt2 As Double
    dt1 = data1
    dt2 = data2
    If dt1 = 0 Or dt1 = 0# Or dt2 = 0 Or dt2 = 0# Then
        formatData2 = "0.00"
    Else
        formatData2 = Format(Round(dt1 / dt2, 2), "0.00")
    End If
End Function

Public Sub print_jian_anhuizong(ByRef printCtl As VSPrinter, ByVal strTable As String, ByVal strTitle)
    Dim con As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim str_table As String
    Dim str_title As String
    Dim strSql As String
    Dim iCurrent As Integer
    Dim cols As Integer '页面表格的列数
    Dim iCurrenrows As Integer '页面表格当前显示的总行数
    Dim Rows As Long '总行数
    Dim Trows As Long '页面表格总行数
    Dim pages As Integer '总页数
    Dim iPage As Integer '当前页面
    Dim iLastrows As Integer '整页显示后剩余的行数
    Dim iRow As Long '当前行的位置
On Error GoTo err1
    str_table = strTable
    str_title = strTitle
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strConnection & ";Persist Security Info=False"
    con.Open
    strSql = "select nn,name,unit,pricezhijiegongcheng,pricezhijie,pricerengong,pricecailiao,pricejixie," & _
            "priceqitazhijie,pricexianchang,pricejianjie,pricejihualirun,priceshuijin,priceshashijiacha ,price1 from " & str_table & " order by nn"
    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open strSql, con, , , adCmdText
    cols = 13
    If Not rst.BOF And Not rst.EOF Then
        '获得总的记录数rows
        rst.MoveFirst
        Do While Not rst.EOF
            Rows = Rows + 1
            rst.MoveNext
        Loop
        '重新设置行的位置为第一条记录
        rst.MoveFirst
        '设置总的页面数
        If Rows <= 18 Then '总行数小于等于页面显示的总行数
            pages = 1
            iCurrenrows = Rows
            iLastrows = 0
        Else '总行数大于页面显示的总行数
            If Rows Mod 18 = 0 Then '总行数等于页面显示的总行数倍数
                pages = Int(Rows / 18)
                iLastrows = 0
            Else '总行数不等于页面显示的总行数倍数
                pages = Int(Rows / 18) + 1
   &nb