150 likes | 274 Views
Internet Information Server. Active Server Pages. InterDev (Visual Studio). VB + HTML. <HTML> <BODY> To jest przykład <% dim termin termin = "01-06-2002" if date >= termin then Response.Write "Termin upłynął!!!" else Response.Write "<A HREF=""abc.asp"">Dalej</A>" end if %>
E N D
Internet Information Server Active Server Pages InterDev (Visual Studio)
VB + HTML <HTML> <BODY> To jest przykład <% dim termin termin = "01-06-2002" if date >= termin then Response.Write "Termin upłynął!!!" else Response.Write "<A HREF=""abc.asp"">Dalej</A>" end if %> </BODY> </HTML>
Inny sposób (bez Response.Write) <HTML><BODY> To jest przykład <% dim termin termin = "01-06-2002" if date >= termin then %> Termin upłynął!!! <% else %> <A HREF="abc.asp">Dalej</A> <% end if %> </BODY></HTML>
ADODB.Recordset Set rs = CreateObject("ADODB.Recordset") rs.Open "SELECT Imie, Nazwisko FROM Pracownik", "uid=uzytkownik;pwd=qwe123;driver={SQL Server};server=abc;database=xyz” dim StrTable StrTable = "<TABLE>" While Not rs.EOF StrTable = StrTable & "<TR>" For i = 0 To 2 StrTable = StrTable & "<TD>" & rs.Fields(i) & "</TD>" Next i rs.MoveNext StrTable = StrTable & "</TR>" Wend StrTable = StrTable & "</TABLE>" Set rs = Nothing
ADODB.Command Set Con = CreateObject("ADODB.Command") Con.ActiveConnection = "uid=uzytkownik;pwd=qwe123;driver={SQL Server};server=abc;database=xyz" Con.CommandText = "DELETE FROM Pracownik" Con.Execute
Formularze HTML <FORM name=f action=abc.asp method=post> [...] </FORM>
INPUT <INPUT type=text name=field1 size=55 maxlength=20 value="Wartosc domyslna"> <INPUT type=checkbox name=field2> <INPUT type=radio name=field3 VALUE=1 CHECKED>Opcja 1 <INPUT type=radio name=field3 VALUE=2>Opcja 2 <INPUT type=radio name=field3 VALUE=3>Opcja 3
TEXTAREA i SELECT <TEXTAREA name=field4 rows=10 cols=65> Blabla </TEXTAREA> <SELECT name=field5> "<OPTION VALUE=0>Nie mam zdania</OPTION> "<OPTION VALUE=1>1</OPTION>" "<OPTION VALUE=2>2</OPTION>" </SELECT>
SUBMIT i RESET <INPUT TYPE="SUBMIT” VALUE="Zapisz"> <INPUT TYPE="RESET” VALUE="Wyczysc">
Metoda GET <FORM name=f action=abc.asp method=get>
Metoda POST <FORM name=f action=abc.asp method=post>
Odbieranie danych W metodzie POST: Request.Form(„nazwa pola”) W metodzie GET: Request.QueryString(„nazwa pola”)
Zmienne sesji Session(„nazwa_zmiennej”) = wartość
Przykład Dim Imie, Nazwisko Imie = Request.Form(„Imie”) Nazwisko = Request.Form(„Nazwisko”) Set Con = CreateObject("ADODB.Command") Con.ActiveConnection = "uid=uzytk;pwd=qwe123;driver={SQL Server};server=abc;database=xyz" Con.CommandText = ”INSERT INTO Osoba (Imie, Nazwisko, WprowadzilID VALUES (‘” & imie & „’,’„ & nazwisko & „’,” & Session(„id”) & „)” Con.Execute
Zabezpieczenie IIS • Service Pack • IIS LockDown • URLScan