How to export to excel file from asp that contain unicode character

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

How to export to excel file from asp that contain unicode character

Logged in as: Guest

arrSession:exec spGetSession 2,3,27433

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> How to export to excel file from asp that contain unicode character
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

How to export to excel file from asp that contain unico... - 10/27/2005 5:26:34 PM

justicefish

Posts: 1
Score: 0
Joined: 10/27/2005
Status: offline

I have been trying quite a few different approach, but so far not very successful, it always display either the number or some rublish instead of the chinese character. Can anyone help me?

<%@ Language=VBScript %>
<% Response.Buffer = true
  Response.ContentType = "application/vnd.ms-excel"
%>
<HTML xmlns:x="urn:schemas-microsoft-com:office:excel">
<head>
<style>

</style>

</head>

<%
if session("user_name") = "" or session("user_type") <> "admin" then
Response.Redirect "admin_login.asp"
end if
%>
<%
strsql = "SELECT user_id, user_name, user_fullname, user_designation, user_company, user_type " & _
      "FROM tblUser "  
 
set rs = conn.execute(strsql)
if not rs.eof then
%> 
<table>
  <TR>
   <TD>user name</TD>
   <TD> full name</TD>
   <TD> designation</TD>
   <TD> company</TD>
   <TD> user type</TD>
  </TR>
 
  
 <% Do While Not rs.EOF %>
  <TR>
  <TD><%=Server.HTMLEncode(rs("user_name"))%></TD> 
  <TD><%=Server.HTMLEncode(rs("user_fullname"))%></TD> 
  <TD><% Server.HTMLEncode(rs("user_designation"))%> </TD>
  <TD><%=Server.HTMLEncode(rs("user_company"))%> </TD>
  <TD><%=rs("user_type")%></TD>
  </TR>
 <%
  counter = counter + 1
  rs.MoveNext
 Loop
 
 RS.CLOSE
 %> 
 </table>
<%
else
%>
<script language="JavaScript" type="text/JavaScript">
alert('No record found. Please try again.');
history.go(-1);
</script>
<% 
end if
%>

this one is to a csv file instead

<%
if session("user_name") = "" or session("user_type") <> "admin" then
Response.Redirect "admin_login.asp"
end if
%>
<%
strsql = "SELECT user_id, user_name, user_fullname, user_designation, user_company, user_type " & _
      "FROM tblUser "  
 
set rs = conn.execute(strsql)
if not rs.eof then

randomize
  nRandom = (100-1)*Rnd+1
fileexcel = "memberList_" & CStr(day(date)) & "-" & month(date) & "-" & CStr(year(date)) & "_" & CStr(nRandom) & ".csv"
filepath = Server.mapPath("report_user_action.asp")
  filepath = mid(filepath,1,len(filepath)-22)
filename = filepath & "excel\" & fileexcel
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(filename, True, True) ' set to unicode
'Set MyFile = fso.CreateTextFile(filename, True) ' set to ASCII code
MyFile.WriteLine("user name, full name, designation, company, user type")
Do While Not rs.EOF

MyFile.WriteLine(rs("user_name") & "," & rs("user_fullname") & "," & rs("user_designation") & "," & rs("user_company") & "," & rs("user_type"))
rs.MoveNext
Loop

'Open the file to append records
MyFile.Close
SET MyFile = nothing
SET fso= nothing

rs.close
%>
<form name="form" method="post" action="admin_user.asp">
<input type="hidden" name="fileexcel" value="<%=fileexcel%>">
</form>
<script language="JavaScript" type="text/JavaScript">
window.open('excel/<%=fileexcel%>','','width=750,height=550,top=0,left=0,scrollbars=yes,menubar=no')
document.form.submit();
</script>
<%
else
%>
<script language="JavaScript" type="text/JavaScript">
alert('No record found. Please try again.');
history.go(-1);
</script>
<% 
end if
%>

< Message edited by justicefish -- 10/27/2005 5:28:45 PM >