ʵÏÖ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¼¼Êõ»¹ÊÇ99ÄêµÄʱºò¿´¹ýÒ»µãµã£¬Ôç¾Í×ÅÃ×·¹³ÔÁË£¬²»¹ý¼ÈÈ»ÓÐÈËÎÊ£¬ÄǾÍÊÇ¿´µÃÆðÔÛ£¬»¨ÁËÒ»¸öÍíÉϵÄʱ¼ä°Ñasp³ÌÐòµ÷ÓÃÉãÏñÍ·ÅÄÕÕµÄÎÊÌâ¸ã¶¨ÁË£¬ÏּǼÈçÏ£¬ÈÃÓÐÀàËÆÐèÇóµÄͬѧ¿ÉÒÔÉÙ×ßЩÍä·¡£
Óõ½µÄ¼¼Êõ£º
1.asp³ÌÐòÖÐ×÷base64±àÂëºÍ½âÂ룬ʹÓõÄÊÇmsxml×é¼þ£ ......
ÔÎÄÁ´½Ó:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic´úÂë
<%
dim picurl,all_picurl
'½ÔÊÇÈ«¾Ö±äÁ¿:·Ö±ð¶¨ÒåͼƬµÄÁ´½ÓµØÖ·;ËùÓÐÖ¸¶¨Îļþ¼Ð(°üÀ¨Ö¸¶¨Îļþ¼ÐµÄ×ÓÎļþ¼ÐÏÂͼƬurlµØÖ·)
picurl="" &n ......
¡¡IISĬÈϵĴíÎóÒ³ÊǺܲ»ÓѺõģ¬ºÜ¶àÈË¿´µ½Ä¬ÈϵĴíÎóҳʱ¶¼»á˵£ºÍøÕ¾´ò²»¿ªÁË£¡°×°×ËðʧÁËÕⲿ·ÖÁ÷Á¿¡£¶øÈç¹û´íÎóÒ³Ö±½ÓÌø×ªµ½Ê×Ò³ÓÖ¶ÔËÑË÷ÒýÇæºÜ²»ÓѺ㬸㲻ºÃÊ×Ò³»¹»á±»·âµô¡£ËùÒÔ¸ù¾ÝÇé¿ö£¬ÓÐÁ½¸ö·½·¨½â¾öÕâ¸öÎÊÌ⣺
¡¡¡¡Èç¹ûÊDz©¿ÍµÈÄÚÈÝÐ͵ÄÍøÕ¾£¬¿ÉÒÔ·µ»ØÒ»¸ö´øÓÐ404´íÎóµÄËÑË÷¿òÈ÷ÿÍËÑË÷£¬ÈôÊǵç×ÓÉÌÎñÐÍÍøÕ¾ ......
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Éú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨
ÊÕ²Ø
ʹÓÃFSOÉú³É
<%
'ʹÓÃFSOÉú³É
Set fs = CreateObject("Scripting.FileSystemObject")
NewFile=Server.MapPath("ud03/fso.htm")
'н¨ ......