<%
'支持中文的把普通字符串转成二进制字符串的函数
Function str2bin(varstr)
    Dim varasc
    Dim i
    Dim varchar
    Dim varlow
    Dim varhigh
    
    str2bin=""
    For i=1 To Len(varstr)
        varchar=mid(varstr,i,1)
        varasc = Asc(varchar)
        
        If varasc<0 Then
        varasc = varasc + 65535
        End If
        
        If varasc>255 Then
        varlow = Left(Hex(Asc(varchar)),2)
        varhigh = right(Hex(Asc(varchar)),2)
        str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" & varhigh)
        Else
        str2bin = str2bin & chrB(AscB(varchar))
        End If
    Next
End Function

Dim sStr
sStr = "木子屋-http://www.mzwu.com/"

Response.AddHeader "Content-Disposition","attachment;filename=test.txt"  
Response.AddHeader "Content-Length",LenB(sStr)    
Response.CharSet = "GB2312"    
Response.ContentType = "application/octet-stream"    
Response.BinaryWrite  str2bin(sStr)
Response.Flush
%>

sStr = "name" & chr(9) & "age" & chr(9) & vbcrlf & "张三" & chr(9) & "20" & vbcrlf & "李四" & chr(9) & "24"