ʵÏÖ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±äÁ¿ºó£¬¿ÉÒÔ·¢ÏÖ·þÎñÆ÷ÉϵÄÇëÇóÊýÁ¿»á½µµÍ²»É
Ïà¹ØÎĵµ£º
<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='o ......
Õ⼸ÌìºÃ¶àÈËÎÊÎÒÈçºÎÔÚasp³ÌÐòÖпØÖÆÉãÏñÍ·È¥×¥ÅÄÕÕÆ¬£¬asp¼¼Êõ»¹ÊÇ99ÄêµÄʱºò¿´¹ýÒ»µãµã£¬Ôç¾Í×ÅÃ×·¹³ÔÁË£¬²»¹ý¼ÈÈ»ÓÐÈËÎÊ£¬ÄǾÍÊÇ¿´µÃÆðÔÛ£¬»¨ÁËÒ»¸öÍíÉϵÄʱ¼ä°Ñasp³ÌÐòµ÷ÓÃÉãÏñÍ·ÅÄÕÕµÄÎÊÌâ¸ã¶¨ÁË£¬ÏּǼÈçÏ£¬ÈÃÓÐÀàËÆÐèÇóµÄͬѧ¿ÉÒÔÉÙ×ßЩÍä·¡£
Óõ½µÄ¼¼Êõ£º
1.asp³ÌÐòÖÐ×÷base64±àÂëºÍ½âÂ룬ʹÓõÄÊÇmsxml×é¼þ£ ......
¡¡¡¡Ñ§Ï°Ä¿µÄ£ºÑ§»áÓÃ±íµ¥ÔªËØÏò·þÎñÆ÷´«ËͱäÁ¿£¬È»ºóÏÔʾ±äÁ¿ÔÚ¿Í»§¶ËµÄä¯ÀÀÆ÷¡£
¡¡¡¡Ê×ÏÈ£¬ÈÃÎÒÃÇÀ´¿´Ò»ÏÂDREAMWEAVERµÄ±íµ¥ÔªËØÃ«Ë¢¡£
¡¡¡¡ÏÂÃæÎÒÃÇÀ´Ò»¸öÒ»¸ö¿´±íµ¥ÔªËØ¡£1¡¢Îı¾Óò£¬Õâ¸öÊÇ×î»ù±¾µÄ£¬´«Ë͵ÄÊÇÎı¾ÐÅÏ¢£¬Ò»°ãÓû§Ãû£¬ÃÜÂë¶¼ÒªÓÃÕâ¸ö´«ËÍ£¬²»¹ýÒªÊÇÃÜÂëµÄ»°ÒªÔÚÀàÐÍÀïÃæÑ¡ÔñÃÜÂ룬ÕâÑù¾Í»áÒÔ*´úÌæÏÔʾ³ ......
Ìí¼Ó¡¢É¾³ý¡¢ÐÞ¸ÄʹÓÃ
db.Execute(Sql)ÃüÁîÖ´ÐвÙ×÷
╔----------------╗
¡î Êý¾Ý¼Ç¼ɸѡ ¡î
╚----------------╝
×¢Ò⣺µ¥Ë«ÒýºÅµÄÓ÷¨¿ÉÄÜÓÐÎó(ûÓвâʽ)
Sql = "Select
Distinct
×Ö¶ÎÃû from Êý¾Ý±í"
Distinctº¯Êý£¬²éѯÊý¾Ý¿â´æ±íÄÚ²»Öظ´µÄ¼Ç¼
......
ʹÓÃDreamweaver²âÊÔÁ¬½Ó³É¹¦£¬µ«ÊÇIISÀïÃæÔËÐÐÈ´×ÜÊÇ´íÎó°Ù³ö£¬¿´ÁËÏÂÃæÕâÆª²©ÎÄÎÊÌâ²ÅµÃÒÔ½â¾ö¡¢¡¢¡¢
Ò»°ãÇé¿öÏÂasp¿ÉÒÔÕý³£ÔËÐÐ,µ«Ö»ÒªÁ¬½ÓÊý¾Ý¿â¾ÍÌáʾ,Microsoft JET Database Engine ´íÎó
'80004005',ÎҵĵçÄÔÒòΪÓÃÅú´¦ÀíÇåÀíÎļþ,ËùÒÔ²»ÄÜÔËÐÐÁË£¬ Ö»
1.²é¿´Êý¾Ý¿âÁ¬½ÓÓï¾äûÓз¢ÏÖ´íÎó£»
2.²é¿´Îļþ¼ÐµÄȨÏÞÒÑ ......