showcookies.asp

来自「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」· ASP 代码 · 共 30 行

<%@ Language=VBScript %>
<%

dim ident

ident = "&nbsp;&nbsp;&nbsp;&nbsp;"

function ShowCookies()
	dim item, key, str
	str = ""
	
	for each item in Request.Cookies
		if Request.Cookies(item).HasKeys then
			str = str & "&lt;" & item & "&gt;<BR>"
			for each key in Request.Cookies(item)
				str = str & ident & "&lt;" & key & " value=""" &  Request.Cookies(item)(key)  & """&nbsp;/&gt;<BR>" 
			next
			str = str & "&lt;/" & item & "&gt;<BR>"
		else
			str = str & "&lt;" & item & " value=""" & Request.Cookies(item) & """&nbsp;/&gt;<BR>"
		end if
	next
	ShowCookies = str
end function

Response.Write ShowCookies()

%>