mÖÐÎļþÔªËصÄÃû×Ö£¬Èç"File1"£»
New µØ New µsearchº
³É¹¦£¬·µ»ØÉÏÔصÄÎļþµÄÃû×Ö£»
²»³É¹¦£¬Èç¹ûÉÏ´«Ê§°Ü£¬·µ»ØΪ""£»
²»³É¹¦£¬Èç¹ûÉÏ´«Îļþºó׺²»¶Ô£¬·µ»ØΪ"0"(µ±ÉèÖÃÁËextNameÊôÐÔʱÓÐЧ)£»
²»³É¹¦£¬Èç¹ûÉÏ´«ÎļþµÄ´óС̫´ó£¬·µ»ØΪ"1"(µ±ÉèÖÃÁËMaxSizeÊôÐÔʱÓÐЧ)£»
About·½·¨
ÏÔʾLyfUpload×é¼þµÄ×÷Õß¼°°æ±¾ºÅµÈÐÅÏ¢
µ÷Óãº
<%
dim ss
Set ss = Server.CreateObject("LyfUpload.UploadFile") '´´½¨LyfUpload×é¼þ¶ÔÏó
ss.about
%>
Èý¡¢×é¼þÊôÐÔ½éÉÜ
ExtNameÊôÐÔ
ÏÞÖÆÉÏÔØÎļþµÄÀàÐÍ£»

µ÷Óãº

Set obj = Server.CreateObject("LyfUpload.UploadFile")

obj.extname="gif"  'ÉèÖÃÎļþÉÏ´«Ö»ÄÜÊÇgifÎļþ

obj.extname="gif,jpg,bmp"  '¶àÎļþÀàÐÍÇëÓÃ","¸ô¿ª

MaxSizeÊôÐÔ

ÏÞÖÆÉÏÔØÎļþµÄ´óС£»

µ÷Óãº

Set obj = Server.CreateObject("LyfUpload.UploadFile")

obj.maxsize=2048 'ÉèÖÃÎļþÉÏ´«µÄ×î´óΪ2048¸ö×Ö½Ú(2K)

FileSizeÊôÐÔ(1.1°æй¦ÄÜ)

µÃµ½ÉÏÔØÎļþµÄ´óС£»

µ÷Óãº

Set obj = Server.CreateObject("LyfUpload.UploadFile")

response.write obj.filesize

DBContentÊôÐÔ(1.1°æй¦ÄÜ)

µÃµ½ÉÏÔØÎļþµÄʵ¼ÊÄÚÈÝ£¬Îª¶þ½øÖÆÁ÷(²»ÄÜÖ±½Ó¶ÁÈ¡£¬Ö÷ÒªÓÃÓÚÉÏÔØÎļþµ½Êý¾Ý¿âÖÐ)£»

µ÷Óãº

Set obj = Server.CreateObject("LyfUpload.UploadFile")

ss=obj.SaveFiletodb("file1") '±£´æÎļþµ½·þÎñÆ÷

aa=obj.filetype("file1") 'µÃµ½ÎļþµÄContent-Type

'----ÎļþÉÏÔص½Êý¾Ý¿âÖÐ---------

rs.AddNew

rs("name")=trim(aa)

rs("pic").AppendChunk obj.DBContent'BLOBÊý¾Ý²»ÄÜÖ±½Ó¸³Öµ

rs.Update

rs.movelast

ËÄ¡¢¾ßÌåµ÷ÓÃʵÀý

ÆÕͨÉÏÔØ£º

1¡¢µ÷ÓÃÏÔʾµÄhtm»òÕßaspÎļþÖмÓÈëÒÔÏ´úÂ룺

<form method="POST" enctype="multipart/form-data" action="demo1.asp">

<p>Îı¾¿ò1£º <input type="text" name="text1" size="20"><br>

Ñ¡ÔñÎļþ£º<input type="file" name="file1"><br>

<input type="submit" value="ÉÏÔØ"

style="background-color: rgb(0,0,255); color: rgb(255,255,0)"> </p>

</form>

×¢Ò⣺FormÖÐÒ»¶¨Òª°üº¬enctype="multipart/form-data"Óï¾ä

2¡¢ºǫ́´¦Àí³ÌÐòÖмÓÈëÏÂÃæ´úÂ룺

<%@Language=VBScript %>

<HTML>

<BODY>

