Microsoft Access til mysql
Jeg har det her scricp<html>
<head>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("DVDdb.mdb")
%>
<title>Album</title>
<script language="JavaScript" type="text/javascript" src="js/album.js"></script>
<link rel="stylesheet" type="text/css" href="../stylealbum.css" />
<script type="text/javascript">
function indsaet(pic){
opener.document.formen.elements[opener.picTarget].value=pic;
self.close();
}
</script>
<script language="javascript" type="text/javascript">
function popWin(file){
newWin=window.open("","ResizeBillede","width=300,height=200,status=no");
txt='<ht'+'ml><he'+'ad><ti'+'tle>Resize til billede<\57ti'+'tle><scri';
txt+='pt language="javascript" type="text/javascript">';
txt+='function resPic(){h=document.images[0].scrollHeight;';
txt+='w=document.images[0].scrollWidth;window.resizeTo(w+6,h+72);}<\57scri';
txt+='pt><\57he'+'ad><bo'+'dy style="overflow:hidden;';
txt+='border:0px;margin:0px"><i'+'mg src="'+file+'" style="top:0px;left:0px;border:0px;';
txt+='" onload="resPic();"><\57bo'+'dy><\57ht'+'ml>';
newWin.document.write(txt);
newWin.document.close();
}
</script>
</head>
<body style="background-color: #ABC8F6;">
<div class="DivFrame" style="background-color:#ECE9D8">
<%
if s = "Nymappe" then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from Albummapper"
rs.Open strsql, conn, 1, 3
rs.AddNew
rs("mappe") = request.form("mappe")
rs.update
response.write "<script language=""javascript"">" & vbCrLf
response.write "<!--" & vbCrLf
response.write "this.location = 'album.asp?mappeid=" & rs("ID") & "';" & vbCrLf
response.write "-->" & vbCrLf
response.write "</script>"
rs.close
set rs = Nothing
end if
if s = "Renamemappe" then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from Albummapper where ID = " & ID & ""
rs.Open strsql, conn, 1, 3
rs.update
rs("mappe") = request.form("mappe")
rs.update
response.write "<script language=""javascript"">" & vbCrLf
response.write "<!--" & vbCrLf
response.write "this.location = 'album.asp?mappeid=" & rs("ID") & "';" & vbCrLf
response.write "-->" & vbCrLf
response.write "</script>"
rs.close
set rs = Nothing
end if
if s = "SletMappe" then
conn.Execute("delete from AlbumMapper where id = " & Request.QueryString("id") & "")
response.write "<script language=""javascript"">" & vbCrLf
response.write "<!--" & vbCrLf
response.write "alert (""Mappen er slettet"")" & vbCrLf
response.write "self.location = 'album.asp';" & vbCrLf
response.write "-->" & vbCrLf
response.write "</script>"
end if
if s = "Sletobjekt" then
'Ã¥bner db
strFil= "select * from AlbumFiler WHERE id = " & ID & ""
Set RSFil= conn.Execute(strFil)
FilMappeID = rsfil("mappeid")
FilURLfilnavn= rsfil("urlfilnavn")
rsfil.close
set rsfil = nothing
'sletter filen på serveren
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.DeleteFile("" & fysisksti & "album\" & FilURlfilnavn & "")
set fs=nothing
'sletter i DB
conn.Execute("delete from AlbumFiler where id = " & ID & "")
response.write "<script language=""javascript"">" & vbCrLf
response.write "<!--" & vbCrLf
response.write "alert (""Filen er slettet er slettet"")" & vbCrLf
response.write "self.location = 'album.asp?mappeid=" & FilMappeID & "';" & vbCrLf
response.write "-->" & vbCrLf
response.write "</script>"
end if
mappeid = Request.QueryString("mappeid")
if mappeid = 0 then
mappeid = 1
end if
Set rsMappe = Server.CreateObject("ADODB.Recordset")
strSQLMappe = "select * from Albummapper where ID = " & mappeid & ""
rsMappe.Open strsqlMappe, conn, 1, 3
Function GetSize(size)
Dim a, i
a = Array("Bytes", "KB", "MB", "GB")
Do While size > 1024
If i = UBound(a) Then Exit Do
size = size/1024
i = i+1
Loop
GetSize = Round(size, 2) & " " & a(i)
End Function
%>
<%
strAntal = "Select count(*) as Antal from AlbumFiler where mappeid = " & rsmappe("ID") & ""
Set rsAntal= Server.CreateObject("ADODB.RecordSet")
rsAntal.Open strAntal, conn, 1
strAntal = rsAntal("Antal")
if strAntal > 1 then
strAntal = strAntal & " objekter "
elseif strAntal = 1 then
strAntal = strAntal & " objekt"
elseif strAntal = 0 then
strAntal = "Ingen objekter"
end if
rsAntal.close
Set RSAntal=Nothing
%>
<table border="0" cellpadding="0" cellspacing="4">
<tr>
<td width="500" class="albumcel2">
<table border="0" cellpadding="0" width="100%">
<tr>
<td width="2"></td>
<td width="18"><img border="0" src="images/Ikoner/folderopen.gif" width="18" height="18"></td>
<td><b><%=rsmappe("mappe")%></b></td>
<td width="150" align="right"><%=strAntal%></td>
</tr>
</table>
</td>
<td width="200" class="albumcel1" valign="top">
<table border="0" cellpadding="0" cellspacing="2">
<tr>
<td><img src="images/c.gif" height="25" width="1"></td>
<%if rsMappe("ID") = 1 then %>
<td><a href="java script:ShowHide('nymappe');" class="menulink" title="Ny mappe"><img border="0" src="images/Ikoner/newfolder.gif" width="18" height="14"></a></td>
<td>
<div id="nymappe" name="nymappe" style="width:140px;visibility: hidden; display: none;position: absolute;background-color:#D8E7FC;padding:3px;border: 1px solid #7F9DB9;">
<a href="java script:ShowHide('nymappe');" title="Luk"><img border="0" src="images/Ikoner/luk.gif" width="12" height="12" align="right"></a><b>Mappenavn:</b><br>
<form method="post" action="Album.asp?S=Nymappe" name="formmappeny" onsubmit="valideringMappeNy();return false;">
<input type="text" class="input1" name="mappe">
<input type="submit" class="input1" value="Opret">
</form>
</div>
</td>
<%end if %>
<% if rsmappe("Laast") = false AND rsmappe("ID") > 1 then %>
<td><a href="#" onclick="java script:if(confirm('Er du sikker på du vil slette denne mappe?\n\nBEMÆRK! Eventuelle filer i denne mappe vil gå tabt!')) self.location.href = 'album.asp?ID=<%=rsmappe("ID")%>&S=SletMappe';" class="menulink" title="Slet denne mappe"><img border="0" src="images/Ikoner/X1.gif" width="15" height="17"></a></td>
<td><a href="java script:ShowHide('rename');" class="menulink" title="Omdøb"><img border="0" src="images/Ikoner/rename.gif"></a></td>
<td>
<div id="rename" name="rename" style="width:140px;visibility: hidden; display: none;position: absolute;background-color:#D8E7FC;padding:3px;border: 1px solid #7F9DB9;">
<a href="java script:ShowHide('rename');" title="Luk"><img border="0" src="images/Ikoner/luk.gif" width="12" height="12" align="right"></a><b>Omdøb mappe:</b><br>
<form method="post" action="Album.asp?S=Renamemappe&ID=<%=rsmappe("ID")%>" name="formmapperet" onsubmit="valideringMappeRet();return false;">
<input type="text" class="input1" name="mappe" value="<%=rsmappe("mappe")%>">
<input type="submit" class="input1" value="omdøb"></form>
</div>
</td>
<%end if %>
<%if rsmappe("Laast") = true and not rsmappe("ID") = 1 then%>
<td>Systemmappe<img border="0" src="images/Ikoner/Help_small.gif" width="14" height="14" style="cursor:help;" onclick="alert('Denne mappe er en systemmappe.\nDerfor kan den ikke slettes eller omdøbes.')"></td>
<%end if%>
<td> </td>
<td> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="500" height="340" class="albumcel2" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td class="topmenu">
<table border="0" cellpadding="2" cellspacing="0" width="100%">
<tr>
<td width="18"> </td>
<td>Navn:</td>
<td width="60" align="right">Størrelse:</td>
<td width="120" align="right">Dato:</td>
<td width="20"></td>
<td width="54" colspan="3"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<div style="OVERFLOW:auto;height:314px;width:500px;">
<table border="0" cellpadding="1" cellspacing="0" width="100%">
<%if not rsMappe("ID") = 1 then %>
<tr style="cursor:pointer;" onclick="location.href='album.asp?mappe=1';highlightCell(this);" onfocus="this.blur()">
<td width="16">
<img border="0" src="images/Ikoner/mappeop.gif" width="15" height="14"></td>
<td colspan="6">Filarkiv</td>
</tr>
<%else
strFolder= "select * from AlbumMapper WHERE not id= 1 order by mappe"
Set RSFolder= conn.Execute(strFolder)
While Not RSFolder.EOF
%>
<tr style="cursor:pointer;" onclick="location.href='album.asp?mappeid=<%=rsFolder("ID")%>';highlightCell(this);" onfocus="this.blur()">
<td width="16">
<img border="0" src="images/Ikoner/folder.gif"></td>
<td colspan="6"><%=rsFolder("mappe")%></td>
</tr>
<%
RSFolder.MoveNext
Wend
Set RSFolder=Nothing
end if
%>
<%
strFiler= "select * from AlbumFiler WHERE mappeid = " & mappeid & " order by filnavn"
Set RSFiler= conn.Execute(strFiler)
While Not RSFiler.EOF
URLfilnavn = rsFiler("URLfilnavn")
%>
<tr style="cursor:pointer;" onclick="highlightCell(this);" onfocus="this.blur()">
<td width="22" align="right"><img src="images/ikoner/files/<%=rsFiler("type")%>.gif" onclick="indsaet('/album/<%=urlfilnavn%>');"></td>
<td onclick="indsaet('<%=urlfilnavn%>');"><%=rsFiler("filnavn")%></td>
<td width="60" align="right"><%=GetSize(rsFiler("storrelse"))%></td>
<td width="120" align="right"><%=left(rsFiler("dato"),10)%></td>
<td width="20"></td>
<td width="18"> </td>
<td width="18"><img border="0" src="images/Ikoner/look.gif" width="16" height="16" onclick="popWin('album/stor/<%=urlfilnavn%>');return false;"></td>
<td width="18"><a href="#" onclick="java script:if(confirm('Er du sikker på du vil slette dette objekt?')) self.location.href = 'album.asp?S=Sletobjekt&ID=<%=rsFiler("ID")%>';"><img border="0" src="images/Ikoner/X1.gif" width="15" height="17"></a></td>
</tr>
<%
RSFiler.MoveNext
Wend
Set RSFiler=Nothing
%>
</table>
</div></td>
</tr>
</table>
</td>
<td width="200" height="340" class="albumcel1" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td class="topmenu" align="center">
</td>
</tr>
<tr>
<td background="images/AlbumRight.gif" height="314"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2">
<form method="post" action="albumupload.asp" ENCTYPE="multipart/form-data" name="formupload">
<input name="mappeid" type="hidden" value="<%=rsmappe("ID")%>">
<table border="0" cellpadding="0" cellspacing="2" width="100%">
<tr>
<td width="40">Upload:</td>
<td><INPUT TYPE="FILE" NAME="FILE1" SIZE="50" class="input"></td>
<td width="50"><input type="submit" value="upload" class="input" ></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</div>
</body>
</html>
/////////////////////////////
Vi vil godt ha de så den læser over mysql istedet hvodan kan man ændre det har prøvet med
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 3.51 Driver};Server="& SQLserveradr &";port="& SQLport &";Database="& SQLdatabase &";Option=3;User="& SQLlogin &";Password="& SQLpassword & ";"
Men det virker ikke er der nogen der evt kunne hjælpe
men tabellerne er i mysql databasen
OBS: skal lige siges det er Lund database 2
Asp
Mysql
