<%
'注销登陆
session.abandon
Response.redirect("default.asp")
%>

查看更多...

Tags: 注销注销

'==================================================
'函数名：BuildFolder
'作  用：创建文件夹
'参  数：path ----------要创建的文件夹(路径)
'==================================================
function BuildFolder(path)
Set fso = Server.CreateObject("Scripting.FileSystemObject")

查看更多...

Tags: 文件夹文件夹

Jmail 发送程序
VBScript code<%
  '参数说明
  'Subject     : 邮件标题
  'MailAddress : 发件服务器的地址,如smtp.163.com
  'Email       : 收件人邮件地址
  'Sender      : 发件人姓名

查看更多...

Tags: JmailJmail

'小写数字转大写
function int2chn(n)
dim i,j,k,strlen,retval,x,y,z,str
z=array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖")
y=array("","拾","佰","仟")
x=Array("","万","亿","万万亿")
strlen=len(n)

查看更多...

Tags: 大写大写

Rem 判断发言是否来自外部
'ChkPost=false 来自外部提交(非法)
'ChkPost=true  合法提交表单
'*************************************************************************************************
function ChkPost()
dim server_v1,server_v2
chkpost=false

查看更多...

Tags: 判断判断

ASP与Access数据库连接：

以下为引用的内容：

<%@ language=VBscript%>
　　 <%
　　dim conn,mdbfile

查看更多...

Tags: 数据库数据库

'===============================================================
'函数名：RemoveHTML
'作  用：清除HTML标签
'参  数：strHTML 内容
'返回值：过滤HTML标签后的内容
'===============================================================
function RemoveHTML(strHTML)  

查看更多...

Tags: 清除清除

<%
'函数名：IsObjInstalled
'作  用：检查组件是否已经安装
'参  数：strClassString ----组件名
'返回值：True  ----已经安装
'        False ----没有安装
function IsObjInstalled(strClassString)

查看更多...

Tags: 组件组件

该日志是私密日志，只有管理员或发布者可以查看！

如果您想在页面中显示出来当前asp.net程序占用了多少内存，那么可以使用：

            double memoryUsage = (((double)System.Diagnostics.Process.GetCurrentProcess().WorkingSet64) / 1024) / 1024;

来计算，单位是MB。

在1.1中使用　Process.WorkingSet

查看更多...

Tags: 内存内存