ASP中的本地缓存localstorage的应用示例

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%

'获取参数----0

dim g_urs,g_urr,g_u0,g_u1,g_u2,g_u3,g_u4,g_u5

g_urs=Request.ServerVariables("QUERY_STRING")

g_urs=replace(replace(g_urs,u_gg,"/"),"'","")

g_urr=split(g_urs&"////////","/")

g_u0=g_urr(0)

g_u1=g_urr(1)

g_u2=g_urr(2)

g_u3=g_urr(3)

g_u4=g_urr(4)

g_u5=g_urr(5)

'获取参数----1

if g_u0=7 then

Response.Write g_u1

else

Function aistorage(aifry,aifty,aifnm,aifstr,aifdy)

dim aisdjs

if aifry="0" then

aifry="sessionStorage"

else

aifry="localStorage"

end if

if aifty="0" then'del

if aifnm="0" or aifnm="" then

aisdjs=aifry&".clear();"

else

aisdjs=aifry&".removeItem('"&aifnm&"');"

end if

elseif aifty="1" and aifnm<>"" then'edit

if aifstr="" then

aisdjs=aifry&".removeItem('"&aifnm&"');"

else

aisdjs="if("&aifry&"."&aifnm&"){"&aifry&".setItem('"&aifnm&"','"&aifstr&"');}else{"&aifry&"."&aifnm&"='"&aifstr&"'}"

end if

elseif aifty="2" and aifnm<>"" then'read

aisdjs="document.write("&aifry&".getItem('"&aifnm&"'));"

elseif aifty="3" and aifnm<>"" and aifstr<>"" then'inser value

if aifdy<>"" then

aisdjs="document.getElementById('"&aifstr&"')."&aifdy&"="&aifry&".getItem('"&aifnm&"');"

else

aisdjs="document.getElementById('"&aifstr&"').value="&aifry&".getItem('"&aifnm&"');"

end if

elseif aifty="4" and aifnm<>"" and aifstr<>"" then'inser input

aisdjs="document.write(""<input type=\""hidden\"" id=\"""&aifstr&"\"" name=\"""&aifstr&"\"" value=\""\"">"");document.getElementById('"&aifstr&"').value="&aifry&".getItem('"&aifnm&"');"

end if

'if aisdjs<>"" then aistorage="<script>"&aisdjs&"</sc"&"ript>"

End Function

Response.Write(aistorage(g_u0,g_u1,g_u2,g_u3,g_u4))

end if

%>