<%
Call RemoveAllCache()
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","<b>开始执行清理当前站点缓存</b>：")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInfo","更新 <b>"&cachelist(i)&"</b> 完成")
Next
Call InnerHtml("UpdateInfo","更新了"& UBound(cachelist)-1 &"个缓存对象<br>")
Else
Call InnerHtml("UpdateInfo","<b>当前站点全部缓存清理完成。</b>。")
End If
End Sub
Function GetallCache()
Dim Cacheobj
For Each Cacheobj in Application.Contents
GetallCache = GetallCache & Cacheobj & ","
Next
End Function
Sub DelCahe(MyCaheName)
Application.Lock
Application.Contents.Remove(MyCaheName)
Application.unLock
End Sub
Sub InnerHtml(obj,msg)
Response.Write "<li>"&msg&"</li>"
Response.Flush
End Sub
%>
一、修改格式：调整表头居左；
<!--原来格式-->
/*说明：把整个表头和页面内容居中，当页面内容较长时，表头也居中，看起来像表头错位。*/
<div style="position: absolute;top:3px;">
<center>
<!--#include file="inc/glfcd.inc"-->
<br>
标题
</br& ......
今天在修改以前开发的一个网站的时候遇到一个问题，因为功能的需要，以前的一个数字类型字段改变为文本字段，因为这个字段需要包含多个类别的ID，以前这个字段只对应一个ID的。
网站是ASP VB语言的，数据库使用的是Access
修改数据类型之后前台的查询代码就不能使用诸如xID=1这种条件了。由于现在该字段变为文本类� ......
