Пример использования Sub и Function в ASP (чтение и запись куки)!!!
| Код |
<%
Function getCookie(whichVariable As string)
' чтения cookie на стороне сервера
' (p.s. "As string" советую не писать=)))) я написал, чтоб ясно что нужно в водить, как входящее значение функции)!!!
cookie=request.cookies
VarPosition=Instr(cookie, whichVariable&"=")
If VarPosition=0 then
GetCookie="no"
' возращаем "no", если нет значений у читаемой cookie-переменной whichVariable, а за тем выходим из функции(следующая строка)!
Exit Function
Else
StartVarPosition=VarPosition+Len(whichVariable&"=")
EndVarPosition=Instr(StartVarPosition, cookie, ";")
If EndVarPosition=0 then EndVarPosition=Len(cookie)+1
getCookie=Mid(cookie, StartVarPosition, EndVarPosition-StartVarPosition)
' возращаем само значение cookie-переменной whichVariable!
End If
End Function
Sub setCookie(whichVariable) ' записываем какашки))))
' т.к. на стороне сервера куки доступны для чтения, то пишем следующие)))
response.write "<script language="&chr(34)&"javascript"&chr(34)&">document.cookie="&chr(34)&"whichVariable"&chr(34)&"</script>"
' записываеться в поток HTML!!!
End Sub
%>
|
Оптимизированнный вариант setCookie)))
| Код |
<%
Sub setCookie(whichVariable) ' записываем какашки))))
%>
<script language="javascript">document.cookie="<% response.write whichVariable %>"</script>
<%
End Sub
%>
|
А вообще, любой программерЪ долженЪ уметь импровизировать и анализировать, что те советую поделать, ибо эти функции у меня на сайте, чуть по другому написаны))) Так те задачка на эксперемент! Как можно понять, входные данные в запись куки в процедуре setCookie не может содержать двойную ковычку и "//", не трудно догадаться почему... вот советую поэксперементировать с используемыми функциями в функции getCookie (а именно mid и instr) для написания дополнительного кода, для того, чтоб можно было в куки записать и те символы, которые нельзя в приведенном тебе коде))) (используй хотя б циклы, это те подсказка, не говоря про рекурсию  )
============================================
P.s. а потом в тексте asp-страницы пиши вызов функций и процедур (но после их обЪявленя!) как и в простом VBA)))))))))
| Код |
<%
If getCookie("login")<>"no" then
%>
<!--html хотя не обязательно!-->
<%
Else
setCookie("time="&now())
End If
%>
|
|