/admin/unless/doexcel.asp

https://github.com/hare1987/kaidun180 · ASP · 73 lines · 60 code · 6 blank · 7 comment · 4 complexity · fb1fe45eb7bbc9d4d38d3d6d6e8ca809 MD5 · raw file 

    

  1. <HTML>

    2. 

  2. <HEAD>

    3. 

  3. <meta content="text/html; charset=gb2312" http-equiv="Content-Type">  

    4. 

  4. <TITLE>Éú³ÉEXCELÎļþ</TITLE>  

    5. 

  5. </HEAD>  

    6. 

  6. <body>  

    7. 

  7. <!--#include file="pf_conn.asp"-->

    8. 

  8. <%

    9. 

  9.   dim salesno

    10. 

  10.   'salesno="05-Gi-9874"

    11. 

  11.   salesno=request("salesno")

    12. 

  12.   response.Write(salesno)

    13. 

  13.   dim  rs,sql,filename,fs,myfile,x

    14. 

  14.   Set fs = server.CreateObject("scripting.filesystemobject")  

    15. 

  15.   '--¼ÙÉèÄãÏëÈÃÉú³ÉµÄEXCELÎļþ×öÈçϵĴæ·Å  

    16. 

  16.   filename = Server.MapPath("Ô¤Ô¼µÇ¼Ç.xls")  

    17. 

  17.   '--Èç¹ûÔ­À´µÄEXCELÎļþ´æÔڵĻ°É¾³ýËü  

    18. 

  18.   if fs.FileExists(filename) then

    19. 

  19.    fs.DeleteFile(filename)  

    20. 

  20.   end if

    21. 

  21.   '--´´½¨EXCELÎļþ

    22. 

  22.   set myfile = fs.CreateTextFile(filename,true)

    23. 

  23.   Set rs = Server.CreateObject("ADODB.Recordset")

    24. 

  24.   '--´ÓÊý¾Ý¿âÖаÑÄãÏë·Åµ½EXCELÖеÄÊý¾Ý²é³öÀ´  

    25. 

  25.   sql = "select id as ±àºÅ,name as ÐÕÃû,sex as ÐÔ±ð,age as ÄêÁä,birth as ÉúÈÕ,Fname as ¼Ò³¤ÐÕÃû,tel as µç»°,email as µç×ÓÐÅÏä,school as УÇø,hd as »î¶¯,regtime as ԤԼʱ¼ä from Pf_buy"  

    26. 

  26.   rs.Open sql,conn,1,3

    27. 

  27. 

    28. 

  28.   if rs.EOF and rs.BOF then

    29. 

  29.   

    30. 

  30.       	set rsop = server.CreateObject("adodb.recordset")

    31. 

  31. 		rsop.open "select * from pf_oprate",conn,1,3

    32. 

  32. 		rsop.addnew

    33. 

  33. 		rsop("pf_op_name") = session("pf_admin_name")

    34. 

  34. 		rsop("pf_op_sources") = "µ¼³öÔ¤Ô¼µÇ¼ÇÊý¾Ýʧ°Ü"

    35. 

  35. 		rsop.update

    36. 

  36. 		rsop.close

    37. 

  37. 		set rsop = nothing 

    38. 

  38.  

    39. 

  39.       response.Write "<script language=javascript>alert('ÔÝÎÞÊý¾Ý!');window.close();</script>"

    40. 

  40. 	  response.End()

    41. 

  41.   else

    42. 

  42.    dim strLine,responsestr  

    43. 

  43.    strLine=""

    44. 

  44.    For each x in  rs.fields

    45. 

  45.     strLine = strLine & x.name & chr(9)

    46. 

  46.    Next

    47. 

  47.    '--½«±íµÄÁÐÃûÏÈдÈëEXCEL  

    48. 

  48.    myfile.writeline strLine

    49. 

  49.    Do while Not rs.EOF  

    50. 

  50.     strLine=""

    51. 

  51.     for each x in  rs.Fields  

    52. 

  52.      strLine = strLine & x.value & chr(9)  

    53. 

  53.     next

    54. 

  54.     '--½«±íµÄÊý¾ÝдÈëEXCEL  

    55. 

  55.     myfile.writeline strLine

    56. 

  56.     rs.MoveNext

    57. 

  57.    loop

    58. 

  58. 

    59. 

  59.   rs.Close  

    60. 

  60.   set  rs  =  nothing

    61. 

  61.    

    62. 

  62.      	set rsop = server.CreateObject("adodb.recordset")

    63. 

  63. 		rsop.open "select * from pf_oprate",conn,1,3

    64. 

  64. 		rsop.addnew

    65. 

  65. 		rsop("pf_op_name") = session("pf_admin_name")

    66. 

  66. 		rsop("pf_op_sources") = "µ¼³öÔ¤Ô¼µÇ¼ÇÊý¾Ý"

    67. 

  67. 		rsop.update

    68. 

  68. 		rsop.close

    69. 

  69. 		set rsop = nothing

    70. 

  70.    

    71. 

  71.     response.Write "<script language=javascript>alert('Êý¾Ýµ¼³ö³É¹¦!');</script><meta http-equiv=refresh content=0;URL=Ô¤Ô¼µÇ¼Ç.xls>;"

    72. 

  72. 	 End If

    73. 

  73. %>
    74.