View the code for session and application variables

<% @ Language = "VBScript"%> <% Application ("usernamr") = 1234567Session ("a0123") = "dsad" ##################### ########################################################################################################################### Date: 2003-3-12 23:30 'Memo: Be Care for Diffrent Virtul Path Show Diffrent Session' ##################################################################################################################################################################################################################################### ################################################################################################################################ % "ID =" autonumber1 "bordercolorlight =" # 808080 "bordercolordark =" # ffffff "height =" 37 "bgcolor =" # d6d3ce "> <% DIM sessitem

Response.write "sessionid:" & session.SessionID & "
" Response.write "list of" & session.contents.count & "Items in Session Contents Collection:"

INTITEM = 1 for Each sessitem in session.contents response.write "" if isobject (session.contents (sessitem)) Then response.write "" CSTR (INTITEM) "" Response .Write " SessItem " Response.write "" "session object" "" Else if isarray (session.contents (sessitem)) Then Response.write "" CSTR (INTITEM) "Response.write" " " Array Object " " " " "

For Each Objarray In session.contents (sessitem) response.write "***;" Next Response.write ""

Else Response.write "" CSTR (INTITEM) "Response.write" " SessItem " "Response.write" " CSTR (session .Contents (sessitem) "" end if end if response.write "" INTITEM = INTITEM 1 Next%>

---

List Application

---

<%

INTITEM = 1 for Each Key in Application.Contents

Response.write "

" if isobject (application.contents (intItem)) THEN

Response.write "

" CSTR (INTITEM) "Response.Write"

" CSTR (Key) " Response.Write "

" " Object " " " Else Response.write "

" CSTR (INTITEM) "Response.write"

" CSTR (Key) " Response.Write "

" CSTR (Application.Contents (INTITEM)) "" end if INTITEM = INTITEM 1 Response.write "" NEXT %> 转载请注明原文地址:https://www.9cbs.com/read-132287.html 9cbs New Post(0)