- توردا
- 122 سائەت
- ئاخىرقى قېتىم
- 2012-3-4
- تىزىملاتقان
- 2011-8-4
- شۆھرەت
- 186
- تىللا
- 178
- تۆھپە
- 100
- ھوقۇقى
- 30
- جۇغلانما
- 684
- ئالبوم
- 0
- بلوگ
- 0
- خاتىرە
- 0
- يازما
- 34
- تېما
- 4
- نادىر
- 0
- ھەمبەھر
- 0
- UID
- 2682
- تۆھپە
- 100
- تىللا
- 178
- شۆھرەت
- 186
|
قانداق چىقارسام (xls, doc,txt,csv ) خاتالىق چىقىۋالدى دىسە.
تۈۋەندىكى كودمۇ ئوخشاش ambar.mdbدە نۇرمال، 1ambar.mdb دەپ ئىجرا قىلسام ئۇيغۇرچە يېزىققا كەلگەندە خاتالىق يۈز بەردى.- <%
- Response.CharSet = "utf-8"
- Session.CodePage=65001
- dim conn,rs
- set conn=server.CreateObject("adodb.connection")
- conn.Open "DBQ="&Server.Mappath("ambar.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
- set rs=server.CreateObject("adodb.recordset")
- %>
- <%
- dim fso, txt
- set fso = server.createobject("scripting.filesystemobject")
- set txt = fso.createtextfile(server.mappath("data.csv"))
- dim temp, line
- set rs = conn.execute("select * from soz")
- redim temp(rs.fields.count-1)
- for i = 0 to rs.fields.count - 1
- temp(i) = rs.fields(i).name
- next
- line = join(temp, ",")
- txt.writeline line ' 先写第一行 列名
- do while not rs.eof
- for i = 0 to rs.fields.count - 1
- 'temp(i) = rs.fields(i).value
- temp(i) = replace((rs.fields(i).value & ""), ",", ",") '把逗号替换了
- next
- line = join(temp, ",")
- txt.writeline line
- rs.movenext : loop
- txt.close
- %>
مەزمۇننى كۆچۈرۈۋېلىش |
|