📄 admin_cache.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td><%=EL_Common.ServerHTMLEncode(CacheName)%></td>
    <td>
	<%
	  If IsArray(CacheValue) Then
	     Response.Write EL_Common.GetTopic(Array2String(CacheValue), 60)
	  Else
	     Response.Write EL_Common.GetTopic(CacheValue, 60)
	  End If
	%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(CacheDateTime)%></td>
    <td align="center" nowrap><a href="Admin_Cache.asp?Action=Show&CacheName=<%=CacheName%>">查看</a> | <a href="Admin_Cache.asp?Action=Delete&CacheName=<%=CacheName%>">删除</a></td>
  </tr>
  <%
    Next
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center"><input type="button" name="Submit2" value="清除所有缓存" onClick="location.href='Admin_Cache.asp?Action=Clear'"></td>
  </tr>
</table>
<%
EL_Common.ShowScriptError()
End Sub


Sub ShowCache()
On Error Resume Next
Dim CacheName, CacheValue, CacheDateTime, CacheExpirse
CacheName = EL_Common.ELRequest("CacheName", 1)
If CStr(Left(CacheName, Len(EL_Cache.CacheSn))) = CStr(EL_Cache.CacheSn) Then
   CacheValue = EL_Cache.GetCache(Replace(CacheName, EL_Cache.CacheSn, ""), 0)
   CacheDateTime = EL_Cache.GetCache(Replace(CacheName, EL_Cache.CacheSn, ""), 1)
Else
   CacheValue = Application(CacheName)
   CacheDateTime = ""
End If
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>查看缓存</strong></td>
  </tr>
  <tr>
    <td width="15%" class="td_ItemName"><strong>缓存名</strong></td>
    <td width="85%" class="td_25"><input name="textfield" type="text" size="50" value="<%=EL_Common.ServerHTMLEncode(CacheName)%>"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>缓存时间</strong></td>
    <td class="td_25"><input name="textfield2" type="text" size="50" value="<%=EL_Common.ServerHTMLEncode(CacheDateTime)%>"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>缓存值</strong></td>
    <td class="td_25">
	<textarea name="textarea" cols="110" rows="20"><%
	  If IsArray(CacheValue) Then
	     Response.Write EL_Common.ServerHTMLEncode(Array2String(CacheValue))
	  Else
	     Response.Write EL_Common.ServerHTMLEncode(CacheValue)
	  End If
	%></textarea>	</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="button" name="Submit" value="返回上页" onClick="history.back()"></td>
  </tr>
</table>
<%
EL_Common.ShowScriptError()
End Sub

Sub AllCache()
On Error Resume Next
Dim CacheItem, CacheList, i
Dim CacheName, CacheValue, CacheDateTime
CacheList = ""
For Each CacheItem In Application.Contents
    CacheList = CacheList &","& CacheItem 
Next
CacheList = Split(CacheList, ",")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="19%" align="center" class="top_item"><strong>缓存名</strong></td>
    <td width="52%" align="center" class="top_item"><strong>缓存值</strong></td>
    <td width="19%" align="center" class="top_item"><strong>缓存时间</strong></td>
    <td width="10%" align="center" class="top_item"><strong>操作</strong></td>
  </tr>
  <%
    For i = 1 To UBound(CacheList)
	   CacheName = CacheList(i)
	   If Cstr(Left(CacheName, Len("Collection_"))) = "Collection_" Or Cstr(Left(CacheName, Len("Fliter_"))) = "Fliter_" Then 
	      CacheValue = ""
		  CacheDateTime = ""
	   ElseIf CStr(Left(CacheName, Len(EL_Cache.CacheSn))) = CStr(EL_Cache.CacheSn) Then
	      CacheValue = EL_Cache.GetCache(Replace(CacheName, EL_Cache.CacheSn, ""), 0)
	      CacheDateTime = EL_Cache.GetCache(Replace(CacheName, EL_Cache.CacheSn, ""), 1)
	   Else	 
		  CacheValue = Application(CacheName)
		  CacheDateTime = ""
	   End If
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td><%=EL_Common.ServerHTMLEncode(CacheName)%></td>
    <td>
	<%
	  If IsArray(CacheValue) Then
		 Response.Write EL_Common.GetTopic(Array2String(CacheValue), 60)
	  Else
	     Response.Write EL_Common.GetTopic(CacheValue, 60)
	  End If
	%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(CacheDateTime)%></td>
    <td align="center" nowrap><a href="Admin_Cache.asp?Action=Show&CacheName=<%=CacheName%>">查看</a> | <a href="Admin_Cache.asp?Action=Delete&CacheName=<%=CacheName%>">删除</a></td>
  </tr>
  <%
    Next
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center"><input type="button" name="Submit2" value="清除所有缓存" onClick="location.href='Admin_Cache.asp?Action=ClearAll'"></td>
  </tr>
</table>
<%
EL_Common.ShowScriptError()
End Sub
%>
<%
Function Array2String(ByVal arr)
   Dim i, str
   str = ""
   For i = 0 To Ubound(arr)
      If IsArray(arr(i)) Then
	     str = EL_Common.Join2String(str, Array2String(arr(i)), "@@@")
	  Else
	     str = EL_Common.Join2String(str, arr(i), "@@@")
	  End If
   Next
   Array2String = str
End Function

