代码如下:'===================================== '获得文件后缀 '===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)<2 Or Instr(t0,".")=0 Then Get_Filetxt=False:Exit Function t1=Split(t0,".") Get_Filetxt=Lcase(t1(Ubound(t1))) End Function '===================================== '读取任何文件的纯代码 '===================================== Function LoadFile(ByVal t0) ...
如下所示: 代码如下:Set Catalog_object= Server.CreateObject("ADOX.Catalog") Catalog_object.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/jb51.net.mdb")) 简单的两句话就可以创建出access数据库，在create函数中你只需要提供“数据库文件的路径”。 刚创建的access数据库是个“空库”，其中没有任何表
采集中 或者 在线添加文章中 都可以用到此功能 俺自己在baidu上搜索的保存远程图片到本地的代码 感觉比较难用点 而且没有现成的比较全的代码 俺也看不懂 俺从 SNA新闻采集系统 For 3.62 (程序制作:ansir)里提取了点函数 用下 比较简单好用 以下是函数 程序代码 代码如下:<% '================================================== '函数名：CheckDir2 '作 用：检查文件夹是否存在 '参 数：FolderPath ------文件夹地址 '==========...
'////////////////////////////////////////////////FSO操作///////////////////////////////////// 判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Folder) Then FolderExits=true Else FolderExits=false End IF End Function 判断文件是否存在 Function FileExits(FileName) FileName=Server.Mappath...
一、ASP创建对象的技巧 当我们使用服务器组件创建对象时，一般有两种方法。比较常用的方法是用SERVER对象的CreateObject() 方法，象这样: SET NextLink = Server.CreateObject("MSWC.NextLink") 这种方法很好用，但是还有一种方法更节省系统资源。 当你用Server.CreateObject()方法创建对象时，对象立即被加载，同时系统为这个对象分配好内存和其它资源。 第二种创建对象的方法是利用HTML的< OBJECT >标记，语法是这样的：...
代码如下：JScript 代码如下:function GenerateGuid() { var TypeLib = new ActiveXObject("Scriptlet.TypeLib"); return (TypeLib.Guid); } VBScript 代码如下:Function GenerateGuid() Dim TypeLib Set TypeLib = Server.CreateObject("Scriptlet.TypeLib") GenerateGuid = TypeLib.Guid End Function 如果要在客户端使用的话，VBScript的代码需要稍做修改，即把： Set TypeLib = Server.CreateObj...
在已有数据库中创建表 <% set conn=server.CreateObject("adodb.connection") sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb") conn.open sql Conn.Execute("create table bbb(id AUTOINCREMENT(1,1),p_id text(100),ee money,ff datetime default date(),gg guid,hh single default 50,ii double,jj smallint,kk long,ll image,mm memo,oo yesno not null,pp TINYINT,qq numeric(18,4),aa b...
代码如下: '============================== '创建多级目录，可以创建不存在的根目录 '参数：要创建的目录名称，可以是多级 '创建目录的根目录从当前目录开始 '''调用举例 ''Call CreateMultiFolder("/upload/jumbot/myphoto/") '============================== Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateF...
<%@ Language=VBScript %> <!-- METADATA TYPE="TypeLib" UUID="{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}" --> <HTML> <BODY> <H1 align=center>在线注册演示</H1> <% Dim sMessage If Request.Form("cmdAddUser") <> "" Then Dim oMDUser Dim oMDUserInfo Dim nResult Dim sFullName Dim sUserName Dim sPassword sFullName = Request.Form("txtFullName") sUserName = Request.Form("txtUserName") sPassword = Reques...
While this section is devoted to ASP database utilization, it very important to remember that this web site is not intended to be a thorough ASP resource. Remember, the focus of this site is strictly limited to how to use JavaScript as your primary scripting language for ASP. Youll see how to construct connection strings in JavaScript, use JavaScript loops to manipulate recordsets, convert the Ja...
ASP 技巧一则之 简化创建关闭记录集对象并创建使用简单的MSSQL存储过程 By shawl.qiu 1. 建造 创建关闭记录集函数 2. 在MSSQL查询分析器中创建简单的MSSQL存储过程 3. 在ASP中应用步骤1,2 shawl.qiu 2006-8-26 http://blog.csdn.net/btbtd 1. 建造 创建关闭记录集函数 linenum function createRs(rs) set rs=createObject("adodb.recordset") end function function closeRs(rs) rs.close set rs=nothing ...
没有用正常的循环tr内循环td的方法，所以就没有计算最后一页的记录集数量。 但当记录集不足时也同样能够自动补空行空列，如有不足请指出，谢谢。 使用方法很简单： 代码如下:<% showData("查询语名") Call pagehead(行数,列数) '------------------------------------------------------------------------------- '可以把下面的Response.Write()写到函数里面，看个人的爱好了。 Response.Write(FormatCRtable(表格宽度,表格...
<% '创建多级目录，可以创建不存在的根目录 '参数：要创建的目录名称，可以是多级 '返回逻辑值，True成功，False失败 '创建目录的根目录从当前目录开始 '--------------------------------------------------- Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo BlInfo = False CreateFolder = CFo...
============================================================= ' 感谢您使用ASP001工作室开发的实用函数程序 ' HTTP://WWW.ASP001.NET '============================================================= 'ASP001工作室为您提供订制程序开发、企业互联网拓展服务 'QQ：1974229 'E-Mail：Shenyangchuqi@tom.com '更多程序下载请到HTTP://WWW.ASP001.NET '=============================================...
作用说明: 本代码实现从 Access 提取数据以创建 HTML 文件, 不建文件夹. 如果文件名与要创建的文件名相同, 则覆盖, 跟 SQL 的更新一样的原理. 待加功能: 删除与查找. 代码如下:<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' subject : Asp 创建静态文件/HTML By Stabx ' ' writer : Stabx<shawl.qiu@gmail.com> ' ' blog : http://btbtd.exblog.jp/ ; ' ' blog/site : Phoenix.GI - P.GI ...