<%

Set obj = Server.CreateObject("LyfUpload.UploadFile")

txt = obj.request("text1") 'µÃµ½formÔªËصÄÖµ

Response.Write( "Îı¾¿ò1µÄÊäÈëÖµÊÇ£º " & txt)

Response.Write "<br>"

ss=obj.SaveFile("file1", "C:\temp",true) '±£´æÎļþµ½·þÎñÆ÷

aa=obj.filetype("file1")

if ss<> "" then

Response.Write "Ñ¡ÔñµÄÎļþÒѾ­ÉÏÔص½·þÎñÆ÷£¡<br>"

Response.Write("ÎļþÃû£º" & ss)

Response.Write("<br>Content-Type£º" & aa) 'µÃµ½Content-Type

end if

obj.about '¹ØÓÚLyfUploa1.2

%>

</BODY >

</html>

ÎļþÉÏÔص½Êý¾Ý¿â(´Ë´¦½ö¼ÓÈëgifͼÐÎÉÏÔص½Êý¾Ý¿âÖм°´ÓÊý¾Ý¿âÖжÁÈ¡µÄ¹¦ÄÜ£¬ÆäËüÇë¿´DEMOÎļþ)

1¡¢µ÷ÓÃÏÔʾµÄhtm»òÕßaspÎļþÖмÓÈëÒÔÏ´úÂ룺

<form method="POST" enctype="multipart/form-data" action="demo4.asp">

<p>Îı¾¿ò1£º <input type="text" name="text1" size="20"><br>

Ñ¡ÔñÎļþ£º<input type="file" name="file1"><br>

<input type="submit" value="ÉÏÔØ"

style="background-color: rgb(0,0,255); color: rgb(255,255,0)"> </p>

</form>

×¢Ò⣺FormÖÐÒ»¶¨Òª°üº¬enctype="multipart/form-data"Óï¾ä

2¡¢ºǫ́´¦Àí³ÌÐòÖмÓÈëÏÂÃæ´úÂ룺

<%@Language=VBScript %>

<%

'ÉèÖÃÊý¾Ý¿âÁ´½Ó

strConn = "Driver={};DBQ=" & Server.MapPath("new.mdb")

session("strconn")=strConn

Set dbc = Server.CreateObject("ADODB.Connection")

dbc.open strConn

set rs=server.CreateObject("adodb.recordset")

rs.Open "SELECT * FROM product",dbc,1,3

%>

<HTML>

<BODY>

<%

Set obj = Server.CreateObject("LyfUpload.UploadFile")

obj.extname="gif"

txt = obj.request("text1") 'µÃµ½formÔªËصÄÖµ

Response.Write( "Îı¾¿ò1µÄÊäÈëÖµÊÇ£º " & txt)

Response.Write "<br>"

ss=obj.SaveFiletodb("file1") '±£´æÎļþµ½·þÎñÆ÷

aa=obj.filetype("file1") 'µÃµ½ÎļþµÄContent-Type

if ss= "" then

Response.Write ("ÎļþÉÏ´«Ê§°Ü!")

elseif ss= "0" then

Response.Write ("Îļþ³ß´ç¹ý´ó!")

elseif ss= "1" then

Response.Write ("Îļþ²»ÊÇgifÎļþ!")

else

'----ÎļþÉÏÔص½Êý¾Ý¿âÖÐ---------

rs.AddNew

rs("name")=trim(aa)

rs("pic").AppendChunk obj.DBContent'BLOBÊý¾Ý²»ÄÜÖ±½Ó¸³Öµ

rs.Update

rs.movelast

session("ID")=rs("ID")

rs.Close

dbc.Close

set rs=nothing

set dbc=nothing

'------------------------------ÉÏÔص½Êý¾Ý¿âÖнáÊø

Response.Write "Ñ¡ÔñµÄÎļþÒѾ­ÉÏÔص½·þÎñÆ÷£¡<br>"

Response.Write("ÎļþÃû£º" & ss)

Response.Write("<br>Content-Type£º" & aa) 'µÃµ½Content-Type

end if

obj.about '¹ØÓÚLyfUploa1.1

%>

<br>

<a href="pictest.asp?ID=<%=session("ID")%>">µã»÷´Ë´¦²é¿´ÉÏ´«ºóÊý¾Ý¿âÖеÄGIFÎļþ!</a>

