阿赛·游梦鱼·郭言赛·阿赛工作室
技术分类
推荐技术
近期热门技术

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
    %>
    Powered by eesai.Com ©  2018  阿赛工作室 All Rights Reserved
    本网站由 阿赛工作室 提供源代码技术支持.  备案号:苏ICP备08114364号

    网站地图建议反馈MapRssXml回到顶部