今天用了一下午解决了文件上传问题。说是解决了，其实并没有彻底解决。现在的情况是解决了标的问题，没有解决本的问题。目前使用的这个文件上传是一段很简单的代码。代码如下：

<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function

strFileName = Request.Form("upfilename")
If strFileName<>"" Then
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close

response.write"文件地址： files/"&GetFileName(strFileName) 
Else
%>

    这段代码能够实现在我的电脑上将其他盘或文件夹中的文件传到目标的文件夹中（桌面上的文件除外）。可是，没有再别人的电脑上试过。估计是不好使的。所以，在网站制作的过程中可以用一下，以便向数据库中输入文件。但是，将来要是传到服务器上的时候，可就不行了。因此，在网站基本功能全部完成以后，这个内容将是重点研究的。

    今天另外一个重要的成果是基本完成了收藏夹及其下属网页的制作。目前只有收藏夹对应的管理系统还没有做，这个留到天亮了以后再做。还有就是收藏夹里面的一条长幅广告没有完成，准备把我的淘宝网店方在上面宣传一下。

    现在还有一个大的内容没有涉及，那就是作品集。主要是目前的作品实在是太少了。即便是把网页做出来了，也怕没有东西填充。

    不过，看着这个网站一天天丰富起来，一天天完善起来。心里的感觉还是挺舒服的。虽然有点累，但是学到了不少知识。在网站基本功能完成以后，将会用几天的时间进行进一步的美化和完善。这个网站将会是我制作的第一个完整的网站。加油吧！

    现在发觉，虽然对Dreamweaver的使用比较熟练了，但是严重缺乏ASP、数据库和其他网站制作语言的基础。只是能大概看懂，谈不上会。这样给网站制作带来了很多的不便。最主要的是很多想要的功能无法实现，并且在修改网上下载来的代码时也会耗费大量的时间。所以，在做完这个网站以后，一定要补充一下这些东西。