%
If Session("CID") = "" Then
Response.redirect "login.asp"
Response.End
End If
Dim strFile, fs, objFile, strDate, bFile, strLine, DataArray, subMenu, rsProductName
strFile = "D:\Daewon WEB\Jaego\jaego.txt"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(strFile) then
Set objFile = fs.GetFile(strFile)
strDate = FormatDateTime(objFile.DateLastModified, 2) & " " & FormatDateTime(objFile.DateLastModified, 4)
Set clsDW = New Daewon
Set rs = clsDW.QStock("", "QDate")
If rs.eof Or rs.bof Then
bFile = True
Else
If strDate = FormatDateTime(rs("DDate"), 2) & " " & FormatDateTime(rs("DDate"), 4) Then
bFile = False
Else
bFile = True
End If
End if
If bFile Then
result = clsDW.AStock(0, "", "", "", "", "", "", "", 0, "D")
Set objFile = fs.OpenTextFile(strFile,1)
Do While objFile.AtEndOfStream <> True
strLine = objFile.readLine
DataArray = Split(strLine, ";")
result = clsDW.AStock(0, strDate, Trim(DataArray(0)), Trim(DataArray(1)), Trim(DataArray(2)), Trim(DataArray(3)), Trim(DataArray(4)), Trim(DataArray(5)), Trim(DataArray(6)), "I")
Loop
End If
Set clsAdmin = New Admin
result = clsAdmin.ACustomer(Session("CID"), "", "", "", "", 0, 0, "S")
end if
topMenu = "stock"
subMenu = "CAR"
' Select Box
Set rsProductName = clsDW.QStockSearch("0", 0, 0, "QDList")
%>
NEWS 리스트
품명 |
규격 |
색상 |
조장 |
수량 |
품명을 입력해서 검색하세요. |