<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Charset = "UTF-8" %> <% 'Dim conn,connstr Set conn=Server.CreateObject("ADODB.Connection") connstr="Driver={MySQL ODBC 8.0 Unicode Driver};Server=qq.qr1991.com;Port=33066;Database=zzqr;User=qripos2019;Password=dfDTLNVSQR34T2*356S_df2t;Option=3;" conn.Open connstr conn.Execute "SET NAMES 'utf8'" %>