Praca – Ankiety,Testy Sprawdzające
Kolejny raz otrzymałem do wypełnienia ankietę od firmy , która chciałby podjąć współpracę ze mną. Ostatnio otrzymałem sporo takich ankiet do wypełnienia , ale jakoś to zainteresowanie współpracą gaśnie… Znając życie i realia Polski to “łowcy głów” wymieniają się swoimi zdobyczami . Na szczęście ta oferta nie pochodzi z Polski. Poza standartowymi pytaniami w stylu “od kiedy mógłby Pan… ?”, “Czy ma Pan rodzinę…?” najciekawsze są zawsze testy sprawdzające wiedzę przytoczę to co mam obecnie do zaimplementowania. Jak w swoim CV napisałem ,że pisałem w Javie w PHP no i gdzieś tam po drodze w ASP więc dostałem następujące zadania:
Zadanie #1:
How using checkboxes to update multiple database entries – ASP implementation .
Tak naprawdę to nie za bardzo “czuję się” dobrze w tworzeniu w ASP ( ASP NET ) , ale uważam ,że należy odpisać na wszelkiego rodzaju przesyłane propozycje pracy ( współpracy ) nigdy nic nie wiadomo – mój znajomy zmieniła pracę i otoczenie z Polskich klimatów na Norweskie i nie narzeka inny jeszcze przeprowadził się na Islandię i bardzo sobie chwali. Ale ja na razie “udzielam” się Holendrom i też nie narzekam.
Najprościej będzie chyba tak:
<%@ Language=VBScript %>
<%option explicit%>
<%Response.Buffer = false%>
<%
dim iNum 'the number of checkboxes to generate
dim strAll 'a comma delinated list of all the values
dim i 'a loop counter
dim arrAll 'an array which will hold all of the values
dim arrVals 'an array to hold all checked values
dim arrInactive() 'an array to hold all unchecked values
dim bThere 'a boolean match variable
dim IDX 'an index variable
dim strSql 'the resulting SQL string
dim z 'a loop counter
iNum = Request.QueryString ("numBoxes") ‘Test :Use - URL - Box.asp?numBoxes=9 - Ok! work
if iNum = "" then
iNum = 10
end if
if Request.Form = "" then
strAll = ""
%>
<form name="form1" action="Box.asp" method="post">
<table><%
for i = 1 to iNum
%><tbody>
<tr>
<td>Checkbox<%=i%>:</td>
<td></td>
</tr>
<% 'append the id to strAll
strAll = strAll & i & ","
next
%>
<tr>
<td colspan="2"></td>
</tr>
</tbody></table>
<%
'trim off the trailing ","
strAll = left(strAll, (len(strAll) -1))
%></form><%
else
'get the array with all of the checkbox id's arrAll = split(Request.Form ("allBoxes"), ",")
'get the array with the id's that were ticked
arrVals = split(Request.Form ("chkBox"), ",")
strSql = ""
strSql = strSql & "UPDATE aTable SET status = 4 WHERE "
'loop through the checkboxes which were ticked
for i = 0 to ubound(arrVals)
if i = 0 then
strSql = strSql & "id = "& arrVals(i)
else
'only add the " AND " if this is not the first value
strSql = strSql & " AND id = "& arrVals(i)
end if
next
Response.Write strSql & "
<hr />"%>
Zadanie #2.
1 = “I”
5 = “V”
19 = “XIX”
101 = “CI”
Zamieszczony w: Ogólna, Praca - Zawsze Coś Nowego.