</BODY >

</html>

3¡¢´ÓÊý¾Ý¿âÖÐÏÔʾͼÐεÄaspÒ³Ãæ(pictest.asp)

<%

Function SetForDisplay(field, contentType) 'ÉèÖÃÎļþµÄ´óС¼°MIMEÀàÐÍ

contentType = LCase(trim(contentType))

nFieldSize = field.ActualSize

bytes = field.GetChunk(nFieldSize)

Session("Bytes") = bytes
Session("Type") = contentType
End Function
%>
<%
sql = "select * from product where id=" & request("ID")
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.CursorLocation = 3
strConn = "Driver={};DBQ=" & Server.MapPath("new.mdb")
oRS.Open sql, strConn
SetForDisplay oRS("pic"), "image/gif" '"image/gif" ΪMIMEÀàÐÍ
'¸½£º³£¼ûµÄMIMEÀàÐÍ
'GIFÎļþ  "image/gif"
'BMPÎļþ "image/bmp"
'JPGÎļþ "image/jpeg"
'zipÎļþ "application/x-zip-compressed"
'DOCÎļþ "application/msword"
'Îı¾Îļþ "text/plain"
'HTMLÎļþ "text/html"
'Ò»°ãÎļþ "application/octet-stream"
Set oRS.ActiveConnection = Nothing
%>
<javascript src="theImg.asp"> 'µ÷Óô¦ÀíÒ³Ãæ
<%response.write(Session("Type"))%>
4¡¢×îºó´¦ÀíÒ³Ãæ(theImg.asp)
<%
response.Expires = 0
response.Buffer = True
response.Clear
response.contentType = Session("Type")
response.BinaryWrite Session("Bytes")
Session("Type") = ""
Session("Bytes") = ""
response.End
%>
×¢Ò⣺ҪµÃµ½ÉÏÒ»¸öÒ³ÃæÖеÄÔªËØÖµ£¬ÇëʹÓÃLyfUpload×é¼þµÄRequest·½·¨£¬Ê¹ÓÃRequest.form»áʹµÃ³ÌÐò²»ÄÜÕý³£ÔËÐÐ

- ×÷Õߣº zhouxxxx 2005Äê08ÔÂ22ÈÕ, ÐÇÆÚÒ» 19:06¡¡ »Ø¸´£¨2£© |¡¡ ÒýÓã¨0£© ¼ÓÈ벩²É

ASPÈÕÆÚºÍʱ¼äº¯ÊýʾÀý
º¯Êý Óï·¨ ˵Ã÷ ʾÀý
Now Now() È¡µÃϵͳµ±Ç°µÄÈÕÆÚºÍʱ¼ä Dim MyVar MyVar = Now
'' MyVar °üº¬µ±Ç°µÄÈÕÆÚºÍʱ¼ä¡£
Date Date() È¡µÃϵͳµ±Ç°µÄÈÕÆÚ Dim MyDate MyDate = Date
'' MyDate °üº¬µ±Ç°ÏµÍ³ÈÕÆÚ¡£
Time Time() È¡µÃϵͳµ±Ç°µÄʱ¼ä Dim MyTime MyTime = Time
'' ·µ»Øµ±Ç°ÏµÍ³Ê±¼ä¡£
Year Year(Date) È¡µÃ¸ø¶¨ÈÕÆÚµÄÄê·Ý Dim MyDate, MyYear
MyDate = #October 19, 1962#
''·ÖÅÉÒ»ÈÕÆÚ¡£
MyYear = Year(MyDate)
'' MyYear °üº¬ 1962¡£
Month Month(Date) È¡µÃ¸ø¶¨ÈÕÆÚµÄÔÂ·Ý Dim MyVar MyVar = Month(Now)
'' MyVar°üº¬µ±Ç°Ô¶ÔÓ¦µÄÊý×Ö¡£
Day Day(Date) È¡µÃ¸ø¶¨ÈÕÆÚÊǼ¸ºÅ Dim MyDay MyDay = Day("October 19, 1962")
''MyDay°üº¬ 19¡£
Hour Hour(time) È¡µÃ¸ø¶¨Ê±¼äÊǵڼ¸Ð¡Ê± Dim MyTime, MyHour
MyTime = Now MyHour = Hour(MyTime)
'' MyHour °üº¬´ú±íµ±Ç°Ê±¼äµÄÊýÖµ¡£
Minute Minute(time) È¡µÃ¸ø¶¨Ê±¼äÊǵڼ¸·ÖÖÓ Dim MyVar
MyVar = Minute(Now)
Second Second(time) È¡µÃ¸øÊØʱ¼äÊǵڼ¸Ãë Dim MySec
MySec = Second(Now)
''MySec °üº¬´ú±íµ±Ç°ÃëµÄÊý×Ö¡£
WeekDay WeekDay(Date) È¡µÃ¸ø¶¨ÈÕÆÚÊÇÐÇÆÚ¼¸µÄÕûÊý£¬1±íʾÐÇÆÚÈÕ£¬2±íʾÐÇÆÚÒ»£¬ÒÀ´ËÀàÍÆ Dim MyDate, MyWeekDay
MyDate = #October 19, 1962#
'' ·ÖÅÉÈÕÆÚ
MyWeekDay = Weekday(MyDate)
'' MyWeekDay °üº¬ 6,MyDate ´ú±íÐÇÆÚÎå
DateDiff DateDiff("Var",Var1,Var2)
Var:ÈÕÆÚ»òʱ¼ä¼ä¸ôÒò×Ó£¬ÓÐÈçϲÎÊý£º
yyyy Äê mÔ d ÈÕ wwÐÇÆÚ hСʱ sÃë


