ASP/ADO/VBScript案例 - W3xue在线HTML/CSS/JS运行工具

<html>
<body>

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))

set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT DISTINCT Country FROM Customers ORDER BY Country"
rs.Open sql,conn

country=request.form("country")

%>

<form method="post">
Choose Country <select name="country">
<%  do until rs.EOF
    response.write("<option")
    if rs.fields("country")=country then
      response.write(" selected")
    end if
    response.write(">")
    response.write(rs.fields("Country"))
    rs.MoveNext
loop
rs.Close
set rs=Nothing %>
</select>
<input type="submit" value="Show customers">
</form>

<%
if country<>"" then
   sql="SELECT Companyname,Contactname,Country FROM Customers WHERE country='" & country & "'"
   set rs=Server.CreateObject("ADODB.Recordset")
   rs.Open sql,conn
%>
   <table width="100%" cellspacing="0" cellpadding="2" border="1">
   <tr>
     <th>Companyname</th>
     <th>Contactname</th>
     <th>Country</th>
   </tr>
<%
do until rs.EOF
   response.write("<tr>")
   response.write("<td>" & rs.fields("companyname") & "</td>")
   response.write("<td>" & rs.fields("contactname") & "</td>")
   response.write("<td>" & rs.fields("country") & "</td>")
   response.write("</tr>")
   rs.MoveNext
loop
rs.close
conn.Close
set rs=Nothing
set conn=Nothing%>
</table>
<%  end if %>

</body>
</html>

​x
   sql="SELECT Companyname,Contactname,Country FROM Customers WHERE country='" & country & "'"
 
<html>
<body>
​
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
​
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT DISTINCT Country FROM Customers ORDER BY Country"
rs.Open sql,conn
​
country=request.form("country")
​
%>
​
<form method="post">
Choose Country <select name="country">
<%  do until rs.EOF
    response.write("<option")
    if rs.fields("country")=country then
      response.write(" selected")
    end if
    response.write(">")

W3xueDotComlthtmlW3xueDotComgt W3xueDotComltheadW3xueDotComgt W3xueDotComltSCRIPT type="text/javascript" src="/js/jquery.js"W3xueDotComgtW3xueDotComlt/SCRIPTW3xueDotComgt W3xueDotComltscriptW3xueDotComgt function show(){ var sid=$("#slct1").val(); var shtml=$("#"+sid).html(); $("#s").html(shtml); } W3xueDotComlt/scriptW3xueDotComgt W3xueDotComlt/headW3xueDotComgt W3xueDotComltbodyW3xueDotComgt W3xueDotComltform method="post"W3xueDotComgt Choose Country W3xueDotComltselect name="country" id="slct1"W3xueDotComgt W3xueDotComltoption value="c"W3xueDotComgtChinaW3xueDotComltoption value="f"W3xueDotComgtFinlandW3xueDotComltoption value="u"W3xueDotComgtUSA W3xueDotComlt/selectW3xueDotComgt W3xueDotComltinput type="button" value="Show customers" onclick="show()"W3xueDotComgt W3xueDotComlt/formW3xueDotComgt W3xueDotComltdiv id="s"W3xueDotComgt W3xueDotComlt/divW3xueDotComgt W3xueDotComltdiv id="c" style="display:none"W3xueDotComgt W3xueDotComlttable width="100%" cellspacing="0" cellpadding="2" border="1"W3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComltthW3xueDotComgtCompanynameW3xueDotComlt/thW3xueDotComgt W3xueDotComltthW3xueDotComgtContactnameW3xueDotComlt/thW3xueDotComgt W3xueDotComltthW3xueDotComgtCountryW3xueDotComlt/thW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtBAIDU, IncW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtLi YanHongW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtChinaW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgt W3xueDotComlt/tableW3xueDotComgtW3xueDotComlt/divW3xueDotComgt W3xueDotComltdiv id="f" style="display:none"W3xueDotComgt W3xueDotComlttable width="100%" cellspacing="0" cellpadding="2" border="1"W3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComltthW3xueDotComgtCompanynameW3xueDotComlt/thW3xueDotComgt W3xueDotComltthW3xueDotComgtContactnameW3xueDotComlt/thW3xueDotComgt W3xueDotComltthW3xueDotComgtCountryW3xueDotComlt/thW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtNokia CorporationW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtOlli-Pekka KallasvuoW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtFinlandW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgt W3xueDotComlt/tableW3xueDotComgtW3xueDotComlt/divW3xueDotComgt W3xueDotComltdiv id="u" style="display:none"W3xueDotComgt W3xueDotComlttable width="100%" cellspacing="0" cellpadding="2" border="1"W3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComltthW3xueDotComgtCompanynameW3xueDotComlt/thW3xueDotComgt W3xueDotComltthW3xueDotComgtContactnameW3xueDotComlt/thW3xueDotComgt W3xueDotComltthW3xueDotComgtCountryW3xueDotComlt/thW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtGoogle, Inc.W3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtLarry PageW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtUSAW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgtW3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtSony Corporation of AmericaW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtKazuo HiraiW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtUSAW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgtW3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtApple Computer, Inc.W3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtSteven JobsW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtUSAW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgtW3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtCanon USA, Inc.W3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtTsuneji UchidaW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtUSAW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgt W3xueDotComlt/tableW3xueDotComgt W3xueDotComlt/divW3xueDotComgt W3xueDotComlt/bodyW3xueDotComgt W3xueDotComlt/htmlW3xueDotComgt