使用Classic ASP引入包括表情符号在内的电子表格内容

<%@ Language=VBScript %>
<%
Dim conn, rs, filePath
filePath = Server.MapPath("example.xlsx")

' 创建ADODB连接
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & ";Extended Properties='Excel 12.0;HDR=YES;'"

' 创建ADODB记录集
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM [Sheet1$]", conn

' 显示数据
Dim i
Do While Not rs.EOF
    Response.Write "<p>"
    For i = 0 To rs.Fields.Count - 1
        Response.Write rs.Fields(i).Name & ": " & Server.URLEncode(rs.Fields(i).Value) & "<br>"
    Next
    Response.Write "</p>"
    rs.MoveNext
Loop

' 关闭记录集和连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>