برنامه نویسی asp

در اين مثال با استفاده از مجموعه Server Variables وابسته به شی Request، نوع مرورگر، سيستم عامل و IP ملاقات كننده سايت تشخيص داده می شود. ( در مثال می توان برخی از مقايسه ها را در صورت ضرورت حذف نمود و برنامه را برای موارد خاص نوشت)

 

 

<%
ua = Request.ServerVariables("HTTP_USER_AGENT")
os = Request.ServerVariables("HTTP_UA_OS")
If Instr(ua, "MSIE") Then
 If Instr(ua, "MSIE 5.") Then
  Browser = "Microsoft Internet Explorer 5.x"
 Else

if Instr(ua, "MSIE 4.") Then
  Browser = "Microsoft Internet Explorer 4.x"
 Elseif Instr(ua, "MSIE 3.") Then
  Browser = "Microsoft Internet Explorer 3.x"
  If Instr(ua, "MSIE 3.02") Then
    Browser = "Microsoft Internet Explorer 3.02"
  End If
 Else
  Browser = "Microsoft Internet Explorer"
 End If
ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then
 If Instr(ua, "Mozilla/4") Then
  Browser = "Netscape Navigator 4.x"
 Elseif Instr(ua, "Mozilla/3") Then
  Browser = "Netscape Navigator 3.x"
 Else
  Browser = "Netscape Navigator"
 End If
End If
If Instr(ua, "Windows 95") or Instr(ua, "Win95") Then
 System = "Windows 95"
Elseif Instr(ua, "Windows 98") or Instr(ua, "Win98") Then
 System = "Windows 98"
Elseif Instr(ua, "Windows 3.1") or Instr(os, "Win16") Then
 System = "Windows 3.x/Windows NT 3.x"
Elseif Instr(ua, "NT") or Instr(ua, "NT") Then
 System = "Windows NT"
Elseif Instr(ua, "Mac") Then
 System = "Mac"
 If Instr(ua, "PowerPC") or Instr(ua, "PPC") Then
  System = "Mac PPC"
 Elseif Instr(ua, "68000") or Instr(ua, "68K") Then
  System = "Mac 68K"
 End If
Elseif Instr(ua, "X11") Then
 System = "UNIX"
End If
%>
You are using <%=Browser%><br>
You are using : <%=System%> operating system<br>
Your IP is: <%=Request.ServerVariables("Remote_Addr")%>

 

فايل Global.asa

در فايل Global.asa، می توان اسكريپت هائی را تعريف نمود كه همزمان با بروز يك رويداد ( Event ) فعال شده و يا اقدام به تعريف اشياء Session و Application نمود. امكانات تعريف شده در فايل فوق برای تمامی صفحات تشكيل دهنده يك برنامه ASP قابل دستيابی و استفاده خواهند بود. ضرورت وجود فايل فوق اختياری بوده و در صورت تعريف می بايست در فهرست ريشه ای كه برنامه ASP در آن قرار دارد، استقرار يابد. هر برنامه ASP صرفا می تواند دارای يك فايل Global.asa باشد.

رويدادهای استاندارد در فايل Global.asa
در فايل فوق می توان به اشياء Application و Session گفت كه در زمان آغاز و خاتمه عمليات مربوط به خود چه كارهائی را انجام دهند. در مجموع در فايل فوق چهار نوع رويداد را می توان قرار داد :

• Application_OnStart: رويداد فوق زمانيكه اولين كاربر به اولين صفحه يك برنامه ASP دستيابی پيدا می كند، فعال می گردد.
• Session_OnStart: رويداد فوق هر دفعه كه يك كاربر جديد درخواست اولين صفحه يك برنامه ASP را داشته باشد، فعال می گردد. 
• Session_OnEnd: رويداد فوق هر بار كه كاربری به جلسه كاری خود خاتمه می دهد فعال می گردد. در صورتيكه در يك مدت زمان مشخص و محدود ( پيش فرض بيست دقيقه ) در خواست صفحه ای توسط كاربر واصل نگردد، به جلسه كاری وی خاتمه داد می شود. 
• Application_OnEnd: رويداد فوق پس از اينكه آخرين كاربر به كار خود خاتمه می دهد، فعال می گردد. معمولا رويداد فوق زمانيكه سرويس دهنده وب متوقف می گردد نيز فعال می گردد.

برای هر يك از رويدادهای فوق می توان روال هائی را نوشت كه مسئول برخورد با رويداد مربوطه باشند. اين روال ها درفايل Global.asa قرار می گيرند. چهارچوب كلی فايل فوق كه متضمن خواسته های چهارگانه فوق باشد می تواند بصورت زير باشد:

<script language="vbscript" runat="server">
sub Application_OnStart
    . . .
end sub
sub Application_OnEnd
     . . .
end sub
sub Session_OnStart
    . . .
end sub
sub Session_OnEnd
    . . .
end sub