'Dim QQUIN   Set objWMIService = GetObject _                       ("winmgmts:\\" & "." & "\root\cimv2")  &...

<TITLE>网易文件摄取</TITLE><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><HTA:APPLICATION   ID="MyhyliApp"   APPLICATIONNAME="设置程序"   VERSION="1.0"   SCROLL="no"   INNERBORD...

'函数名:getHTMLContent'参数:NO-->要取得的字符数, txtContent-->要处理的字符串 '功能: 从字符串里截取N个带HTML的字符,现在的实现方法还不完善,过程是:从字符串里找各种控件的开始,然后依些分开,放到数组里,然后一个一个数组的加上来看看字符是否大于给定的字符如果是,那么,返回这个数组.'作者:柳永法'时间:2007-6-1 20:03 :)Function getHTMLContent(NO, txtContent)If Len(txtContent)<=&...

right("0"&year(now),2)&right("0"&month(now),2)&right("0"&day(now),2)&right("0"&hour(now),2)&right("0"&minute(now),2)&right("0"&second(now),2)...

'/*=========================================================================   ' * Intro       用XMLDOM分析QQ签名文档   ' * FileName    QQ_QianMing.vbs   ' * Author  &...

1.example.xml--主要数据文件<?xml version="1.0" encoding="UTF-8"?><?xml:stylesheet type="text/xsl" href="example.xsl"?><projects id="1">    <project title="一级标题1" index="1">        <ite...

Set wmi=GetObject("winmgmts:\\")Set board=wmi.instancesof("win32_baseboard")For Each b In boardmsg="主板："&b.Manufacturer&vbTab&b.product&vbTab&Chr(13)Nextmsg=msg&Chr(13)&"---"+Chr(13)Set cpus=wmi.instancesof("win32_processor")msg=msg&...

Dim curUrl:curUrl = Replace(Request.ServerVariables("Script_Name"),"/","")...

需要用到这个功能，没怎么测试呢，测试后给具体代码假如地址是：http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html方法一：简单，得不到参数，只有一个虚拟路径[code]GetUrl =request("url")  '这个因为我们没有url=什么字样所以直接pass掉 [/code]方法二：得到整个URL，得到参数 [code]'得到当前页面的地址      Function GetUrl() ...

读取Serv-U路径失败330101的解决方法我安装的易方怎么不能设置Serv-U啊？点设置就出现 读取Serv-U路径失败330101。谁知道这是怎么会事啊？？我安装了Serv-U的。。。希望知道的告诉我一下解决方法：把serv-u的用户数据 存储到注册表里去,不是放在ini文件里...

我发现两种方法，其实原理差不多假如a.txt中的内容是下面的[code]ASP中_DateDiff_函数详解.htmASP中_Split_函数的实例.htm轻松实现将上传图片到数据库.htm远程获取内容，并将内容存在本地脑上.htm防止从外部提交数据的方法.htm[/code]用下面的批处理[code]echo off >1.txtfor /f %%i in (book.txt) do call :dxy %%igoto :eof:dxyset var=%1set&nb...