%@Language=VBScript codePage=950%> <% sRefNum = Request.QueryString("refNum") OriginalPage = 950 Sub writeUnicodeText(Input) OriginalPage = Session.CodePage inserver = ucase(request.servervariables("SERVER_NAME")) if inserver <> "INFODEV01" then Session.codepage = 1252 end if if Input <> "" then Response.Write replace(Input, """", "") end if Session.CodePage = OriginalPage End sub OpenFileForReading = 1 m=0 Set fso = CreateObject("Scripting.FileSystemObject") Set File = fso.GetFile(Server.Mappath("maid_info.txt")) Set TextStream = File.OpenAsTextStream(OpenFileForReading) TextStream.ReadLine TextStream.ReadLine TextStream.ReadLine TextStream.ReadLine TextStream.ReadLine skipTitle = false Do while not TextStream.AtEndOfStream tmpDataLine = TextStream.ReadLine reDim Preserve DataArr(m) DataArr(m) = split(tmpDataLine, chr(9)) if (DataArr(m)(0) =sRefNum) then soIdx =m end if m = m + 1 loop TextStream.Close %>
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|