Function Templates(ByVal ChannelModule)
Dim arrTemplate(100)
arrTemplate(100) = "@"
arrTemplate(0) = "-1$网站首页"
arrTemplate(1) = "1$频道首页"
arrTemplate(2) = "2$栏目页"
arrTemplate(3) = "3$内容页"
arrTemplate(4) = "4$推荐列表页"
arrTemplate(5) = "5$搜索页"
arrTemplate(6) = "6$评论页"
arrTemplate(7) = "7$打印页"
arrTemplate(8) = "8$订单确认页"
arrTemplate(9) = "9$企业会员预定页"
arrTemplate(10) = "10$友情链接页"
arrTemplate(11) = "11$会员注册许可协议页"
arrTemplate(12) = "12$会员注册填写信息页"
arrTemplate(13) = "13$会员注册成功页"
arrTemplate(14) = "14$会员信息页"
arrTemplate(15) = "15$会员预订登陆页"
arrTemplate(16) = "16$地区列表页"
arrTemplate(17) = "17$"
arrTemplate(18) = "18$"
arrTemplate(19) = "19$网站公告页"
arrTemplate(20) = "20$"
arrTemplate(21) = "21$告诉好友页"
arrTemplate(22) = "22$论坛首页"
arrTemplate(23) = "23$帖子列表页"
arrTemplate(24) = "24$浏览帖子页"
arrTemplate(25) = "25$编辑帖子页"
arrTemplate(26) = "26$保存帖子成功页"
arrTemplate(27) = "27$航空公司介绍页"
arrTemplate(28) = "28$飞机机型介绍页"
arrTemplate(29) = "29$退改签规定说明页"
arrTemplate(30) = "30$帖子操作页"
arrTemplate(31) = "31$预订成功页"
arrTemplate(32) = "32$"
arrTemplate(33) = "33$乘客信息填写表单"
arrTemplate(34) = "34$"
arrTemplate(35) = "35$友情链接申请页"
arrTemplate(36) = "36$"
arrTemplate(37) = "37$网站调查页"
arrTemplate(38) = "4$特价列表页"
Templates = ""
Select Case ChannelModule
  Case -2: '会员
     Templates = arrTemplate(11) &"|"& arrTemplate(12) &"|"& arrTemplate(13) &"|"& arrTemplate(14) &"|"& arrTemplate(15)
  Case 1: '文章     
	 Templates = arrTemplate(1) &"|"& arrTemplate(2) &"|"& arrTemplate(3) &"|"& arrTemplate(4) &"|"& arrTemplate(5)
	 Templates = Templates &"|"& arrTemplate(6) &"|"& arrTemplate(7) &"|"& arrTemplate(21)
  Case 2: '酒店
	 Templates = arrTemplate(1) &"|"& arrTemplate(16) &"|"& arrTemplate(3) &"|"& arrTemplate(4) &"|"& arrTemplate(5)
	 Templates = Templates &"|"& arrTemplate(6) &"|"& arrTemplate(7) &"|"& arrTemplate(21)
	 Templates = Templates &"|"& arrTemplate(8) &"|"& arrTemplate(31)
  Case 3: '度假
	 Templates = arrTemplate(1) &"|"& arrTemplate(2) &"|"& arrTemplate(3) &"|"& arrTemplate(4) &"|"& arrTemplate(5)
	 Templates = Templates &"|"& arrTemplate(6) &"|"& arrTemplate(7) &"|"& arrTemplate(21) &"|"& arrTemplate(8) &"|"& arrTemplate(31)
  Case 4: '机票
	 Templates = arrTemplate(1) &"|"& arrTemplate(3) &"|"& arrTemplate(38) &"|"& arrTemplate(5) &"|"& arrTemplate(8) &"|"& arrTemplate(33) &"|"& arrTemplate(31)
	 Templates = Templates &"|"& arrTemplate(100) &"|"& arrTemplate(27) &"|"& arrTemplate(28) &"|"& arrTemplate(29) 
  Case 5: '景点
	 Templates = arrTemplate(1) &"|"& arrTemplate(16) &"|"& arrTemplate(3) &"|"& arrTemplate(4) &"|"& arrTemplate(5)
	 Templates = Templates &"|"& arrTemplate(6) &"|"& arrTemplate(7) &"|"& arrTemplate(21) &"|"& arrTemplate(8) &"|"& arrTemplate(31)
  Case 6: '图片
	 Templates = arrTemplate(1) &"|"& arrTemplate(2) &"|"& arrTemplate(3) &"|"& arrTemplate(4) &"|"& arrTemplate(5)
	 Templates = Templates &"|"& arrTemplate(6) &"|"& arrTemplate(21)
  Case 7: '商城
	 Templates = arrTemplate(1) &"|"& arrTemplate(2) &"|"& arrTemplate(3) &"|"& arrTemplate(4) &"|"& arrTemplate(5)
	 Templates = Templates &"|"& arrTemplate(6) &"|"& arrTemplate(21) &"|"& arrTemplate(8) &"|"& arrTemplate(31)
  Case 8: '租车
	 Templates = arrTemplate(1) &"|"& arrTemplate(2) &"|"& arrTemplate(3) &"|"& arrTemplate(4) &"|"& arrTemplate(5)
	 Templates = Templates &"|"& arrTemplate(6) &"|"& arrTemplate(7) &"|"& arrTemplate(21) &"|"& arrTemplate(8) &"|"& arrTemplate(31)
  Case 9: '论坛
	 Templates = arrTemplate(22) &"|"& arrTemplate(23) &"|"& arrTemplate(24) &"|"& arrTemplate(25) &"|"& arrTemplate(26) &"|"& arrTemplate(30) &"|"& arrTemplate(5)
End Select

End Function
%>
</body>
</html>
上一页 12
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -