Chào các bạn! Vì nhiều lý do từ nay Truyen2U chính thức đổi tên là Truyen247.Pro. Mong các bạn tiếp tục ủng hộ truy cập tên miền mới này nhé! Mãi yêu... ♥
  1. Home
  2. /
  3. Ngẫu Nhiên
  4. /
  5. TT HCM
  6. /
  7. TT HCM

TT HCM

Trước Sau

<body>

<form>

  <label>

  <input>

  </label>

  <label>

  <input>

  </label>

</form>

<% dim rs,conn

    set conn = server.createObject("ADODB.connection")

    stringconn = "provider = microsoft.jet.oledb.4.0; data source ="&server.MapPath("DataKTHT.mdb")& ";"

    conn.open stringconn

    set rs = server.CreateObject("ADODB.recordset")

    ma = request.Form("txttim")

    sql = "select * from Mon_Hoc where MaMon LIKE  '%"&ma&"%' "

    rs.open sql,conn

%>

<table>

  <tr>

    <td>M&atilde; M&ocirc;n </td>

    <td>T&ecirc;n M&ocirc;n </td>

    <td>S&#7889; &#272;VHT </td>

  </tr>

 <% do while not rs.eof%>

  <tr>

    <td><%=rs("MaMon")%></td>

    <td><%=rs("TenMon")%></td>

    <td><%=rs("SoDVHT")%></td>

  </tr>

 <%

 rs.movenext

 loop

 rs.close

 %>

</table>

</body>

Bạn đang đọc truyện trên: Truyen247.Pro

Trước Sau
Tags: #131