用纯ＡＳＰ代码实现图片上传并存入数据库中

				使用ASP方便的建立自己网站的每日更新    
				
				
				--------------------------------------------------------------------------------
				
				 【batman】 于 99-8-7 上午 10:17:31 加贴在 Joy ASP ↑：
				
				使用ASP方便的建立自己网站的每日更新
				每日更新是什么东东我想大家也都应该知道把，
				其实有点象现在很多新闻网站的更新，下面介绍如何让你的
				网站的内容每天自动更新
				下面的代码适用于：
				1.使用任何ODBC兼容的数据库
				2。很方便的插入到你现有的ASP程序中
				如何保存更新内容呢？
				数据库结构：（一共三个字段）
				QuoteID（Long ），Quote（String ），Author（String） 
				下面一个技巧是如何让更新显示在任意一个页面上呢？
				我们只要把更新内容和作者当返回值送给调用的页面即可。
				代码如下，其中logic是一个随机数，表示随机从数据库中显示哪个记录：
				              				              Sub GetQuote(byVal strQuote, byval strAuthor)
				                        Dim intMaxID   
				                        Dim intRecordID 
				                        dim strSQL   
				                        Dim oConn   
				                        Dim oRS     
				
				                           set oConn = Server.CreateObject("ADODB.Connection")
				                           oConn.Open "Database=mydb;DSN=Quotes;UID=sa;Password=;"
				
				                           strSQL = "SELECT MaxID=max(QuoteId) from Quotes"
				                           Set oRS = oConn.Execute(strSQL)
				                           If oRS.EOF Then
				                              strQuote = "站长太懒了，今天没有更新内容."
				                              strAuthor = "呵呵"
				                              Exit Sub
				                           Else
				                              intMaxID = oRS("MaxID")
				                           End If
				
				                           Randomize
				                           intRecordID= Int(Rnd * intMaxID) + 1
				                           strSQL = "Select * from quotes where QuoteID=" & intRecordID & ";"
				                           Set oRS = oConn.Execute(strSQL)
				                           If oRS.EOF Then
				                              strQuote = "站长太懒了，今天没有更新内容."
				                              strAuthor = "呵呵"
				                              Exit Sub
				                           Else
				                              oRS.MoveFirst
				                              strQuote = oRS("Quote")
				                              strAuthor = oRS("Author")
				                           End If
				
				                           oRS.Close
				                           oConn.Close
				                           Set oRS = Nothing
				                           set oConn = Nothing
				                        End Sub
				                        %>
				
				其实在程序中如果使用一个嵌套的SQL能够提高性能，例如这样
				Select * from Quotes where QuoteID = (Select int ( RND * Max(QuoteID) ) from Quotes );
				可是问题是有些数据库的随机数函数是RAND而不是RND，
				如果要是你自己用的话，那当然可以使用这句话代替我上面介绍的方法，
				可别忘了，要是别人的数据库不支持RAND怎么办，呵呵。
				再说了，现在是在讲ASP技术，而不是在讲SQL技术，呵呵。
				现在我们将上面的代码保存到一个名叫quotes.inc的文件中来，
				下面就举一个如何调用它的例子把：
				                        
				                        
				                        例子
				                        
				                        
				                        
				                        
				                        				                           Dim strQuote
				                           Dim strAuthor
				                           GetQuote(strQuote, strAuthor)
				                        %>
				                        
				                        
				                           
				                              "" --
				                           
				                        
				                        
				                        
				                        
				                        
				其实你可以再加强点它的功能：
				1.可以在子过程中给返回的字符串带上格式，这样显示会更加漂亮
				2。将这个代码做成一个组件来调用
				3。使用一个文本文件来代替数据库
				4。将SQL放到存储过程中去