如何清理asp站点缓存的代码
<%
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
%>
相关文档：
废话少说,见代码
<%=request.ServerVariables("LOGON_USER")%>
首先IIS所在的服务器要加入域,其次是IIS服务器的设置.见图1
图2
服务器设置好后, IIS所在的服务器使用
<%=request.ServerVariables("LOGON_USER")%>
就能获取到域名称和用户名了.
如果访问者没有加入域,会提示登录,如下图.� ......
JMAIL安装配置
jmail发送邮件的实例代码网上很多.但是有些细节如果不配置好,发送失败的可能性很大.
首先说明一下jmail安装配置步骤:
1. JMail 下载地址
http://hbdx3.skycn.com/down/w3JMail43Personal.exe
2.安装
本人在Windows 2003下面配置,其它系统还没有测试.
安装到目录比如: C:\Program Files\Dimac\w3JMai ......
<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
代码解释：
Request.ServerVariables("HTTP_REFERER")是获取上� ......
<!--#include file="zheboconn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>asp和mysql分页代码</title>
<style type="text/css">
<!--
.STYLE3 {
fon ......
今天在修改以前开发的一个网站的时候遇到一个问题，因为功能的需要，以前的一个数字类型字段改变为文本字段，因为这个字段需要包含多个类别的ID，以前这个字段只对应一个ID的。
网站是ASP VB语言的，数据库使用的是Access
修改数据类型之后前台的查询代码就不能使用诸如xID=1这种条件了。由于现在该字段变为文本类� ......
