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 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134
|
<html>
<head>
<title></title>
<script language="javascript">
function lancer(chemin)
{
var ExcelApp = new ActiveXObject("Excel.Application");
ExcelApp.Application.Visible = true;
ExcelApp.Workbooks.Open(chemin);
}
function lancer2(fic)
{
w = new ActiveXObject("WScript.Shell");
w.run ('start "'+fic+'"');
}
function lancer3(fic)
{
var xlapp = Server.Createobject("Excel.Application")
xlapp.Application.Visible = true
xlapp.workbooks.Open(fic)
}
function exec (cmd) { new ActiveXObject ("WScript.Shell").run (cmd) }
</script>
</head>
<body topmargin="0" leftmargin="50" rightmargin="50" background="bck.jpg" >
<!--
<div >
<a href onclick="javascript:lancer3('c:\\Inetpub\\wwwroot\\applications\\a.xls')">LANCER</a>
</div>
-->
<div>
<center>
<table border="0"height="100">
<tr>
<td width="100" valign="middle" align="center" ><a style="CURSOR:pointer" onClick="javascript:document.location.href='select_access.asp';"><img src="ACCESS.PNG" width=70 height="70"></a><td>
<td width="100" valign="middle" align="center" ><a style="CURSOR:pointer" onClick="javascript:document.location.href='select_asp.asp';"><img src="IEXPLORER.PNG" width=70 height="70"></a><td>
<td width="100" valign="middle" align="center" ><a style="CURSOR:pointer" onClick="javascript:document.location.href='select_xls.asp';"><img src="EXCEL.PNG" width=70 height="70"></a><td>
<!-- <td width="30"</td><td width="100" valign="middle" align="center" ><a style="CURSOR:pointer" onClick="javascript:document.location.href='users.asp';"><img src="USER_COMPUTER.PNG" width=70 height="70"></a><td>-->
</tr>
</table>
</center>
</div>
<%
Dim conn
Dim rs
dim my_name,my_path,my_file,my_ico
my_name=""
my_path=""
my_file=""
my_ico=""
Set conn = Server.CreateObject("ADODB.Connection")
'conn.open "lst_prog","",""
conn.Open "PROVIDER=MSDASQL;dsn=lst_prog;uid=;pwd=;"
'
' pour les applications ACCESS
'
sql = "SELECT * FROM pgm where pgm_group in ('mdb','mdb_interne') order by pgm_order asc;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If Not rs.eof Then
rs.MoveFirst
%>
<table border="0" cellspacing="0" >
<thead>
<tr>
<th width="110" border="0" ><img border="0" src="access.png" width="50" height="50"></th>
<th border="0" ></th>
<th width="160" align="LEFT" <strong><font face="Arial" color="#000000" size="2">Nom</font></strong></th>
<th width="32" align="LEFT" <strong><font face="Arial" color="#000000" size="2"></font></strong></th>
<th width="200" align="LEFT" <strong><font face="Arial" color="#000000" size="2">Fichier</font></strong></th>
<th width="32" align="LEFT" <strong><font face="Arial" color="#000000" size="2"></font></strong></th>
<th width="250" align="LEFT" <strong><font face="Arial" color="#000000" size="2">Emplacement</font></strong></th>
</tr>
</thead>
<%
On Error Resume Next
Do while Not rs.eof
my_name=rs("pgm_name")
my_path=rs("pgm_path")
my_file=rs("pgm_file_name")
my_ico =rs("ico_name")
rs.MoveNext
%>
<tr valign="TOP">
<td ></td>
<td align="LEFT" > <img border="0" src=<%=my_ico%> width="24" height="24" ></td>
<td valign="middle" bordercolor="#C0C0C0" align="LEFT"> <font face="Arial" size="2" color="#000000"><%=my_name%></td>
<td valign="middle" bordercolor="#C0C0C0" align="LEFT"> <img border="0" src="pgm2.ico" width="24" height="24" ></td>
<td valign="middle" bordercolor="#C0C0C0" align="LEFT"> <font face="Arial" size="1" color="#000000"><a href="<%=my_path%>\<%=my_file%>" target="_BLANK"><%=my_file%></td>
<td valign="middle" bordercolor="#C0C0C0" align="LEFT"> <img border="0" src="path2.ico" width="24" height="24" ></td>
<td valign="middle" bordercolor="#C0C0C0" align="LEFT"> <font face="Arial" size="1" color="#000000"><a href="<%=my_path%>" target="_BLANK"><%=my_path%></td>
</tr>
<%
Loop
%>
</table>
<%
End If
rs.close
Set rs=Nothing
%>
<%
'
' Fernmeture de la session
'
conn.close
Set conn=Nothing
%>
<br><br><br>
<a href=http://172.16.10.214:8080/PRJTOMCAT5/GenerateRapport.pdf><img src="FolderAdobe.png" width=40 height="40" border=0></a>
</body> |
Partager