home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / 200905zrtq.asp < prev    next >
Text File  |  2009-04-14  |  3KB  |  113 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2.  
  3. <% Option Explicit %>
  4.  
  5. <%
  6. dim Connrs
  7. dim Conn
  8. dim objFSO
  9. dim objTS
  10. dim FilePath
  11.  
  12. dim ndate,userid,prain,rain,dwind,swind,vtemp,htemp,ltemp
  13. 'dim yb1,yb2,yb3,yb4,yb5,yb6
  14.  
  15. dim i,y,z,h
  16.  dim Rs,Sql 
  17.  
  18.  
  19. dim source
  20.   source="E:\www\yy\sktxt\*.*"
  21.   'Connrs=Server.CreateObject("ADODB,Connection")
  22.   'Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/yy.mdb")
  23.  ' Conn="Provider=SQLOLEDB;Server=127.0.0.1;UID=sa;PWD=829000;Database=yy"
  24.   Conn="Provider=SQLOLEDB;server=(local);database=whqxdata;uid=sa;pwd=;"  
  25.   
  26.   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  27.   set Rs=server.CreateObject("adodb.recordset")
  28.   
  29.   objFSO.DeleteFile source,True 
  30.   
  31.  
  32.  
  33. '╚í┬├╙╬│╟╩╨╠∞╞°╘ñ▒¿
  34. 'sql="select * from sk where userid in('54774','54776','54871','54777','54778','54861') "
  35. 'sql="select * from sk where userid in('54774','54776','54871','54777','54778','54861') "
  36. sql="select * from sk where userid in('54774','54776','54871','54777','54778','54861') order by userid DESC"
  37.  
  38. Rs.open Sql,Conn,1,1
  39.  
  40. 'dim WriteBlankLines
  41. FilePath = "sktxt/wh.txt"
  42. FilePath = Server.MapPath(FilePath)
  43.  
  44. Set objTS = objFSO.OpenTextFile(FilePath,8,True)
  45. objTS.Write("╧┬├µ╧≥─·▓Ñ╦═"&year(date())&"─Ω"&month(date())&"╘┬"&day(date())&"╚╒"&hour(now())&"╡π"&"╖ó▓╝╡─╚½╣·┬├╙╬│╟╩╨╠∞╞°╘ñ▒¿")
  46. for i=1 to 10
  47. if rs.eof then exit for
  48.  
  49. 'objTS.Write("╧┬├µ╧≥─·▓Ñ╦═"&year(date())&"─Ω"&month(date())&"╘┬"&month(date())&"╚╒"&hour(now())&"╡π"&"╖ó▓╝╡─┬├╙╬│╟╩╨╠∞╞°╘ñ▒¿")
  50. 'Rs.MoveLast
  51. ndate=Rs("ndate")
  52. userid=Rs("userid")
  53. prain=Rs("prain")
  54. rain=Rs("rain")
  55. dwind=Rs("dwind")
  56. swind=Rs("swind")
  57. vtemp=Rs("vtemp")
  58. htemp=Rs("htemp")
  59. ltemp=Rs("ltemp")
  60. 'objTS.WriteBlankLines(1)
  61. 'objTS.Write(yb1)
  62. objTS.WriteBlankLines(1)
  63. objTS.Write(ndate&"ú¼")
  64. objTS.WriteBlankLines(1)
  65. objTS.Write("╒╛╡π"&userid&"ú¼")
  66. objTS.WriteBlankLines(1)
  67. objTS.Write("╜╡╦«╨╘╓╩"&prain&"ú¼")
  68. objTS.WriteBlankLines(1)
  69. objTS.Write("╜╡╦«┴┐"&rain&"ú¼")
  70. objTS.WriteBlankLines(1)
  71. objTS.Write("╖τ╧≥"&dwind&"ú¼")
  72. objTS.WriteBlankLines(1)
  73. objTS.Write("╖τ╦┘"&swind&"ú¼")
  74. objTS.WriteBlankLines(1)
  75. objTS.Write("╞╜╛∙╬┬╢╚"&vtemp&"íµ"&"ú¼")
  76. objTS.WriteBlankLines(1)
  77. objTS.Write("╫ε╕▀╬┬╢╚"&htemp&"íµ"&"ú¼")
  78. objTS.WriteBlankLines(1)
  79. objTS.Write("╫ε╡═╬┬╢╚"<emp&"íµ"&"ú¼")
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87. rs.movenext
  88. next
  89.  
  90. Set objTS=nothing
  91. Rs.close
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  Set objFSO=nothing
  101. set conn=nothing
  102. Response.Write("<font color=Green>ok, ─π╥╤╛¡░╤╩²╛▌┐Γ╡──┌╚▌╢┴╡╜╬─▒╛╬─╝■└∩ú¼╨┴┐α┴╦úí</font>")
  103.  %>
  104. <html>
  105. <head>
  106. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  107. <title>┤╙╩²╛▌┐Γ└∩╢┴│÷╬─▒╛╬─╝■</title>
  108. </head>
  109.  
  110. <body>
  111. </body>
  112. </html>
  113.