Asp ADODB.Stream¶ÔÏóµÄ·½·¨ÊôÐÔ
Adodb.StreamÊÇADOµÄStream¶ÔÏó,Ìṩ´æÈ¡¶þ½øÖÆÊý¾Ý»òÕßÎı¾Á÷,´Ó¶øʵÏÖ¶ÔÁ÷µÄ¶Á¡¢Ð´ºÍ¹ÜÀíµÈ²Ù×÷.
ÓÐÏÂÁз½·¨£º
Cancel ·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.Cancel
˵Ã÷£ºÈ¡ÏûÖ´ÐйÒÆðµÄÒì²½ Execute »ò Open ·½·¨µÄµ÷Óá£
Close ·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.Close
£º¹Ø±Õ¶ÔÏñ
CopyTo ·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.CopyTo(destStream,[CharNumber])
˵Ã÷£º½«¶ÔÏñµÄÊý¾Ý¸´ÖÆ£¬destStreamÖ¸ÏòÒª¸´ÖƵĶÔÏñ£¬CharNumberΪ¿ÉÑ¡²ÎÊý£¬Ö¸Òª¸´ÖƵÄ×Ö½ÚÊý£¬²»Ñ¡ÎªÈ«²¿¸´ÖÆ¡£
Flush
·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.Flush
˵Ã÷£º
LoadfromFile ·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.LoadfromFile(FileName)
˵Ã÷:½«FileNameÖ¸¶¨µÄÎļþ×°Èë¶ÔÏñÖÐ,²ÎÊýFileNameΪָ¶¨µÄÓû§Ãû¡£
Open ·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.Open(Source,[Mode],[Options],[UserName],[Password])
˵Ã÷£º´ò¿ª¶ÔÏñ£¬
²ÎÊý˵Ã÷£ºSourece ¶ÔÏñÔ´£¬¿É²»Ö¸¶¨
Mode Ö¸¶¨´ò¿ªÄ£Ê½£¬¿É²»Ö¸¶¨£¬¿ÉÑ¡²ÎÊýÈçÏ£º
adModeRead =1
adModeReadWrite =3
adModeRecursive
=4194304
adModeShareDenyNone =16
adModeShareDenyRead =4
adModeShareDenyWrite =8
adModeShareExclusive =12
adModeUnknown =0
adModeWrite =2
Options
Ö¸¶¨´ò¿ªµÄÑ¡Ï¿É²»Ö¸¶¨£¬¿ÉÑ¡²ÎÊýÈçÏ£º
adOpenStreamAsync =1
adOpenStreamfromRecord =4
adOpenStreamUnspecified=-1
UserName Ö¸¶¨Óû§Ãû£¬¿É²»Ö¸¶¨¡£
Password Ö¸¶¨Óû§ÃûµÄÃÜÂë
Ïà¹ØÎĵµ£º
Ò»¡¢ÕâÑùÅäÖõĺô¦£¿
²»Öª´ó¼ÒÓÐûÓÐÌý¹ýÅÔ×¢£¿ÎÒ¼òµ¥µÄ½âÊÍһϰɣºÓиöÈËÏëºÚµôAÕ¾µã£¬µ«ÕÒÀ´ÕÒÈ¥¶¼Ã»·¢ÏÖ¿ÉÀûÓõÄ©¶´£¬ÎÞÒâÖÐËû·¢ÏÖÓëAͬ·þÎñÆ÷ÉÏ»¹ÓиöBÕ¾µã£¬²¢ÇÒÔÚBÕ¾µãÉÏÕÒµ½ÁË¿ÉÀûÓõÄ©¶´£¬ÓÚÊÇËû½«Ä¾Âí´ÓBÕ¾ÖÐÉÏ´«ÖÁ·þÎñÆ÷£¬Èç¹û·þÎñÆ÷ȨÏÞÅäÖò»µ±£¬ÄÇôÏÖÔÚËû¾Í¿ÉÒÔºÚµô·þÎñÆ÷ÉϵÄËùÓÐÕ¾µãÁË£¡Èç¹ûÎÒÃÇΪà ......
<%
for i=1 to rs.recordCount '±äÁ¿i´Ó1Ñ»·µ½Êý¾Ý¿âÖеÄÈ«²¿¼Ç¼Êý
if (i mod 1 =1) then 'ÿ¸ötr¼´Ã¿ÐÐÏÔʾ1¸ö¼Ç¼,¿É¸ù¾ÝÐèÒª×ÔÐÐÐÞ¸Ä, ½«×ó±ßµÄ1ÐÞ¸ÄΪ2¼´ÏÔʾÁ½ÐС£
response.write "<tr align='center'>"
end if
%>
´Ë´¦ÎªÒªÑ»·µÄÄÚÈÝ
<%if (i mod 1 = 0) then ......
ÔÎÄÁ´½Ó:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic´úÂë
<%
dim picurl,all_picurl
'½ÔÊÇÈ«¾Ö±äÁ¿:·Ö±ð¶¨ÒåͼƬµÄÁ´½ÓµØÖ·;ËùÓÐÖ¸¶¨Îļþ¼Ð(°üÀ¨Ö¸¶¨Îļþ¼ÐµÄ×ÓÎļþ¼ÐÏÂͼƬurlµØÖ·)
picurl="" &n ......
+++ ASP.NET»º´æÖеÄÊý¾ÝÊDz»Îȶ¨µÄ£¬²»»á±»ÓÀ¾ÃµØ´æ´¢£¬¿ÉÄÜ»áÓÉÓÚÒÔÏÂÔÒòÖ®Ò»¶ø´Ó»º´æÖб»×Ô¶¯ÒƳý£º
1) »º´æÂúÁË
2) »º´æÏîÒѾ¹ýÆÚ
3) »º´æÒÀÀµµÄÏî¸Ä±äÁË
+++ ³ýÁË¿ÉÒÔ×Ô¶¯ÒƳý»º´æÏîÍ⣬Äã¿ÉÒÔÏÔʾÒƳý»º´æÏî¡£ÁíÍ⣬µ±ÄãÓÃInsert·½·¨ºÍAdd·½·¨Ïò»º´æÖÐÌí¼ÓµÄ»º´æÏîÒѾ´æÔÚʱ£¬ÄÇô£¬ÔÀ´µÄ»º´æÏ±»×Ô¶¯É¾³ý¡ ......
Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite  ......