<%@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,"http://www.eesai.com/"),"'","")
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
%>
