ʵÏÖ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±äÁ¿ºó£¬¿ÉÒÔ·¢ÏÖ·þÎñÆ÷ÉϵÄÇëÇóÊýÁ¿»á½µµÍ²»É
Ïà¹ØÎĵµ£º
1.Èç¹ûÄúµÄ²Ù×÷ϵͳΪWindows 98£¬ÇëÔËÐÐ Windows98µÄ°²×°¹âÅÌ¡£ÔÚÆäAdd-ons\pwsĿ¼ÏÂÕÒµ½pwsµÄ°²×°³ÌÐò£¬ÔËÐа²×°¼´¿É
2.Èç¹û²Ù×÷ϵͳΪ Windows 2000 ÒÔÉÏ£¬¿ÉÒÔ°´Í¼4.1.1µÄ·½·¨°²×° IIS£º
´ò¿ª¡¾¿ØÖÆÃæ°å¡¿£¬ÕÒµ½ ¡¾Ìí¼Ó/ɾ³ý³ÌÐò¡¿→¡¾Ìí¼Ó/ɾ³ýWINDOWS×é¼þ¡¿£¬
µ¯³ö ¡¾Windows ×é¼þÏòµ¼¡¿ £¬Ñ¡Ôñ ¡¾Internet ......
<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
<!--#include file="conn.asp"-->
<%
if request.Form("username")="" or request.form("password")="" then
response.Write("<script>alert('ÄúºÃ£¬²»ÄÜΪ¿Õ
');location.href='index.html';</script>")
end if
%>
<%
di ......
Õ⼸Ììѧϰ¶¯Ì¬ÍøÕ¾µÄÖÆ×÷£ºASP¡£ÓÉÓÚÀÏʦ½²µÄºÜÈÏÕæ£¬ºÜÏêϸ£¬¿Î³ÌÄÜÌý¶®£¬×Ô¼ºÒ²ÂòÁËÒ»±¾¹ØÓÚASPµÄÊé¼®£¬ASPµÄһЩ¹¦ÄܵÄʵÏÖ£¬Ôõô×ö³öÀ´ÄÜ¿´µÄ²î²»¶à£¬¿É¾ÍÊÇ×öµÄʱºòºÃ²î¾¢£¬²»ÊÇij¸öÓ¢Óïµ¥´Ê²»»áд£¬¾ÍÊÇÖØ¸´´íÎó³öÏÖ£¬Éî¿ÌµÄÃ÷°×£¬×öÍøÕ¾ÔÀ´ÕâôÄÑ£¬²»½öÐèÒªÑϽ÷µÄÂ߼˼άÄÜÁ¦£¬¶ø ......