ASP, ReadExcelClass

<%
'###########################################################################################################################
'    Thaihn, 15-11-2015
'###########################################################################################################################
' fileName = "aaaaaa.xls"
' file = Server.MapPath(fileName)

' dim ec
' set ec = new ReadExcelClass
' set rs = ec.SetDebug(true).File(file).SetWorkSheetIndex(0).SetPageSize(10)

' for i = 1 to ec.TotalPage()
    ' for j = 1 to ec.Page(i).RowsPerPage()
        ' line = (i - 1) * ec.PageSize + j
        ' Response.Write "
("&i&","&j&")"& line  &": "& ec.Cell(j, "Contract")
    ' next
 
    ' Response.Write "
============================================================================================"
' next 
' ec.Close()
'###########################################################################################################################

class ReadExcelClass
    private objConnection
    private objCatalog
    private objRecordset
    private pFile
    private pWorkSheets()
    private pWorkSheet
    private pQuery
    private pKeys()
    private pTotalRecords
    private pPageSize
    private pPage
 

    private adOpenStatic
    private adLockOptimistic
    private adCmdText
 
    private debug
 
    function File(sFile)
        pFile = sFile
     
        ' pConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="& file &";Extended Properties=""Excel 8.0;HDR=Yes;""" ' 2007, .xlsx, can write
        pConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& pFile &";Extended Properties=""Excel 8.0;HDR=Yes;"";" ' 2003, .xls, can write
        ' pConnection = "DRIVER={Microsoft Excel Driver (*.xls)};DriverId=790;DBQ="& pFile &";" ' read only
     
        Set objConnection = CreateObject("ADODB.Connection")
        objConnection.Open pConnection
     
        GetAllWorkSheet()
     
        set File = me
    end function
 
    function GetAllWorkSheet()
        dim i
     
        set objCatalog = Server.CreateObject("ADOX.Catalog")
        objCatalog.activeConnection = objConnection
     
        ReDim Preserve pWorkSheets( objCatalog.Tables.Count - 1 )
     
        for i = 0 to objCatalog.Tables.Count - 1
            pWorkSheets(i) = Left(objCatalog.Tables(i).Name, Len(objCatalog.Tables(i).Name) - 1)
        next
     
        set objCatalog = nothing
    end function
 
    function SetWorkSheet(sWorkSheet)
        pWorkSheet = sWorkSheet
     
        ' GetKeys()
     
        ' pQuery = "Select "& pKeys(0) &" FROM ["& pWorkSheet &"$]"
        ' objRecordset.Open pQuery, objConnection, adOpenStatic, adLockOptimistic, adCmdText
        ' pTotalRecords = objRecordset.RecordCount
        if objRecordset.State = 1 then objRecordset.Close
     
        pQuery = "Select * FROM ["& pWorkSheet &"$]"
        Trace "pQuery", pQuery
        objRecordset.Open pQuery, objConnection, adOpenStatic, adLockOptimistic, adCmdText
     
        set SetWorkSheet = me
    end function 
 
    function SetWorkSheetIndex(index)
        ' Trace "pWorkSheets("&index&")", pWorkSheets(index)
        SetWorkSheet pWorkSheets(index)
     
        set SetWorkSheetIndex = me
    end function 
 
    function GetKeys()
        dim i
     
        pQuery = "Select top 1 * FROM ["& pWorkSheet &"$]"
        objRecordset.Open pQuery, objConnection, adOpenStatic, adLockOptimistic, adCmdText
        objRecordset.Close
     
        ReDim Preserve pKeys( objRecordset.Fields.Count - 1 )
     
        for i = 0 to objRecordset.Fields.Count - 1
            pKeys(i) = objRecordset.Fields(i).Name
        next
     
        set GetKeys = me
    end function
 
    function SetPageSize(iPageSize)
        pPageSize = iPageSize
     
        set SetPageSize = me
    end function
 
    function PageSize()
        PageSize = pPageSize
    end function
 
    function Page(iPage)
        pPage = iPage     
     
        Trace "Page", iPage
     
        set Page = me
    end function
 
    function TotalPage()
        TotalPage = int(objRecordSet.RecordCount / pPageSize) + 1
        Trace "TotalPage", TotalPage
    end function
 
    function RowsPerPage()
        if pPage < TotalPage then
            RowsPerPage = pPageSize
        else
            RowsPerPage = objRecordSet.RecordCount - (pPageSize * (pPage - 1))
        end if
     
        Trace "RowsPerPage", RowsPerPage
    end function
 
    function Cell(row, col)
        dim record
     
        record = (pPage-1) * pPageSize + (row - 1)
        Trace "record", record
     
        Trace "Cell", record
        objRecordSet.Move record, 1
     
        on error resume next
            Cell = objRecordset.Fields(col)
            if err.number <> 0 then
                on error goto 0
                err.raise 1, "Cell error", "row = "& row &", col = "& col
            end if
        on error goto 0
    end function
 
    function Row(index)
        dim record
     
        record = (pPage-1) * pPageSize + (row - 1)     
        objRecordSet.Move record, 1
     
        set Row = objRecordset
    end function
 
    function RowIndex(i, j)
        RowIndex = (i - 1) * PageSize + j
    end function
 
    function GetRecords()
        set GetRecords = objRecordset
    end function
     
    function SetDebug(value)
        debug = value
        set SetDebug = me
    end function 
 
    function Trace(name, value)
        if debug then Response.Write "
