221.214.14.186/221.214.14.186.tar/221.214.14.186/wh/zz/index-2.asp

Text File | 2008-08-05 | 17KB | 573 lines

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<%
Const limit_ZC=1000
Const limit_NN=1000
Const limit_dd=200
Dim FolderPath,Text,objFSO,objFolder,Files,eFile,ObjTs,FileName
Dim fz1,fz2,fdz'╒╥╡╜zczc╡─╬╗╓├
Dim fs1,fs2,fds'╒╥╡╜FSCI40╡─╬╗╓├

Dim fda'╒╥╡╜cca╡─╬╗╓├,cca╕ⁿ╒²▒¿
Dim fd1,fd2,fdd'╒╥╡╜=╡─╬╗╓├
Dim f1,f2,f3,f4,f5

Dim i'╥╘"NNNN"╬¬╖╓╕⌠╡─╤¡╗╖
dim j'╜╪│÷"="╓«╟░╡─╬─╝■╤¡╗╖


ReDim TotalZ(limit_ZC)'╜╪│÷"ZCZC"╡─╩²╫Θ

ReDim Totald(limit_dd)'╜╪│÷"="╡─╩²╫Θ


dim TotalA'╜╪│÷"ZCZC"╕÷╩²
dim TotalB'╜╪│÷"NNNN"╡─╕÷╩²
dim TotalC'╜╪│÷"="╡─╕÷╩²

dim headinfo'╜╪│÷▒¿═╖┤╙ZCZC║═NNNN╓«╝Σ╡──┌╚▌
dim infoFS '╚Ñ╡⌠═╖▒¿═╖ZCZC╡──┌╚▌ú¼┤╙FSCI40┐¬╩╝╡──┌╚▌
dim info '╜╪│÷▓╗┤°▒¿═╖fsci40╡─▒¿╬─
dim data '╚Ñ╡⌠FSCI40ú¼├┐╕÷╒╛╡π╡─╘ñ▒¿─┌╚▌
dim L'├┐╖▌▒¿╬─╨í╙┌90╫╓╜┌╬¬┤φ▒¿ú¼─┌╚▌▓╗═Ω╚½┤φ▒¿
dim sz'├┐╖╓▒¿╬─╡─╡┌╥╗╕÷╩²╫╓╩╟▓╗╩╟5
dim qh '╟°║┼
dim time'╖ó▒¿╩▒╝Σ
Redim tq(30)'▒¿╬─╩²╫Θtq(25)24╨í╩▒╖τ┴ª1ú¼tq(26)24╨í╩▒╖τ┴ª2ú¼tq(27)ú¼tq(28)48╨í╩▒╖τ┴ª1ú¼tq(29)ú¼tq(30)72╨í╩▒╖τ┴ª1
dim t1,t2,t3,t4



