程序人生

关于静态页生成问题 突破form数量限制

我们知道生成静态页,一般用模板的方式,这个我是会的,现在我想直接将ASP文件生成的HTML代码存成静态页,这个非常适合做首页,于时我在网上找这方面的内容,找到这个:《不用模...

程序人生

简单分页函数一 常用

复制代码 代码如下: % page=trim(request("page")) maxperpage=40 first=true last=true dimrs setrs=server.CreateObject("adodb.recordset") sql="selectid,title,add1,cartype,isred,enterdate,hitsfromnewnewswhereclasstype=0andpass=1orderbyid...

程序人生

asp:生成静态页面函数

复制代码 代码如下: % ifSaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp")then Response.write"已生成" else Response.write"没有生成" endif functionSaveFile(LocalFileName,RemoteFileUrl) DimAds,Retrieval,GetRemoteData On...

程序人生

用XML+FSO+JS实现服务器端文件的

首先在服务器端先创建一个程序可以生成XML文件,以返回客户端,(getfolder.asp) % 'written by Linzhang Chen ,2003-4-20 ' 转载请注明出处和保留此版权信息 response.write ?xml version=1.0 encoding=GB2312...

程序人生

pjblog2的参数第1/2页

% '=============================================================== 'FunctionForPJblog2 '更新时间:2006-6-2 '=============================================================== '************************************* '防止外部提交 '******...

程序人生

值得收藏的一些HTML、JavaScript、ASP代码

1.CDONTS.NewMail组件使用说明 SetMailObject=Server.CreateObject("CDONTS.NewMail") MailObject.From="发信邮箱" MailObject.To="收信邮箱" MailObject.Cc="抄送邮箱" MailObject.Bcc="密送邮箱" MailObject.Subject="邮件主题" M...

程序人生

百度小偷

% Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn H100 + CInt(NextCharCode)) i = i + 1 End I...

程序人生

newasp中下载类

复制代码 代码如下: % '================================================ '函数名:SaveRemoteFile '作用:保存远程文件到本地 '参数:strFileName----保存文件的名称 'strRemoteUrl----远程文件URL '返回值:布尔...