Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ʵÏÖASP»º´æ¼¼Êõ

1.·þÎñÆ÷¶Ë»º´æ
    ListBox=Application("ListBox")
    If ListBox<>"" then
        Response.Write "±¾´Îͨ¹ý·þÎñÆ÷»º´æ¶ÁÈ¡Êý¾Ý:<BR>"
    End If
    If ListBox="" then
        Response.Write "±¾´ÎΪµÚÒ»´Î¶ÁÈ¡Êý¾Ý£¬´ÓÊý¾Ý¿âÖжÁÈ¡:<BR>"
        Response.Write "ÁíÍâ´ò¿ª´°¿Ú¶ÁÈ¡»òÕßË¢ÐÂÒ³Ãæ¼´¿ÉÑéÖ¤´Ó·þÎñÆ÷»º´æÖжÁÈ¡Êý¾Ý<BR>"
        Set Conn=Server.CreateObject("ADODB.Connection")
        Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Map("Book.mdb")
        Conn.Open
        Set rs=Server.CreateObject("ADODB.Recordset")
        sql="select * from book"
        set rs=conn.Execute(sql)
        ListBox="<select>"
        'ÓÃÒ»¸öÑ­»·°ÑRecordset¸³Öµ¸øListBox±äÁ¿
        Do Until rs.Eof
             ListBox=ListBox & "<option>" & rs("book_press") & "</option>"
             rs.MoveNext
        Loop
        rs.Close
        Set rs=nothing
        ListBox=ListBox & "</select>"
        Application("ListBox")=ListBox
    End If   
    Reponse.Write Application("ListBox")
    ÓÃÁ˼òµ¥µÄApplication±äÁ¿ºó£¬¿ÉÒÔ·¢ÏÖ·þÎñÆ÷ÉϵÄÇëÇóÊýÁ¿»á½µµÍ²»É


Ïà¹ØÎĵµ£º

ʵÏÖasp³ÌÐòµ÷ÓÃÉãÏñÍ·²¢¿ØÖÆÉãÏñÍ·½øÐÐÅÄÕÕ

Õ⼸ÌìºÃ¶àÈËÎÊÎÒÈçºÎÔÚasp³ÌÐòÖпØÖÆÉãÏñÍ·È¥×¥ÅÄÕÕÆ¬£¬asp¼¼Êõ»¹ÊÇ99ÄêµÄʱºò¿´¹ýÒ»µãµã£¬Ôç¾Í×ÅÃ×·¹³ÔÁË£¬²»¹ý¼ÈÈ»ÓÐÈËÎÊ£¬ÄǾÍÊÇ¿´µÃÆðÔÛ£¬»¨ÁËÒ»¸öÍíÉϵÄʱ¼ä°Ñasp³ÌÐòµ÷ÓÃÉãÏñÍ·ÅÄÕÕµÄÎÊÌâ¸ã¶¨ÁË£¬ÏּǼÈçÏ£¬ÈÃÓÐÀàËÆÐèÇóµÄͬѧ¿ÉÒÔÉÙ×ßЩÍä·¡£
Óõ½µÄ¼¼Êõ£º
1.asp³ÌÐòÖÐ×÷base64±àÂëºÍ½âÂ룬ʹÓõÄÊÇmsxml×é¼þ£ ......

asp»ñȡһ¸öÎļþ¼Ð¼°Æä×ÓÎļþ¼ÐϵÄËùÓÐͼƬµØÖ·

Ô­ÎÄÁ´½Ó:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic´úÂë
<%   
dim picurl,all_picurl   
 
'½ÔÊÇÈ«¾Ö±äÁ¿:·Ö±ð¶¨ÒåͼƬµÄÁ´½ÓµØÖ·;ËùÓÐÖ¸¶¨Îļþ¼Ð(°üÀ¨Ö¸¶¨Îļþ¼ÐµÄ×ÓÎļþ¼ÐÏÂͼƬurlµØÖ·)   
 
picurl=""   &n ......

ASP·µ»Ø´íÎóÒ³ºÍhttp״̬²éѯ¹¤¾ß

¡¡IISĬÈϵĴíÎóÒ³ÊǺܲ»ÓѺõģ¬ºÜ¶àÈË¿´µ½Ä¬ÈϵĴíÎóҳʱ¶¼»á˵£ºÍøÕ¾´ò²»¿ªÁË£¡°×°×ËðʧÁËÕⲿ·ÖÁ÷Á¿¡£¶øÈç¹û´íÎóÒ³Ö±½ÓÌø×ªµ½Ê×Ò³ÓÖ¶ÔËÑË÷ÒýÇæºÜ²»ÓѺ㬸㲻ºÃÊ×Ò³»¹»á±»·âµô¡£ËùÒÔ¸ù¾ÝÇé¿ö£¬ÓÐÁ½¸ö·½·¨½â¾öÕâ¸öÎÊÌ⣺
¡¡¡¡Èç¹ûÊDz©¿ÍµÈÄÚÈÝÐ͵ÄÍøÕ¾£¬¿ÉÒÔ·µ»ØÒ»¸ö´øÓÐ404´íÎóµÄËÑË÷¿òÈ÷ÿÍËÑË÷£¬ÈôÊǵç×ÓÉÌÎñÐÍÍøÕ¾ ......

asp¶ÁÈ¡word ÎĵµÄÚÈÝת»»Îª¶þ½øÖÆÊý¾ÝÁ÷

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  ......

ASPÉú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨



 
ASPÉú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨
ÊÕ²Ø



ʹÓÃFSOÉú³É
<%
'ʹÓÃFSOÉú³É
Set fs = CreateObject("Scripting.FileSystemObject")
NewFile=Server.MapPath("ud03/fso.htm")
'н¨ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