FolderPath = "yubao"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(FolderPath))
Set Files = objFolder.Files
For Each eFile In Files
FileName = eFile.Name
Set ObjTs = objFSO.opentextfile(Server.MapPath(FolderPath)&"\"&FileName,1)


  If Not ObjTs.AtEndOfStream Then
  Text = Text&ObjTs.Readall
   End If

next

Text=Split(Text,"NNNN")
   For i=0 to ubound(Text)
     TotalA=i
    next
Response.Write("<font color=Green>╬─╝■╕÷╩²</font>"&TotalA&"<br>")

'╢┴│÷╒╛╡π╩²╛▌
Dim objTS1,objTS2
Dim FilePath1,FilePath2
Dim zd,zdhz
Dim z1,z2
Dim Num
Dim zdArray(2432)
Dim zdhzArray(2432)
Dim AtEndOfStream
FilePath1 = "zd.asp"
FilePath1 = Server.MapPath(FilePath1)
FilePath2 = "zdhz.asp"
FilePath2 = Server.MapPath(FilePath2)

Set objTS1 = objFSO.OpenTextFile(FilePath1, 1)

Num = 2432
  For z1 = 0 to Num
    zd = objTS1.ReadLine
    zdArray(z1)=zd
   Next

Set objTS2 = objFSO.OpenTextFile(FilePath2, 1)
 Num = 2432
 For z2 = 0 to Num
   zdhz = objTS2.ReadLine
   zdhzArray(z2)=zdhz
 Next


Set objTS2 = nothing
Set objTS1 = nothing
set objTS = nothing
set Files = nothing
set objFolder = nothing
Set objFSO = nothing

'╧┬├µ╩╟╠∞╞°╡τ┬δ║═╠∞╞°╧╓╧≤

Dim tqxxString,fxString'▒¿╬─╡τ┬δ╫╓╖√┤«
Dim htqxxString,hfxString,hflString'╖¡╥δ│╔║║╫╓╫╓╖√┤«
Dim tqxxArray,fxArray '▒¿╬─╡τ┬δ╩²╫Θ
Dim htqxxArray,hfxArray,hflArray'╖¡╥δ│╔║║╫╓╩²╫Θ
Dim y1,y2,y3,y4,y5


tqxxString = "00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31"
fxString="0,1,2,3,4,5,6,7,8,9"
htqxxString="╟τ,╢α╘╞,╥⌡,╒≤╙Ω,└╫╒≤╙Ω,└╫╒≤╙Ω░Θ╙╨▒∙▒ó,╙Ω╝╨╤⌐,╨í╙Ω,╓╨╙Ω,┤≤╙Ω,▒⌐╙Ω,┤≤▒⌐╙Ω,╠╪┤≤▒⌐╙Ω,╒≤╤⌐,╨í╤⌐,╓╨╤⌐,┤≤╤⌐,▒⌐╤⌐,╬φ,╢│╙Ω,╔││╛▒⌐,╨í╡╜╓╨╙Ω,╓╨╡╜┤≤╙Ω,┤≤╡╜▒⌐╙Ω,┤≤▒⌐╙Ω╡╜╠╪┤≤▒⌐╙Ω,╨í╡╜╓╨╤⌐,╓╨╡╜┤≤╤⌐,┤≤╡╜▒⌐╤⌐,╕í│╛,╤∩╔│,╟┐╔││╛▒⌐"
hfxString="╬ó╖τ,╢½▒▒╖τ,╞½╢½╖τ,╢½─╧╖τ,─╧╖τ,╬≈─╧╖τ,╞½╬≈╖τ,╬≈▒▒╖τ,▒▒╖τ,╨²╖τ"
hflString="╬ó╖τ,3-4╝╢,4-5╝╢,5-6╝╢,6-7╝╢,7-8╝╢,8-9╝╢,9-10╝╢,10-11╝╢,11-12╝╢"

tqxxArray= split(tqxxString,",")
   For y1=0 to Ubound(tqxxArray)
Next

fxArray= split(fxString,",")
   For y2=0 to Ubound(fxArray)
Next

htqxxArray= split(htqxxString,",")
   For y3=0 to Ubound(htqxxArray)
Next



hfxArray= split(hfxString,",")
   For y4=0 to Ubound(hfxArray)
Next

hflArray= split(hflString,",")
  For y5=0 to Ubound(hflArray)
Next

'┤≥┐¬╩²╛▌┐Γ
dim Conn
  Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/data.mdb")
dim Rs,Sql
set Rs=server.CreateObject("adodb.recordset")
Sql="[yubao]"
Rs.open Sql,Conn,1,3

'╒╥╡╜ZCZC╡─╬╗╓├
   for i=0 to (totalA-1)
    fdz=instr(1,Text(i),"ZCZC")
     if fdz<>0 then
     headinfo=Mid(Text(i),fdz)
      fds=instr(headinfo,"FSCI40")'╒╥╡╜"FSCI40"
      fda=instr(headinfo,"CC")'╒╥╡╜"CC"
       if fds<>0 then
        infoFS=Mid(headinfo, fds)'╜╪│÷┤°fsci40╡─▒¿╬─
         qh=Mid(infoFS,8,4)'╜╪│÷╟°║┼
         'Response.Write("<font color=Blue>╩í╡╪╟°┤·┬δ</font>"&qh&"<br>")

         if fda=0 then

           info=Mid(infoFS, 19)'╜╪│÷▓╗┤°▒¿═╖fsci40╡─▒¿╬─


           '╒╥╡╜=╡╚║┼
            j=0
               do
                   fdd=instr(fdd+1,info,"=")'╒╥╡╜=╡╚║┼
                 if fdd=0 Then Exit Do
                   if j<=limit_dd then
                    Totald(j)=fdd

                    TotalC=j
                    j=j+1
                   End if
                loop
               For j=0 to TotalC
                  fd2=Totald(j)

                  if j=0 then
                   data=Mid(info,1,fd2-1)
                  Else
                   fd1=Totald(j-1)
                   data=Mid(info,fd1+1,fd2-fd1-1)
                  End if

                    data=Trim(data)
                    sz=instr(data,5)

                   if sz=3 then
                     data=Mid(data,3)
                       ElseIf sz=4 then
                        data=Mid(data,4)
                         Response.Write(data&"<br>")

                        L=len(data)
                        if L>95 then

                        data=LTrim(data)
                        '╖╓│÷▒¿╬─╕≈╕÷─┌╚▌
                        Response.Write("<font color=Blue>╩í╡╪╟°┤·┬δ</font>"&qh&"<br>")
                        tq(0)=mid(data,1,5)
                    '╖¡╥δ╓╨╬─╒╛╡π

                         for z1=0 to 2432
                             t1=zdArray(z1)
                            if tq(0)=zdArray(z1)then

                             z2=z1

                             tq(0)=zdhzArray(z2)
                           Exit for
                           End if
                          next
                        Response.Write("<font color=red>╓╨╬─╒╛╡π</font>"&tq(0)&"<br>")

                        tq(1)=mid(data,8,2)
                          for y1=0 to 31

                          t2=tqxxArray(y1)
                            if t2=tq(1) then
                             y3=y1

                            tq(1)=htqxxArray(y3)
                          Exit for
                          End if
                       Next
                        tq(2)=mid(data,10,2)
                         for y1=0 to 31

                          t2=tqxxArray(y1)
                            if t2=tq(2) then
                             y3=y1

                            tq(2)=htqxxArray(y3)
                          Exit for
                          End if
                       Next
                       if tq(1)=tq(2) then
                          tq(1)=tq(1)
                          Else
                          tq(1)=tq(1)+"ת"+tq(2)
                          End if
                          Response.Write("<font color=Green>24╨í╩▒╠∞╞°╘ñ▒¿:</font>"&tq(1)&",")

                        tq(3)=mid(data,14,1)
                         for y2=0 to 9
                             t2=fxArray(y2)
                              if t2=tq(3) then
                            y4=y2
                              tq(3)=hfxArray(y4)
                             Exit for
                             End if
                           Next

                        tq(4)=mid(data,15,1)
                         for y2=0 to 9
                              t2=fxArray(y2)
                              if t2=tq(4) then
                            y4=y2
                              tq(4)=hfxArray(y4)
                             Exit for
                             End if
                           Next

                        tq(5)=mid(data,16,1)
                         for y2=0 to 9
                              t2=fxArray(y2)
                              if t2=tq(5) then
                              y5=y2
                              tq(25)=hflArray(y5)
                             Exit for
                             End if
                           Next

                        tq(6)=mid(data,17,1)
                           for y2=0 to 9
                                 t2=fxArray(y2)
                                  if t2=tq(6) then
                                y5=y2
                                tq(26)=hflArray(y5)
                               Exit for
                               End if
                           Next
                           if tq(3)=tq(4) and tq(25)=tq(26) and tq(3)=tq(25) then
                              tq(3)=tq(3)
                               ElseIf tq(3)=tq(4) and tq(25)=tq(26) and tq(3)<>tq(25) then
                                tq(3)=tq(3)+tq(25)
                                ElseIf tq(3)=tq(4) and tq(5)>tq(6) then
                                 tq(3)=tq(3)+tq(25)+"╝⌡╚⌡╬¬" +tq(26)
                                 ElseIf tq(3)=tq(4) and tq(5)<tq(6) then
                                 tq(3)=tq(3)+tq(25)+"╘÷╟┐╡╜" +tq(26)
                                 ElseIf tq(3)<>tq(4) and tq(3)="╬ó╖τ" then
                                 tq(3)=tq(4)+tq(26)
                                 ElseIf tq(3)<>tq(4) and tq(4)="╬ó╖τ" then
                                 tq(3)=tq(3)+tq(25)
                                 ElseIf tq(3)<>tq(4) and tq(5)=tq(6) then
                                 tq(3)=tq(3)+"ת"+tq(4)+tq(25)
                                  ElseIf tq(3)<>tq(4) and tq(5)<>tq(6) then
                                   tq(3)=tq(3)+tq(25) +"ת"+tq(4)+tq(26)
                                   Else
                                    tq(3)=""
                             End if
                        Response.Write(tq(3)&",")


                        tq(7)=mid(data,20,2)
                           if tq(7)<=50 then
                             tq(7)=tq(7)
                             Else
                             tq(7)=50-tq(7)
                            End if

                        Response.Write("╡═╬┬"&tq(7)&"íµ"&",")
                        tq(8)=mid(data,22,2)
                          if tq(8)<=50 then
                             tq(8)=tq(8)
                             Else
                             tq(8)=50-tq(8)
                            End if

                        Response.Write("╕▀╬┬"&tq(8)&"íµ"&"<br>")
                        tq(9)=mid(data,26,2)
                         for y1=0 to 31

                          t2=tqxxArray(y1)
                            if t2=tq(9) then
                             y3=y1
                            tq(9)=htqxxArray(y3)
                          Exit for
                          End if
                       Next

                        tq(10)=mid(data,28,2)
                         for y1=0 to 31

                          t2=tqxxArray(y1)
                            if t2=tq(10) then
                             y3=y1
                            tq(10)=htqxxArray(y3)
                          Exit for
                          End if
                       Next

                       if tq(9)=tq(10) then
                          tq(9)=tq(9)
                          Else
                          tq(9)=tq(9)+"ת"+tq(10)
                          End if
                        Response.Write("<font color=Green>48╨í╩▒╠∞╞°╘ñ▒¿:</font>"&tq(9)&",")

                        tq(11)=mid(data,32,1)
                         for y2=0 to 9
                             t2=fxArray(y2)
                              if t2=tq(11) then
                            y4=y2
                              tq(11)=hfxArray(y4)
                             Exit for
                             End if
                           Next

                        tq(12)=mid(data,33,1)
                         for y2=0 to 9
                             t2=fxArray(y2)
                              if t2=tq(12) then
                            y4=y2
                              tq(12)=hfxArray(y4)
                             Exit for
                             End if
                           Next

                        tq(13)=mid(data,34,1)
                        for y2=0 to 9
                              t2=fxArray(y2)
                              if t2=tq(13) then
                              y5=y2
                              tq(27)=hflArray(y5)
                             Exit for
                             End if
                           Next

                        tq(14)=mid(data,35,1)
                        for y2=0 to 9
                              t2=fxArray(y2)
                              if t2=tq(14) then
                              y5=y2
                              tq(28)=hflArray(y5)
                             Exit for
                             End if
                           Next

                           if tq(11)=tq(12) and tq(27)=tq(28) and tq(11)=tq(27) then
                              tq(11)=tq(11)
                               ElseIf tq(11)=tq(12) and tq(27)=tq(28) and tq(11)<>tq(27) then
                                tq(11)=tq(11)+tq(27)
                                ElseIf tq(11)=tq(12) and tq(13)>tq(14) then
                                 tq(11)=tq(11)+tq(27)+"╝⌡╚⌡╬¬" +tq(28)
                                 ElseIf tq(11)=tq(12) and tq(13)<tq(14) then
                                 tq(11)=tq(11)+tq(27)+"╘÷╟┐╡╜" +tq(28)
                                 ElseIf tq(11)<>tq(12) and tq(11)="╬ó╖τ" then
                                 tq(11)=tq(12)+tq(28)
                                 ElseIf tq(11)<>tq(12) and tq(12)="╬ó╖τ" then
                                 tq(11)=tq(11)+tq(27)
                                 ElseIf tq(11)<>tq(12) and tq(13)=tq(14) then
                                 tq(11)=tq(11)+"ת"+tq(12)+tq(27)
                                  ElseIf tq(11)<>tq(12) and tq(13)<>tq(14) then
                                   tq(11)=tq(11)+tq(27) +"ת"+tq(12)+tq(28)
                                   Else
                                    tq(11)=""
                             End if

                        Response.Write(tq(11)&",")

                        tq(15)=mid(data,38,2)
                        if tq(15)<=50 then
                        tq(15)=tq(15)
                        Else
                         tq(15)=50-tq(15)
                        End if


                        Response.Write("╡═╬┬"&tq(15)&"íµ"&",")
                        tq(16)=mid(data,40,2)
                        if tq(16)<=50 then
                        tq(16)=tq(16)
                        Else
                         tq(16)=50-tq(16)
                        End if

                        Response.Write("╕▀╬┬"&tq(16)&"íµ"&"<br>")
                        tq(17)=mid(data,44,2)
                         for y1=0 to 31

                          t2=tqxxArray(y1)
                            if t2=tq(17) then
                             y3=y1
                            tq(17)=htqxxArray(y3)
                          Exit for
                          End if
                       Next

                        tq(18)=mid(data,46,2)
                         for y1=0 to 31
                             t2=tqxxArray(y1)
                            if t2=tq(18) then
                             y3=y1
                            tq(18)=htqxxArray(y3)
                          Exit for
                          End if
                       Next

                        if tq(17)=tq(18) then
                          tq(17)=tq(17)
                          Else
                          tq(17)=tq(17)+"ת"+tq(18)
                          End if

                        Response.Write("<font color=Green>72╨í╩▒╠∞╞°╘ñ▒¿:</font>"&tq(17)&",")

                        tq(19)=mid(data,50,1)
                        for y2=0 to 9
                             t2=fxArray(y2)
                              if t2=tq(19) then
                            y4=y2
                              tq(19)=hfxArray(y4)
                             Exit for
                             End if
                           Next

                        tq(20)=mid(data,51,1)
                        for y2=0 to 9
                             t2=fxArray(y2)
                              if t2=tq(20) then
                            y4=y2
                              tq(20)=hfxArray(y4)
                             Exit for
                             End if
                           Next

                        tq(21)=mid(data,52,1)
                        for y2=0 to 9
                              t2=fxArray(y2)
                              if t2=tq(21) then
                              y5=y2
                              tq(29)=hflArray(y5)
                             Exit for
                             End if
                           Next

                        tq(22)=mid(data,53,1)
                        for y2=0 to 9
                              t2=fxArray(y2)
                              if t2=tq(22) then
                              y5=y2
                              tq(30)=hflArray(y5)
                             Exit for
                             End if
                           Next

                           if tq(19)=tq(20) and tq(29)=tq(30) and tq(19)=tq(29) then
                              tq(19)=tq(19)
                               ElseIf tq(19)=tq(20) and tq(29)=tq(30) and tq(19)<>tq(29) then
                                tq(19)=tq(19)+tq(29)
                                ElseIf tq(19)=tq(20) and tq(21)>tq(22) then
                                 tq(19)=tq(19)+tq(29)+"╝⌡╚⌡╬¬" +tq(30)
                                 ElseIf tq(19)=tq(20) and tq(21)<tq(22) then
                                 tq(19)=tq(19)+tq(29)+"╘÷╟┐╡╜" +tq(30)
                                 ElseIf tq(19)<>tq(20) and tq(19)="╬ó╖τ" then
                                 tq(19)=tq(20)+tq(30)
                                 ElseIf tq(19)<>tq(20) and tq(20)="╬ó╖τ" then
                                 tq(19)=tq(19)+tq(29)
                                 ElseIf tq(19)<>tq(20) and tq(21)=tq(22) then
                                 tq(19)=tq(19)+"ת"+tq(20)+tq(29)
                                  ElseIf tq(19)<>tq(20) and tq(13)<>tq(14) then
                                   tq(19)=tq(19)+tq(29) +"ת"+tq(20)+tq(30)
                                   Else
                                    tq(19)=""
                             End if

                        Response.Write(tq(19)&",")
                        tq(23)=mid(data,56,2)
                         if tq(23)<=50 then
                          tq(23)=tq(23)
                          Else
                          tq(23)=50-tq(23)
                         End if

                        Response.Write("╡═╬┬"&tq(23)&"íµ"&",")
                        tq(24)=mid(data,58,2)
                        if tq(24)<=50 then
                        tq(24)=tq(24)
                        Else
                         tq(24)=50-tq(24)
                        End if

                        Response.Write("╕▀╬┬"&tq(24)&"íµ"&"<br>")

'dim Conn
'  Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/data.mdb")
'dim Rs,Sql
'set Rs=server.CreateObject("adodb.recordset")
'Sql="[yubao]"
'Rs.open Sql,Conn,1,3

Rs.addnew
Rs("shq")=qh
Rs("zhd")=tq(0)
Rs("24tqxx")=tq(1)
Rs("24fxfs")=tq(3)
Rs("24dw")=tq(7)
Rs("24gw")=tq(8)
Rs("48tqxx")=tq(9)
Rs("48fxfs")=tq(11)
Rs("48dw")=tq(15)
Rs("48gw")=tq(16)
Rs("72tqxx")=tq(17)
Rs("72fxfs")=tq(19)
Rs("72dw")=tq(23)
Rs("72gw")=tq(24)
Rs.update
''Conn.close
'Rs.close
'set conn=nothing


                       End if'╚τ╣√▒¿╬─│ñ╢╚▓╗╣╗╛═╔╛╚Ñ
                     End if'╚τ╣√▒¿╬─╡┌╥╗╕÷5▓╗╩╟╘┌3ú¼4╬╗╓├╛═╔╛╚Ñ
                    next'╡╚║┼╜ß╩°

         End if'┤°CC*╡─▒¿╬─╛═╔╛╚Ñ
       end if'▓╗┤°fsci40╡─▒¿╬─╛═╔╛╚Ñ
     end if'╚τ╣√fdz=0╛═╔╛╚Ñ┤╦▒¿╬─
   next'
'Conn.close
Rs.close
set conn=nothing
 %>