home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / dx / list.asp < prev    next >
Text File  |  2011-08-12  |  3KB  |  164 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2.  
  3.  
  4.  
  5.  
  6. <html> 
  7.  
  8.  
  9. <link href="Connections/css/admincss.css" rel="stylesheet" type="text/css"> 
  10. <title>╢╠╨┼═│╝╞</title></head> 
  11. <body>
  12.  
  13.  
  14.  
  15.  <% 
  16.  
  17.  
  18.   
  19.  
  20.  
  21.  
  22. '╩²╛▌┐Γ┤≥┐¬
  23. Dim conn,connSql 
  24. Dim sql
  25. Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/datadx.mdb")
  26. Set connsql = Server.CreateObject("Adodb.Connection") 
  27. connsql.open conn 
  28.  
  29.  
  30.  
  31.  
  32. set Rs=server.createobject("adodb.recordset") 
  33. 'sql="select * from dx" '┤≥┐¬╩²╛▌┐Γ▒φ
  34. sql="select * from dx order by id DESC"
  35. Rs.open sql,conn,1,3 
  36.  
  37. dim fc1,fc2,fc3,fc4,fc5,fc6,fc7,fc8
  38. dim nr1,nr2,nr3,nr4,nr5,nr6,nr7,nr8,nr
  39.  
  40. nr=Rs("txt")
  41. 'Response.Write("╢╠╨┼─┌╚▌"&nr&"<br>")
  42. fc1=instr(1,nr,"=")
  43. 'Response.Write("╩²╛▌┐Γ─┌╚▌╡┌╥╗=╨╨╡─╬╗╓├"&fc1&"<br>")
  44. 'zl3=Mid(shij1,15,6)
  45. nr1=Mid(nr,1,fc1)
  46. Response.Write(nr1&"<br>")
  47.  
  48. fc2=instr(fc1+1,nr,"=")
  49. 'Response.Write("╩²╛▌┐Γ─┌╚▌╡┌╢■=╨╨╡─╬╗╓├"&fc2&"<br>")
  50. nr2=Mid(nr,fc1+1,fc2-fc1+1)
  51. Response.Write(nr2&"<br>")
  52.  
  53. fc3=instr(fc2+1,nr,"=")
  54. 'Response.Write("╩²╛▌┐Γ─┌╚▌╡┌╚²=╨╨╡─╬╗╓├"&fc3&"<br>")
  55. nr3=Mid(nr,fc2+1,fc3-fc2+1)
  56. Response.Write(nr3&"<br>")
  57.  
  58. fc4=instr(fc3+1,nr,"=")
  59. 'Response.Write("╩²╛▌┐Γ─┌╚▌╡┌╦─=╨╨╡─╬╗╓├"&fc4&"<br>")
  60. nr4=Mid(nr,fc3+1,fc4-fc3+1)
  61. Response.Write(nr4&"<br>")
  62.  
  63. fc5=instr(fc4+1,nr,"=")
  64. 'Response.Write("╩²╛▌┐Γ─┌╚▌╡┌╬σ=╨╨╡─╬╗╓├"&fc5&"<br>")
  65. nr5=Mid(nr,fc4+1,fc5-fc4+1)
  66. Response.Write(nr5&"<br>")
  67.  
  68. fc6=instr(fc5+1,nr,"=")
  69. 'Response.Write("╩²╛▌┐Γ─┌╚▌╡┌┴∙=╨╨╡─╬╗╓├"&fc6&"<br>")
  70. nr6=Mid(nr,fc5+1,fc6-fc5+1)
  71. Response.Write(nr6&"<br>")
  72.  
  73. fc7=instr(fc6+1,nr,"=")
  74. 'Response.Write("╩²╛▌┐Γ─┌╚▌╡┌╞▀=╨╨╡─╬╗╓├"&fc7&"<br>")
  75. nr7=Mid(nr,fc6+1,fc7-fc6+1)
  76. Response.Write(nr7&"<br>")
  77.  
  78. fc8=instr(fc7+1,nr,"=")
  79. 'Response.Write("╩²╛▌┐Γ─┌╚▌╡┌░╦=╨╨╡─╬╗╓├"&fc8&"<br>")
  80. nr8=Mid(nr,fc7+1,fc8-fc7+1)
  81. Response.Write(nr8&"<br>")
  82.  
  83.  
  84. 'Rs.addnew'╠φ╝╙╨┬─┌╚▌
  85. 'rs("time")=sj
  86.  
  87. 'sj=Rs("time")
  88. 'Rs("time")=request.Form("date")
  89. 'txt=Rs("txt")
  90. 'rs("txt")=txt
  91. ' else  
  92. 'rs("txt")=request.Form("content")'╠φ╝╙╡╜╩²╛▌┐Γ╧α╢╘╙ª╡─╫╓╢╬ 
  93. 'end if 
  94. '
  95. rs.update'╕ⁿ╨┬╩²╛▌┐Γ 
  96. rs.close 
  97. set rs=nothing 
  98.  
  99.  
  100. ' dim source,shj
  101. ' 
  102. ' 
  103. 'shj=time()'╚í╩▒╝Σ
  104. 'shj=Hour(sj)
  105. ' 
  106. ' if shj=6 then
  107. ' source="d:\dx\stdx\DXWE06.txt"
  108. 'Else
  109. 'source = "d:\dx\stdx\DXWE17.txt"
  110. 'End if
  111. ' 
  112. ' 
  113. '  'source="d:\dx\stdx\DXWE06.txt"
  114. '  'source="d:\yy\sktxt\*.*"
  115. '  'Connrs=Server.CreateObject("ADODB,Connection")
  116. '  'Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/yy.mdb")
  117. ' ' Conn="Provider=SQLOLEDB;Server=127.0.0.1;UID=sa;PWD=829000;Database=yy"
  118. '  
  119. '  ' Conn="Provider=SQLOLEDB;server=whqxjserver6;database=CAWS600B;uid=sa;pwd=123;"  
  120. '  
  121. '  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  122. '  set Rs=server.CreateObject("adodb.recordset")
  123. '  
  124. '  objFSO.DeleteFile source,True
  125. '  
  126. '   if shj=6 then
  127. ' FilePath = "stdx/DXWE06.txt"
  128. 'Else
  129. 'FilePath = "stdx/DXWE17.txt"
  130. 'End if
  131. '
  132. ''FilePath = "stdx/DXWE17.txt"
  133. 'FilePath = Server.MapPath(FilePath)
  134. '
  135. 'Set objTS = objFSO.OpenTextFile(FilePath,8,True)
  136. '
  137. 'objTS.Write(txt1)
  138. 'objTS.WriteBlankLines(1)
  139. 'objTS.Write(txt2)
  140. 'objTS.WriteBlankLines(1)
  141. 'objTS.Write(txt3)
  142. 'objTS.WriteBlankLines(1)
  143. 'objTS.Write(txt4)
  144. 'objTS.WriteBlankLines(1)
  145. 'objTS.Write(txt5)
  146. 'objTS.WriteBlankLines(1)
  147. 'objTS.Write(txt6)
  148. 'objTS.WriteBlankLines(1)
  149. 'objTS.Write(txt7)
  150. 'objTS.WriteBlankLines(1)
  151. ''objTS3.Write(yb3&"ú¼")
  152. ''Response.Write("╩▒╝Σ"&txt&"<br>")
  153. '
  154. '
  155. 'Set objTS=nothing
  156.  
  157. %>
  158.  
  159.  
  160.  
  161.  
  162.  
  163. </body> 
  164. </html>