<%Server.ScriptTimeout=600%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>David Kirsh : Classes</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="DK-styles.css" rel="stylesheet" type="text/css"> </head> <body> <table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><a href="index.html"><img src="graphics/davidKirsh-shadow.jpg" width="250" height="110" border="0"></a></td> <td width="450" align="right"><div align="right"></div></td> </tr> <tr bgcolor="#FFFFFF"> <td height="10" colspan="2"></td> </tr> <tr bgcolor="#CCCCCC"> <td height="1" colspan="2"></td> </tr> <tr> <td height="5" colspan="2"> </td> </tr> <tr> <td colspan="2"><table width="100%" border="0"> <tr> <td><!-- InstanceBeginEditable name="Home" --><a href="index.html" class="navHot">Home</a><!-- InstanceEndEditable --></td> <td align="center"><!-- InstanceBeginEditable name="Research" --><a href="research.html" class="navCurrent">Research</a><!-- InstanceEndEditable --></td> <td align="center"><!-- InstanceBeginEditable name="Publications" --> <a href="publications.html" class="navHot">Publications</a><!-- InstanceEndEditable --></td> <td align="center"><span class="navHot"> </span> <!-- InstanceBeginEditable name="Classes" --><a href="classes.html" class="navHot">Classes</a><!-- InstanceEndEditable --></td> <td align="center"> <!-- InstanceBeginEditable name="Consulting" --><a href="consulting.html" class="navHot">Consulting</a><!-- InstanceEndEditable --></td> <td align="center"><!-- InstanceBeginEditable name="My Lab" --><a href="lab.html" class="navHot">My Lab</a></td> <td align="right"><!-- InstanceBeginEditable name="My Lab" --><a href="fileupload.asp" class="navHot">Files</a><!-- InstanceEndEditable --></td> </tr> </table></td> </tr> <tr> <td colspan="2"><table width="100%" border="0"> <tr><td> <% Response.Cookies("genet_view") = "docked" %> <%if request("action") = "" then%> <table width=100%> <tr> <td valign=top> <br><BR> <table width=100% height=150 cellspacing=0 cellpadding=0 align=center style="font-family:verdana;font-size:11px" border=0> <!-- <tr> <td width=120 valign=top><img src="../download3.jpg" border=0 ></td> <td valign=top> <span style="font-size:14px"><strong>File Download</strong></span><br> Need a file from me? If I've given you a password, go ahead and get it.<br> <form action="listfiles.asp" method=post target="files"> <table class=mainText> <tr><td colspan=2> </td></tr> <tr> <td height=20> <%if request("result") = "error" then%> <span style='color:red'>Invalid Login</span> <%end if%> </td> <td height=20 ><input type="password" style="width:70px" name="password"> <input type=submit value="Go" onclick="var files=window.open('', 'files', 'width=400, height=400, scrollbars=yes, resizable=yes')"> <br> <span style="font-size:12px">New Window<input type="radio" name="view" value="newWindow" onclick="document.location='fileupload.asp?cookie=true'"> Docked</span><input type="radio" name="view" value="newWindow" onclick="document.location='fileupload.asp?'" CHECKED> </td></tr></table> </form> </td> </tr> <tr><td height=20 colspan=2> <br><br><br></td></tr> --> <tr> <td width=120 valign=top><img src="upload.jpg" border=0 ></td> <td valign=top > <span style="font-size:14px"><strong>File Upload</strong></span><br> Want send me a file? Go ahead and upload it to my site. <br><br> <form enctype="multipart/form-data" action="fileupload_upload.asp?action=fileuploadprocess" method=post> File you want to upload: <br><br><input type=file name="blah"> <!--<input type=text size=40 value="<%=request("lastFile")%>" onclick="document.forms[0].file.value=this.value">--> <input type=submit value="Upload"> </form> <%if request("result") = "success" then response.write "<span style='color:blue'><strong>Thanks</strong></span><br><br>"%> </td> </tr> </table> </td> </tr> <tr> <td style="border:1px solid #888888"> <!--#include file="listfiles.asp"--> </td> </tr> </table> <%elseif request("action") = "fileuploadprocess" then Set uploadObject = Server.CreateObject("softartisans.fileup") if not uploadObject.IsEmpty then 'file = split(uploadObject.userFileName, "\") 'extension = right(file(Ubound(file)), 4) 'newfilename = file(ubound(file)) & "_" & replace(date(), "/", "_") & extension newfilename = uploadObject.userFilename end if 'save picture uploadObject.saveas "d:\inetpub\wwwroot\kirsh\fileupload\" & newfilename response.redirect "fileupload_upload.asp?result=success&lastFile=" & uploadObject.userFilename end if%> </td> </tr> <tr bgcolor="#FFFFFF"> <td height="25" colspan="2"></td> </tr> <tr bgcolor="#CCCCCC"> <td height="1" colspan="2"> </td> </tr> <tr> <td height="10" colspan="2" align="right"> </td> </tr> <tr> <td colspan="2" align="right"><a href="kirsh@ucsd.edu"><img src="graphics/davidKirsh-footerShadow.jpg" width="250" height="125" border="0"></a></td> </tr> <tr> <td colspan="2"> </td> </tr> </table> </body> </html>