--> "& name &" = "& value &"
"
        set Trace = me
    end function
 
 
    function Close()
        set objRecordset = nothing
        ' set objCatalog = objCatalog
        objConnection.Close
        set objConnection = nothing
    end function
 
    Private Sub Class_Initialize()
        debug = false
        adOpenStatic = 3
        adLockOptimistic = 3
        adCmdText = &H0001
     
        Set objConnection = CreateObject("ADODB.Connection")
        Set objRecordSet = CreateObject("ADODB.Recordset")
    End Sub
 
    Private Sub Class_Terminate()
    End Sub
end class


'================================================================================
Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader )
' http://www.robvanderwoude.com/vbstech_databases_excel.php
' Function :  ReadExcel
' Version  :  3.00
' This function reads data from an Excel sheet without using MS-Office
'
' Arguments:
' myXlsFile   [string]   The path and file name of the Excel file
' mySheet     [string]   The name of the worksheet used (e.g. "Sheet1")
' my1stCell   [string]   The index of the first cell to be read (e.g. "A1")
' myLastCell  [string]   The index of the last cell to be read (e.g. "D100")
' blnHeader   [boolean]  True if the first row in the sheet is a header
'
' Returns:
' The values read from the Excel sheet are returned in a two-dimensional
' array; the first dimension holds the columns, the second dimension holds
' the rows read from the Excel sheet.
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com
    Dim arrData( ), i, j
    Dim objExcel, objRS
    Dim strHeader, strRange

    Const adOpenForwardOnly = 0
    Const adOpenKeyset      = 1
    Const adOpenDynamic     = 2
    Const adOpenStatic      = 3

    ' Define header parameter string for Excel object
    If blnHeader Then
        strHeader = "HDR=YES;"
    Else
        strHeader = "HDR=NO;"
    End If

    ' Open the object for the Excel file
    Set objExcel = CreateObject( "ADODB.Connection" )
    ' IMEX=1 includes cell content of any format; tip by Thomas Willig.
    ' Connection string updated by Marcel Niënkemper to open Excel 2007 (.xslx) files.
    objExcel.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
                  myXlsFile & ";Extended Properties=""Excel 12.0;IMEX=1;" & _
                  strHeader & """"

    ' Open a recordset object for the sheet and range
    Set objRS = CreateObject( "ADODB.Recordset" )
    strRange = mySheet & "$" & my1stCell & ":" & myLastCell
    objRS.Open "Select * from [" & strRange & "]", objExcel, adOpenStatic

    ' Read the data from the Excel sheet
    i = 0
    Do Until objRS.EOF
        ' Stop reading when an empty row is encountered in the Excel sheet
        If IsNull( objRS.Fields(0).Value ) Or Trim( objRS.Fields(0).Value ) = "" Then Exit Do
        ' Add a new row to the output array
        ReDim Preserve arrData( objRS.Fields.Count - 1, i )
        ' Copy the Excel sheet's row values to the array "row"
        ' IsNull test credits: Adriaan Westra
        For j = 0 To objRS.Fields.Count - 1
            If IsNull( objRS.Fields(j).Value ) Then
                arrData( j, i ) = ""
            Else
                arrData( j, i ) = Trim( objRS.Fields(j).Value )
            End If
        Next
        ' Move to the next row
        objRS.MoveNext
        ' Increment the array "row" number
        i = i + 1
    Loop

    ' Close the file and release the objects
    objRS.Close
    objExcel.Close
    Set objRS    = Nothing
    Set objExcel = Nothing

    ' Return the results
    ReadExcel = arrData
End Function
%>

ASP, WebServiceClass

<%

'Thaihn

'Example

'set ws = new WebServiceClass

'Response.Write ws.SetUrl("http://domain.com/Service.asmx").SetMethod("name").AddParam("email", "asd@yahoo.com").AddParam("type", 2).Post().GetResponseText()



' Soap 1.1

' set ws = new WebServiceClass

' with ws

    ' .SetUrl("http://domain.com/Service.asmx")

    ' .SetSoapUrl("http://tempuri.org/name/Service1")

    ' .SetMethod("getObjectInfo")

    ' .AddParam "strContract", "asdasds" 

    ' .Send("SOAP")

' end with

' Response.Write ws.GetResponseText



class WebServiceClass

    public pUrl

    public pSoapUrl

    public pMethod

    public pResponseText

    public pResponseXml

    public pParameters

    private xmlhttp

Phương pháp trị vọp bẻ cấp tốc rất hiệu nghiệm.

    Vọp bẻ (còn gọi là bị chuột rút - Muscle Cramps) là do các sớ thịt li ti trong cơ bắp (thường là bắp chân dưới hay còn gọi là bắp chuối) đan thắt lại với nhau mà không thư giãn trở lại trạng thái bình thường, nên cơ bắp bị phồng co cứng, rất đau, nhất là trong khi ngủ.

    Chứng vọp bẻ thường xảy ra ở người thiếu kali (potassium), thiếu nước hay bị nhiễm lạnh v.v...
    1/ Nếu bạn đang đi bỗng nhiên bị vọp bẻ bạn chỉ cần bước lùi (đi ngược) vài bước thì sẽ hết ngay.

    2/ Nếu bạn đang ngồi, không cần đứng dậy để đi lùi, bạn chỉ cần đặt chân chạm đất rồi nhẹ nhàng nhấc chân di chuyển lui về sau vài ba bước (nếu vậy bạn từ từ duỗi chân ra trước xa xa để có khoảng cách phía sau gót mà dời chân lui được nhiều bước hơn)



    3/Nếu bạn đang nằm ngủ, bạn trở mình nằm ngữa, sau đó co chân lên và cũng dời gót chân lui vài bước hướng về mông (bạn co chân thế nào để có một khoảng cách khá xa giữa gót chân và mông mà khi bạn dời chân sẽ được nhiều bước hơn)


    4/Nếu bạn đang bơi, thì cũng vậy, cố gắng làm sao bước lui trong nước vài bước thì vọp bẻ sẽ hết.
    Chúc bạn luôn an lạc và gặp nhiều mai mắng trong đời sống



    Cánh phòng ngừa CHUỘT rút

    Có nhiều lý do bị chuột rút cơ bắp và cách ngăn ngừa tình trạng này bằng phương pháp tự nhiên cũng rất hiệu quả, theo Boldsky.


    Nguyên nhân:

    Mất nước:
    Chuột rút thường xảy ra khi cơ thể mất nước. Vì vậy nếu bạn thường xuyên bị chuột rút, hãy uống nhiều nước.

    Căng thẳng:
    Đừng để cơ thể quá mệt mỏi. Điều quan trọng là phải nghỉ ngơi đầy đủ vào ban đêm để cơ bắp có thể thư giãn.


    Vitamin D: Nếu bạn không có đủ vitamin D, bạn sẽ bị chuột rút. Vì vậy, để ngăn chặn chuột rút, hãy bổ sung các thực phẩm giàu vitamin D vào chế độ ăn uống.

    Vận động:

    Đừng ngồi lâu. Vận động thường xuyên sẽ giúp ngăn ngừa chuột rút. Ngoài ra, tập yoga là một trong những môn thể thao giúp ngăn ngừa tình trạng này.

    Giữ ấm:

    Cơ bắp lạnh có nhiều khả năng bị chuột rút. Nếu bạn dễ bị chuột rút, hãy giữ ấm đôi chân khi ngủ.

    Tập thể dục:

    Để ngăn chặn chuột rút, bạn hãy duỗi chân thường xuyên.

    Các bài tập ngoài trời:

    Chạy xe đạp trong một vài phút trong ngày sẽ giúp ngăn ngừa chuột rút ở chân.

    Sữa:

    Nếu bạn không thích sữa, có thể thay bằng các sản phẩm từ sữa như sữa chua, phô mai... Các sản phẩm sữa cung cấp canxi, tốt cho cơ bắp.

    Kali (Potassium):

    Cơ thể bạn cần một lượng kali cân bằng để ngăn ngừa chuột rút. Thực phẩm giàu kali là chuối và cam.

    Vitamin E:

    Hãy bổ sung thực phẩm giàu vitamin E vào chế độ ăn uống để giúp ngăn ngừa chuột rút vào ban đêm.

(http://tamlinhviet.org/threads/ph%C6%B0%C6%A1ng-ph%C3%A1p-tr%E1%BB%8B-v%E1%BB%8Dp-b%E1%BA%BB-c%E1%BA%A5p-t%E1%BB%91c-r%E1%BA%A5t-hi%E1%BB%87u-nghi%E1%BB%87m.2490/)

Chia sẻ cho ai mắc bệnh Trĩ Nan y

Thời gian vừa rồi mình có mắc bệnh nan y trên, mình đã đi điều trị bằng laser vẫn không khỏi, đi ngoài vẫn ra huyết, nghe đài báo uống an trĩ vương vẫn không hiệu quả, uống Dfon gì đó đặc trị bệnh trĩ nhưng vẫn không khỏi. Có bệnh và đi hỏi cầu khắp nơi. Mình được môt người ở khu Thanh Oai chỉ cho bài thuốc bằng vỏ cây uống trong vòng 10-15 ngày hoàn toàn khỏi hẳn.
- Nguồn gốc của trĩ là ăn uống thất thường và bị táo bón nhiều và dẫn tới rách phần hầu môn lâu ngày đi nhiều phần đó ko co lại, làm cho người bệnh rất khó chịu.
- Mỗi khi ăn uống đồ nóng lại càng làm lớp mao mạch nóng và dễ vỡ, nếu người bệnh máu huyết kém dẫn tới ko cầm máu được chảy nhiều tụt huyết áp gây các tai biến khác có thể tử nạn.

Mình là người đã tường mang bệnh và được người bệnh trước chỉ cho các tự chữa bệnh: lấy vỏ cây của cây lộc vừng rửa sạch và đẽo lấy vỏ sau đó đem giang và sấy lên pha nước hoặc đun lấy nước uống liên tục thay nước lọc uống hàng ngày, thì nó sẽ tự thụt và khỏi hoàn toàn,

Ghi chú: khi uống nước này thì nên dừng không uống các loại thuốc khác. đề phòng các tố chất xung đột lẫn nhau.

Còn nước đun lên màu ngà ngà đỏ uống mát dễ uống.

(http://tamlinhviet.org/threads/chia-s%E1%BA%BB-cho-ai-m%E1%BA%AFc-b%E1%BB%87nh-tr%C4%A9-nan-y.2647/)

Set location.hash value

if(history.pushState) {
    history.pushState(null, null, "#data");
}
else {
//for ie, not use "#"
    window.location.hash = "data";
}