paulfzm的专栏

sub deletefiles(filename)  if filename<>"" thenfilename = server.MapPath(filename)set fso=server.CreateObject("scripting.filesystemobject")if fso.FileExists(filename)=true  thenfso.DeleteFile fi...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><% Dim email,topic,mailbody,sendto yname=request("name") yemail=request("email") ycontent=request("message") mailbody=mailbody+"名字:"+yna

Dim xmlDoc, rootEl, child1, child2, p'Create an XML documentSet xmlDoc = Server.CreateObject("Microsoft.XMLDOM")'Create a root element and append it to the documentSet rootEl = xmlDoc.createElement("r...

Public Function ReplaceTrim(ByVal strContent)         On Error Resume Next         Dim re         Set re = New RegExp         re.IgnoreCase = True         re.Global = True         re.Pattern = "(" &am...

AspJpeg使用方法1、AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。　　AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象，支持的图象格式有：JPEG, GIF, BMP, TIFF, PNG。...

javascript： var dt = new Date(); var ms = dt.getUTCMilliseconds(); asp： '获取13位时间戳'1970-01-01 08:00:00 到现在的毫秒数'Timer()是返回今天的0点到现在的秒数,但精确到了小数点后两位,基本上是毫秒Public Function getTime()  getTime = DateDif...

如果要想获取这样的地址：http://192.168.0.5/super/super_article.asp?id=4那么我们就只要获取：192.168.0.5---><%=Request.ServerVariables("HTTP_HOST")%>/super/super_article.asp-----><%=Request.ServerVariables("UR...

'定义数组，解决asp定义数组缺少整型错误 dim myArray1() redim myArray1(total-1)

[转]单空间绑定多域名代码大全 时间：2009-5-6 0:16:44 点击：578 ASP空间，泛解析也是支持的，当然主机头需要留空而你又想放置多个站点， 第一个 程序代码<%if Request.ServerVariables("SERVER_NAME")="www.zzec.cn" thenresponse.redirect "/help/"elseresponse.red...