首页 / 网页编程 / ASP

复制代码 代码如下:Function getTreeRootId（pNodeId） getSQL = "select note_id,parent_id from [T_tree_demo] where note_id=""& pNodeId &""" Set getRs = db.Execute（getSQL） If Not getRs.eof Then If Trim（getRs（"parent_id"）） = "0" Then getTreeRoot...

复制代码 代码如下:function FSOlastline（filename） dim fso,f,temparray,tempcnt set fso = server.CreateObject（"scripting.filesystemobject"） if not fso.fileExists（server.mappath（filename）） then exit function set f = fso.opentextfile（server.ma...

复制代码 代码如下:"返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径 function CountFilesNumber（folderspec） Dim objfso,f,fc Set objfso=CreateObject（"Scripting.FileSystemObject"） Set f=objfso.GetFolder（folderspec） Set fc=f.Files CountFilesNumber=fc.Count set...

目录 一、 环境配置 二、 ASP对Excel的基本操作 三、 ASP操作Excel生成数据表 四、 ASP操作Excel生成Chart图 五、 服务器端Excel文件浏览、下载、删除方案 六、 附录 正文 一、 环境配置 服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即： 1．Win9x+PWS+Office 2．Win2000 Professional+PWS+Office 3．Win2000 Server+IIS+Offic...

最近升级了电脑主机，淘宝买的，卖家把我装好了64位的win7和一些基本程序。自己有个小程序是asp的，要让它运行起来，于是装上IIS（之前在添加删除程序里，现在叫 打开或关闭Windows功能 ，找了好一会儿），搭好web后，发现一直在运行，页面一页空白。好久没碰asp程序了，但还是有点印象的。于是打开程序，找到连接数据库那段后，加了句：Response.Write Err.Description，提示没记录下来，大概是没有找到合适的应用程序。看了下机子上...

举个例子来说，要查找出2007-10-12至2007-10-31之间在网站上注册的会员，选择好日期后，点击“查询”按钮，发现2007-10-31注册的会员的信息根本没有显示出来，试验了几次结果都是一样。调试程序发现，原来是在SQL语句这里出现了问题。 SQL语句如下：SELECT * FROM userinfo WHERE regtime >= "2007-10-12" AND regtime <= "2007-10-31"。初看上去这条S...

复制代码 代码如下:Class XMLClass Private objXml Private xmlDoc Private xmlPath "//============================================================ " Sub Class_initialize Set objXml = Server.CreateObject（"MSXML2.DOMDocument"） objXml.preserveWh...

language.xml 复制代码 代码如下: <？xml version="1.0" encoding="gb2312"？> <languageRoot> <！--简体中文--> <language> <LanguageName>简体中文</LanguageName> <LanguageValue>SimpilifiedChinese</LanguageValue&...

复制代码 代码如下: <title>雷锋|优酷-专辑 采集程序</title></head> <form name="form1" method="post" action="？action=add"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder"> ...

函数getcache，会自动建立需要的缓存。 复制代码 代码如下:Function getcache（funsname,isreset,isarr,timeinfo） ‘funsname — 需要缓存的内容,这里要输入一个function名 ‘isreset –是否更新[值：0（根据时间或判断缓存为空时自动更新）、１（主动更新）] ‘ isarr —- 所缓存的内容是否为一个数据[0为字符串，1为数组] ‘ timeinfo —- 缓存更新时间，单位为秒,...