|
1. feladat: |
Bezár |
|
<HTML><HEAD><TITLE></TITLE></HEAD>
<BODY>
<%
Response.Write("<center>Hello World!</center>")
%>
</BODY>
</HTML> |
|
2. feladat: |
Bezár |
|
<%@ Language=VBScript %> |
|
3. feladat: |
Bezár |
|
<%sTxt="Hello Word"%>
<INPUT type="textbox" value="<% =sTxt %>"> |
|
4. feladat: |
Bezár |
|
<% For i=1 To 10 %>
<center>ASP segédanyagok</center>
<% Next %>
|
|
5. feladat: |
Bezár |
|
<%x="16"%>
<% If (x mod 2)=0 Then %>
<center>Páros</center>
<% Else %>
<center>Páratlan</center>
<% End If %>
|
|
6. feladat: |
Bezár |
|
<%
If Len( Request.QueryString("nev") ) Then
Response.Write( Request.QueryString("nev") )
Else
Response.Write("Kérem adja meg a nevét!")
End If
%> |
|
7. feladat: |
Bezár |
|
<%
If Len( Request.Form("mezo1") ) Then
Response.Write( Request.Form("mezo1") )
Else
Response.Write("Kérem adja meg a nevét!")
End If
%> |
|
8. feladat: |
Bezár |
|
<%
Response.Cookies("nev") = "ertek"
%> |
|
9. feladat: |
Bezár |
|
<%
Response.Write(Request.Cookies("nev"))
%> |
|
10. feladat: |
Bezár |
|
<%
Response.Cookies("nev").Expires = "31-Dec-2005"
%> |
|
11. feladat: |
Bezár |
|
<%
Parancs="Insert into diakadatok (nev,kezd_ev,osztalykod)”&_
Values('Nagy Gabi','1989','1989/B')"
Conn.Execute(Parancs)
%> |
|
12. feladat: |
Bezár |
|
<%
Parancs="Select * from diakadatok"
Set Lista=Conn.Execute(Parancs)
%>
<table>
<tr>
<td>Név</td>
<td>Kezdési év</td>
<td>Osztály kód</td>
<%Do While Not Lista.Eof%>
<tr>
<td><%=lista(0)%></td>
<td><%=lista(1)%></td>
<td><%=lista(2)%></td>
<%Lista.Movenext%><%Loop%>
</table>
|
|
13. feladat: |
Bezár |
|
<%
Parancs="UPDATE diakadatok SET nev='Nagy Gábor' WHERE nev = 'Nagy Gabi'"
Conn.Execute(Parancs)
%> |
|
14. feladat: |
Bezár |
|
<%
Parancs="DELETE FROM diakadatok WHERE nev = 'Nagy Gábor' "
Lista=Conn.Execute(Parancs)
%> |
|
15. feladat: |
Bezár |
|
<%
Parancs="Select * From tanarok"
Set Lista=Conn.Execute(Parancs)
%>
<select>
<%Do While Not Lista.Eof%>
<option value="<%=lista(1)%>"><%=lista(0)%></option>
<%Lista.Movenext%> <%Loop%>
</select>
|
|
16. feladat: |
Bezár |
|
<%
Parancs="Select * from diakadatok Where osztalykod='2000/B' "
Set Lista=Conn.Execute(Parancs)
%>
<table>
<tr>
<td>Név</td>
<td>Kezdési év</td>
<td>Osztály kód</td>
<%Do While Not Lista.Eof%>
<tr>
<td><%=lista(0)%></td>
<td><%=lista(1)%></td>
<td><%=lista(2)%></td>
<%Lista.Movenext%><%Loop%>
</table>
|
|
17. feladat: |
Bezár |
|
<%
Parancs="SELECT diakadatok.nev, diakadatok.osztalykod, tanarok.nev
"&_
"FROM diakadatok INNER JOIN tanarok ON diakadatok.osztalykod =
tanarok.osztalykod"
Set Lista=Conn.Execute(Parancs)
%> |