Var1:µÚÒ»¸öÈÕÆÚ»òʱ¼ä
Var2:µÚ¶þ¸öÈÕÆÚ»òʱ¼ä£¬±ÈVar1Íí ¼ÆËãÁ½¸öÈÕÆÚ»òʱ¼äµÄ¼ä¸ô DateDiff("d",Date(),#1/1/2005#)
''·µ»ØÀë2005Ôªµ©»¹ÓжàÉÙ
DateDiff("h",Date(),#1/1/2005#)
''·µ»ØÀë2005Ôªµ©»¹ÓжàÉÙСʱ
DateDiff("d",#1/1/2003#,#1/1/2005#)
''·µ»ØÁ½¸öÈÕÆÚÖ®¼äµÄÌìÊý
DateAdd DateDiff("Var",Var1,Var2)
Var:ÈÕÆÚ»òʱ¼ä¼ä¸ôÒò×Ó£º
Var1:ÈÕÆÚ»òʱ¼ä¼ä¸ô±¶Êý
Var2:ÈÕÆÚ»òʱ¼äµÄ»ù×¼ ¶ÔÁ½¸öÈÕÆÚ»òʱ¼ä×÷¼Ó·¨ ÈçÏÂʾÀý½« 95 Äê 1 Ô 31 ÈÕ¼ÓÉÏÒ»¸öÔ£º


NewDate = DateAdd("m", 1, "31-Jan-95")
ÔÚÕâ¸öʾÀýÖУ¬DateAdd ·µ»Ø 95 Äê 2 Ô 28 ÈÕ£¬¶ø²»ÊÇ 95 Äê 2 Ô 31 ÈÕ¡£Èç¹û date Ϊ 96 Äê 1 Ô 31 ÈÕ£¬Ôò·µ»Ø 96 Äê 2 Ô 29 ÈÕ£¬ÕâÊÇÒòΪ 1996 ÊÇÈòÄê¡£


Èç¹û¼ÆËãµÄÈÕÆÚÊÇÔÚ¹«Ôª 100 Äê֮ǰ£¬Ôò»á²úÉú´íÎó¡£


FormatDateTime FormatDateTime(Date,vbShortDate) ת»¯Îª¶ÌÈÕÆÚ¸ñʽ FromatDateTime(Date(),vbLongDate)
"ÒÔ³¤ÈÕÆÚ¸ñʽÏÔʾ
FormatDateTime(Date,vbLongDate) ת»¯Îª³¤ÈÕÆÚ¸ñʽ
FormatDateTime(Date,vbShortTime) ת»¯Îª¶Ìʱ¼ä¸ñʽ
FormatDateTime(Date,vbLongTime) ת»¯Îª³¤Ê±¼ä¸ñʽ

- ×÷Õߣº zhouxxxx 2005Äê08ÔÂ12ÈÕ, ÐÇÆÚÎå 19:55¡¡ »Ø¸´£¨0£© |¡¡ ÒýÓã¨0£© ¼ÓÈ벩²É