В моем небольшом проекте(веб-страничка) есть код, который должон использоваться на каждой странице проекта, но я так и не могу разобраться как мне сделать эту процедуру доступной из отдельного модуля... приходится вставлять его в обработчик каждой страницы что и неудобно и не правильно... 
пытался засунуть его в отдельный модуль с объявлением прцедуры как Public но тогда он говорит что request, response и session являются "необьявленными"...
хорошо обьявляю :
| Код |
Dim session As System.Web.SessionState.HttpSessionState
Dim response As System.Web.HttpResponse
Dim request As System.Web.HttpRequest
|
компилятор это "съедает" но .NET Framework выдаёт:
В экземпляре объекта не задана ссылка на объект.
Что делать то?
И как правильно?
Помогите чайнику -я давно не програмил а тут уселяся сразу за vb.NET... 
приводю мой код:
| Код |
Sub avatar_cookieng()
Dim Cookieing As HttpCookie
Dim p, ins, k, v As String
Cookieing = request.Cookies.Item("UserInfo")
Try
ins = Cookieing.Values("Registered")
Catch S As System.NullReferenceException
session("Return2") = CStr(request.Url.AbsoluteUri)
response.Redirect("Detect.aspx")
End Try
session("UID") = Cookieing.Values("UserID")
session("UMail") = Cookieing.Values("UserMail")
session("IsRegd") = Cookieing.Values("Registered")
If Cookieing.Values("FloatHead") = "True" Then ' Определяет плавает ли заголовок
session("FloatHead") = "True"
session("BodyStyle") = "scrollbar-face-color : #990099; scrollbar-arrow-color : Yellow; scrollbar-3dlight-color: #9400D3; scrollbar-base-color: #990099;" _
+ " scrollbar-track-color: #B875D8; scrollbar-shadow-color: #9400D3; scrollbar-highlight-color: #8B008B; page: inherit; " _
+ "scrollbar-darkshadow-color: Black; font-family : Verdana, Geneva, Arial, Helvetica, sans-serif; font-size : 12px; overflow: hidden;"
session("MainStyle") = "scrollbar-face-color : #990099; scrollbar-arrow-color : Yellow; scrollbar-3dlight-color: #9400D3; scrollbar-base-color: #990099;" _
+ " scrollbar-track-color: #B875D8; scrollbar-shadow-color: #9400D3; scrollbar-highlight-color: #8B008B; ime-mode: active; bottom: auto; page: inherit;" _
+ "scrollbar-darkshadow-color: Black; position: relative; top: 2px; left: 0px; width: 100%; height: inherit; overflow: auto; text-align: center; quotes: inherit;"
Else
session("FloatHead") = "False"
session("BodyStyle") = "scrollbar-face-color : #990099; scrollbar-arrow-color : Yellow; scrollbar-3dlight-color: #9400D3; scrollbar-base-color: #990099;" _
+ " scrollbar-track-color: #B875D8; scrollbar-shadow-color: #9400D3; scrollbar-highlight-color: #8B008B; " _
+ "scrollbar-darkshadow-color: Black; font-family : Verdana, Geneva, Arial, Helvetica, sans-serif; font-size : 12px; overflow: auto;"
session("MainStyle") = "scrollbar-face-color : #990099; scrollbar-arrow-color : Black; text-align: center;"
End If
If Cookieing.Values("TextWidth") <> Cookieing.Values("null") Then ' Определяет плавает ли заголовок
session("TextWidth") = Cookieing.Values("TextWidth")
Else
session("Return2") = CStr(request.Url.AbsoluteUri)
response.Redirect("Detect.aspx")
End If
Select Case Val(Cookieing.Values("ResX"))
Case Is < 1600
session("BodyStyleFile") = "Texts_0.css"
Case Is >= 1600
session("BodyStyleFile") = "Texts_2.css"
End Select
End Sub
|
 |
