一、常用的ASP时间函数 1、now() 获取当前系统日期和时间,ASP输出格式：<%=now()%> 2、Year(now()) 获取年份， ASP输出格式：<%=Year(now())%> 3、Month(now()) 获取当前月份，ASP输出格式：<%=Month(now())%> 4、day(now()) 获取当天数，ASP输出格式：<%=day(now())%> 5、hour(now())获取小时数，ASP输出格式：<%=hour(now())%> 6、Minute(now()) 获取分钟数，ASP输出格式：<%=Minute(now())%> 7、Second(now()) 获取秒钟数，ASP输...
代码如下:<% Load XML set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = false xml.load(Server.MapPath("cdcatalog.xml")) Load XSL set xsl = Server.CreateObject("Microsoft.XMLDOM") xsl.async = false xsl.load(Server.MapPath("cdcatalog.xsl")) Transform file Response.Write(xml.transformNode(xsl)) %>
像一些大的网站，就将图片、CSS、JS、数据库都需要分开到不同的服务器上，为这些不同的服务器单独一个域名。这样不仅提高的访问速度，而且一台服务器坏了，不影响整个网站的打开。 这里介绍一下这样的网站架构中图片上传原理。 先将图片服务器映射到web服务器上（映射的方法就不在这里介绍了），然后在IIS中建个虚拟目录，先指向一个本机文件夹，然后完成。然后在右击新建的虚拟目录，属性。然后在弹出的对话框中选择“另一台计算机...
今天重新研究了下VB里面的ScriptControl组件，发现asp里面也能调用。研究了下方法，后来和lcx讨论了下。得到了如下代码，在此感谢前辈的指点，呵呵。 代码很简单，我就不多做解释了，以免有人骂我装。 代码如下:<% Set o = Server.CreateObject("ScriptControl") o.language = "vbscript" o.addcode(Request("SubCode")) '参数SubCode作为过程代码 o.run "e",Server,Response,Request,Application,Session,Error '参数名e 调用之，...
判断服务器是否安装了某种asp组件，比较常用的代码如下: 代码如下:<% 功能:检查是否存在系统组件或组件是否安装成功 参数:组件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function 获取系统组件的版本号 Function getver(Clas...
对于小数据量，xml文件在检索更新上于ACCESS有很多优势。 我曾经测试过不用数据库，把网站的会员信息，商品数据信息，交易信息，网站定制信息全部存放在三个xml文件中，运行结果十分正常，感觉上比数据库快多了，不过没有作测试，不能确定。 下面说一下创建，查询，修改等对xml操作的主要方法 程序代码 NO.1--建立一个XML数据库data.xml 代码如下:<?xml version="1.0"?> <records> <record> <name>caca</name> <qq>154222225</qq>...
无服务器做任意二级米子站 1.支持单米空间 2.国际米泛解析 现在我只列出了框架,功能将在以后逐个添加,欢迎大家共同讨论 实现方法: 添加记录:*,类型:URL-URL转发,转发地址:本程序的地址(http://localhost/) http://localhost/index.asp的代码: 代码如下:<% DNS_Key=Split(Split(Request.Servervariables("HTTP_REFERER"),"/")(2),".")(0) %> 最终结果: http://ly.*.com/ 显示本站的临沂分站 http://bj.*.com 显示本站的北京分站 ...
即直接提示用户下载而不是由浏览器打开某些文件。注意，下面的代码拷贝到ASP文件中后，不要再添加一些非ASP代码在页面中：如HTML和javascript客户端的代码。 代码如下:<% '-------------------------------------------- Response.Buffer = True Dim strFilePath, strFileSize, strFileName Const adTypeBinary = 1 strFilePath = "文件路径 " strFileSize = ... 文件大小，可选 strFileName = "文件名" Response.Clear '8*******...
<%dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fsoMlpath="E:\page\mian\" 存放RAR.EXE和CMD.EXE的路径ylj=Server.mappath("mian")&"\" 解压文件后所放的路径ywj=Server.mappath("mian\apathy.rar") 要解压的RAR文件Set Shell = Server.CreateObject("WScript.Shell")rarcomm= "E:\page\mian\cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- "cmd=rarcomm&ywj&" "&yljRetCode = Shell.Run(cmd,1, True)%> 就是用Server....
<% '****************************** '函数：ShowServerVar(VarName) '参数：VarName，如提供变量名，则显示该变量值，如果参数为空则显示所有变量值 '作者：阿里西西 '日期：2007/7/13 '描述：显示所有的服务器变量值，返回值:对应值的字符串 '示例：<%=ShowServerVar(VarName)%> '****************************** Function ShowServerVar(VarName) dim dest if VarName="" then for each dest in Request.ServerVari...
By shawl.qiu 摘要: 本文演示了ASP服务端脚本的几个重要应用. 目录: 1. 遍历集合/对象 1.1 VBScript 遍历表单集合 1.2 JScript 遍历表单集合 2. 转变量值为变量, 并赋值 2.1 VBScript 转变量值为变量并赋值 2.2 JScript 转变量值为变量并赋值 3. 动态包含文件 3.1 VBScript 动态包含文件 3.2 JScript 动态包含文件 shawl.qiu 2006-10-11 http://blog.csdn.net/btbtd 1. 遍历集合/对象 1.1 VBScript 遍历表单集合 linenum <% ...
**********字符批量替换程序asp服务器版****************** 安装方法：直接把replace.asp文件放在任意的支持asp+FSO的环境中 运行方法：用http://localhost/.../replace.asp访问即可看到程序的效果 此程序的功能主要用来替换文件夹中所有文本文件字符用的。 如：txt、htm、asp、jsp、php、…… 一切的文本文件 div+CSS布局 兼容FF和IE浏览器 ---------目前具有功能------------------------ 即时查看当前替换文件路径 可选备份原文...
Overview: The Server Object has seven (7) Methods, one (1) Property, zero (0) Events, and zero (0) Collections. List of Methods: Server MethodsCreateObject( ) Server.CreateObject("ADODB.Recordset")Create an instance of an ObjectExecute( ) Server.Execute("fileName.asp")Executes an outside file (effect is similar to SSI)GetLastError( ) Server.GetLastError()Returns location and description of the l...
'----------------------提取所有网卡的信息--------------------' Public Function GetMacInfo() On Error Resume Next Dim fso, FileStr, AspSleepThread, CmdStr, SysDir, wshshell, CmdRe, MacFileContentFile, MacFileContent Const MacFile = "TmpYesoulSoft001.LLP" Set fso = Server.CreateObject("Scripting.FileSystemObject") SysDir = Split(GlobalMod.GetSysDir, ",")(1) If ...
代码如下:<% dim objXML dim objRootElement dim strValue dim strInetURL dim strXML dim item strInetURL ="http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml" Dim HttpReq set HttpReq = server.CreateObject("MSXML2.XMLHTTP") HttpReq.open "GET", "http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml", False HttpReq.send strXML = HttpReq.responseText ...