-
Notifications
You must be signed in to change notification settings - Fork 0
/
EvaluacionesOnline_upldFile.asp
74 lines (52 loc) · 1.62 KB
/
EvaluacionesOnline_upldFile.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
<html>
<head>
<title></title>
</head>
<body>
<%
Dim mySmartUpload
Dim StrSql
'*** Create Object ***'
Set fso = CreateObject("Scripting.FileSystemObject")
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'*** Upload Files ***'
mySmartUpload.Upload
if(mySmartUpload.Files("Docto").FileName = "") then
%>
<script languaje="javascript">
alert('Debe Seleccionar un documento.');
document.location=('./EvaluacionOnline.asp');
</script>
<%
end if
Codcli = mySmartUpload.form("CodCli")
Conter = mySmartUpload.form("Conter")
Atrasado = mySmartUpload.form("Atrasado")
Raiz1 = Server.MapPath("Doctos")& "\EvaluacionesOnline\"
Raiz2 = Server.MapPath("Doctos")& "\EvaluacionesOnline\" & Conter & "\"
'*** Crea carpeta si no existe ***
if (Not fso.FolderExists(Raiz1)) then
Set fol = fso.CreateFolder(Raiz1)
end if
if (Not fso.FolderExists(Raiz2)) then
Set fol = fso.CreateFolder(Raiz2)
end if
'*** Obtiene formato del archivo ***
x = split(mySmartUpload.Files("Docto").FileName, ".")
formato = x(UBound(x))
NomArchivo = Conter & "_" & Codcli & "." & formato
strsql = " insert into ca_evaluacionesOnline (ID_CONTER,CODCLI,ARCHIVO,ATRASADO,FECHA_SUBIDA) values ("
StrSql = StrSql & Conter &", '"& Codcli & "', '" & NomArchivo & "', '" & Atrasado & "', '" & Date & "')"
Session("Conn").execute StrSql
'*** Upload file ***'
mySmartUpload.Files("Docto").SaveAs(Raiz2 & NomArchivo)
%>
<script languaje="javascript">
alert('Archivo subido con exitosamente.');
document.location=('./EvaluacionOnline.asp');
</script>
<%
Set mySmartUpload = Nothing
%>
</body>
</html>