IT博客-天使ηò哭网志-文章分类-学学别人的http://www.cnitblog.com/ilvs/category/192.html记录你的每一个脚步,记住:守護天使時刻關注你. zh-cnMon, 26 Sep 2011 08:38:51 GMTMon, 26 Sep 2011 08:38:51 GMT60如何使用FSO搜索硬盘文件http://www.cnitblog.com/ilvs/articles/3632.html天使ηò哭天使ηò哭Fri, 28 Oct 2005 03:50:00 GMThttp://www.cnitblog.com/ilvs/articles/3632.htmlhttp://www.cnitblog.com/ilvs/comments/3632.htmlhttp://www.cnitblog.com/ilvs/articles/3632.html#Feedback0http://www.cnitblog.com/ilvs/comments/commentRss/3632.htmlhttp://www.cnitblog.com/ilvs/services/trackbacks/3632.html<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim st
st=timer()
'*************************************************************
'*************搜索硬盘文件的类SearchFile         *************
'*************调用方法:                          *************
'*************Set newsearch=new SearchFile '声明 *************
'*************newsearch.Folder="F:+E:"'传入搜索源*************
'*************newsearch.keyword="汇编"    '关键词*************
'*************newsearch.Search          '开始搜索*************
'*************Set newsearch=Nothing         '结束*************     
'*************************************************************
Class SearchFile
 dim Folders  '传入绝对路径,多路径使用+号连接,不能有空格
 dim keyword  '传入关键词
 dim objFso   '定义全局变量
 dim Counter  '定义全局变量，搜索结果的数目
'*****************初始化**************************************
 Private Sub Class_Initialize
  Set objFso=Server.CreateObject("Scripting.FileSystemObject")
  Counter=0    '初始化计数器
 End Sub
'************************************************************
 Private Sub Class_Terminate
    Set objFso=Nothing
 End Sub
'**************公有成员,调用的方法***************************
 Function Search
  Folders=split(Folders,"+")   '转化为数组
  keyword=trim(keyword)   '去掉前后空格
  if keyword="" then
    Response.Write("<font color='red'>关键字不能为空</font><br/>")
 exit Function
  end if
  '判断是否包含非法字符
  flag=instr(keyword,"\") or instr(keyword,"/")
  flag=flag or instr(keyword,":")
  flag=flag or instr(keyword,"|")
  flag=flag or instr(keyword,"&")
 
  if flag then   '关键字中不能包含\/:|&
    Response.Write("<font color='red'>关键字不能包含/\:|&</font><br/>")
 Exit Function   '如果包含有这个则退出
  end if
  '多路径搜索
  dim i
  for i=0 to ubound(Folders)
    Call GetAllFile(Folders(i))  '调用循环递归函数
  next
  Response.Write("共搜索到<font color='red'>"&Counter&"</font>个结果")
 End Function
'***************历遍文件和文件夹******************************
 Private Function GetAllFile(Folder)
  dim objFd,objFs,objFf
  Set objFd=objFso.GetFolder(Folder)
  Set objFs=objFd.SubFolders
  Set objFf=objFd.Files
  '历遍子文件夹
  dim strFdName  '声明子文件夹名
  '*********历遍子文件夹******
  on error resume next
  For Each OneDir In objFs
    strFdName=OneDir.Name
 '系统文件夹不在历遍之列
    If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then
      SFN=Folder&"\"&strFdName     '绝对路径
      Call GetAllFile(SFN)            '调用递归
 End If
  Next
  dim strFlName
  '**********历遍文件********
  For Each OneFile In objFf
    strFlName=OneFile.Name
 'desktop.ini和folder.htt不在列取范围
    If strFlName<>"desktop.ini" EQV strFlName<>"folder.htt" Then
      FN=Folder&"\"&strFlName
   Counter=Counter+ColorOn(FN)
 End If
  Next
  '***************************
  '关闭各对象实例
  Set objFd=Nothing
  Set objFs=Nothing
  Set objFf=Nothing
 End Function
'*********************生成匹配模式***********************************
 Private Function CreatePattern(keyword)  
   CreatePattern=keyword
   CreatePattern=Replace(CreatePattern,".","\.")
   CreatePattern=Replace(CreatePattern,"+","\+")
   CreatePattern=Replace(CreatePattern,"(","\(")
   CreatePattern=Replace(CreatePattern,")","\)")
   CreatePattern=Replace(CreatePattern,"[","\[")
   CreatePattern=Replace(CreatePattern,"]","\]")
   CreatePattern=Replace(CreatePattern,"{","\{")
   CreatePattern=Replace(CreatePattern,"}","\}")
   CreatePattern=Replace(CreatePattern,"*","[^\\\/]*")   '*号匹配
   CreatePattern=Replace(CreatePattern,"?","[^\\\/]{1}") '?号匹配
   CreatePattern="("&CreatePattern&")+"                  '整体匹配
 End Function
'**************************搜索并使关键字上色*************************
 Private Function ColorOn(FileName)
   dim objReg
   Set objReg=new RegExp
   objReg.Pattern=CreatePattern(keyword)
   objReg.IgnoreCase=True
   objReg.Global=True
   retVal=objReg.Test(FileName)  '进行搜索测试,如果通过则上色并输出
   if retVal then
     OutPut=objReg.Replace(FileName,"<font color='#FF0000'>$1</font>")   '设置关键字的显示颜色
'***************************该部分可以根据需要修改输出************************************
     OutPut="<a href='#'>"&OutPut&"</a><br/>"
  Response.Write(OutPut)  '输出匹配的结果
'*************************************可修改部分结束**************************************
  ColorOn=1    '加入计数器的数目
   else
     ColorOn=0
   end if
   Set objReg=Nothing
 End Function
End Class
'************************结束类SearchFile**********************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>www.domain.com</title>
</head>

<body>
<form name="form1" method="post" action="<% =Request.ServerVariables("PATH_INFO")%>">
  关键词:
  <input name="keyword" type="text" id="keyword">
  <input type="submit" name="Submit" value="搜索">
  <a href="help.htm" target="_blank">高级搜索帮助</a>
</form>
<%
dim keyword
keyword=Request.Form("keyword")
if keyword<>"" then
  Set newsearch=new SearchFile
  newsearch.Folders="E:\Media+F:"
  newsearch.keyword=keyword
  newsearch.Search
  Set newsearch=Nothing
  response.Write("<br/>费时："&(timer()-st)*1000&"毫秒")
end if

%>
</body>
</html>



天使ηò哭 2005-10-28 11:50 发表评论
]]>FileSystemObject(FSO)组件的功能http://www.cnitblog.com/ilvs/articles/3631.html天使ηò哭天使ηò哭Fri, 28 Oct 2005 03:42:00 GMThttp://www.cnitblog.com/ilvs/articles/3631.htmlhttp://www.cnitblog.com/ilvs/comments/3631.htmlhttp://www.cnitblog.com/ilvs/articles/3631.html#Feedback0http://www.cnitblog.com/ilvs/comments/commentRss/3631.htmlhttp://www.cnitblog.com/ilvs/services/trackbacks/3631.html 

GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录；Windows系统目录；Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2])　
GetTempName Method 返回一个随机产生的文件或者目录名字，用于需要存储临时数据时
GetAbsolutePathName Method 返回文件夹的绝对路径(类似于Server.MapPath)。
比如，FSO.GetAbsolutePathName("region") 将返回类似于下面的结果："c:mydocsmyfolder egion"
GetExtensionName Method 返回路径中最后部分的扩展名
(比如：FSO.GetExtensionName("c:docs est.txt") 将返回txt)
GetBaseName and GetParentFolder Methods 返回路径中最后部分的父文件夹
(比如：FSO.GetParentFolder ("c:docsmydocs") 将返回'docs')
Drives Property 返回所有本地可用驱动器的集合，用于建立资源浏览器样的用户接口。

　　 使用上面的功能时，最好建立好出错处理的代码。因为如果需要的参数不存在，将会产生麻烦的信息。


 
怎样读取一个文本文件的内容?  
 
 
 
Ever want to know how to display the contents of a text document using ASP. Here is a easy way to read
from a text file

<!--Start of ASP Code---->

<%
'by James Seymour, http://jamesdot.org

Dim write
Dim fileSysObj, tf, read

' Read the read.txt

' Store the file name where the Information is stored into a variable called read

read = "read.txt"

' Retrieve the fullpath of the read file

read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath
(Request.ServerVariables("PATH_INFO")), "\")) & read

' Create an instance of FileSystem Object and store it into a variable called fileSysObj

Set fileSysObj = createObject("Scripting.FileSystemObject")

' Check whether the read file exists

IF (fileSysObj.FileExists(read)) Then
' if the file exists, then open it for reading
Set tf = filesysobj.OpenTextFile(read, 1)
read = tf.ReadLine
tf.Close
ELSE
' if you can't find read.text, display default message
read = "I can't find the file read.txt! So this is my default message."

END IF
%>


' table the displays the read.txt file
<div align="center">
<center>
<table border="0" width="40%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#EEEECC"><B><%=read%></B>
</td>
</tr>
<tr>
<td width="100%">


<!-- End of the ASP -->


use the code above, click and drag your mouse over the code to highlight it. Then right click on the
highlighted code and click "Copy." Now you may paste it into your code editor.
 
 

 



天使ηò哭 2005-10-28 11:42 发表评论
]]>XML留言板http://www.cnitblog.com/ilvs/articles/543.html天使ηò哭天使ηò哭Sun, 26 Jun 2005 02:00:00 GMThttp://www.cnitblog.com/ilvs/articles/543.htmlhttp://www.cnitblog.com/ilvs/comments/543.htmlhttp://www.cnitblog.com/ilvs/articles/543.html#Feedback3http://www.cnitblog.com/ilvs/comments/commentRss/543.htmlhttp://www.cnitblog.com/ilvs/services/trackbacks/543.html'---------------------------------------------------
<%
username=request.form("username")
if username<>"" then
fromwhere =request.form("fromwhere")
homepage =request.form("homepage")
email =request.form("email")
text =request.form("text")
text =replace(text,"<","<")
Posttime =now()
strSourceFile = Server.MapPath("/") & "\List.xml"
'获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'创建XML对像
objXML.load(strSourceFile)
'把XML文件读入内存中
Set objRootlist = objXML.documentElement.selectSingleNode("NewList")
'选取<NewList>节点
if objRootlist.hasChildNodes then
'判断<NewList>是否有子节点（因为如果是每一次<NewList>是没有子节点的，
' 如果不加判断在第一次运得时就会报错
id = objRootlist.lastchild.firstchild.text+1
'这里获得将要插入子节点的ＩＤ号，其ＩＤ号为<NewList>的最后一个子节点(lastchild)的第一个子节点(firstchild)的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增）
else
'如是没有字子节点则是第一次留言ＩＤ号设为１
id=1
end if
brstr=chr(13)&chr(10)&chr(9)
XMLnode=brstr&"<list>"&brstr & _
"<id>"&id&"</id>"&brstr & _
"<username>"&username&"</username>"&brstr & _
"<fromwhere>"&fromwhere&"</fromwhere>"&brstr & _
"<Posttime>"&Posttime&"</Posttime>"&brstr & _
"<homepage>"&homepage&"</homepage>"&brstr & _
"<email>"&email&"</email>"&brstr & _
"<text>"&text&"</text>"&brstr & _
"</list>"&chr(13)
'根据得到的数据建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一个新XML对像
objXML2.loadXML(XMLnode)
'把XML版片段读入内存中
set rootNewNode=objXML2.documentElement
'获得objXML2的根节点
objRootlist.appendChild(rootNewNode)
'把XML片段插入到List.xml中
objXML.save(strSourceFile)
'存储lsit.xml文件（因为不存储List.xml只在内存中更新了）
set objXML=nothing
set objXML2=nothing

response.Write "<script>"
response.Write "window.location=""index.asp"""
response.Write "</script>"
response.end

end if 
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
-->
</style>
</head>
<body bgcolor="#0099CC" text="#000000">
<table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#FFFFFF">
<form action="PostNew.asp" method="post" name="form1">
<tr bgcolor="#000000"> 
<td colspan="2"><font color="#FFFFFF">新留言</font></td>
</tr>
<tr bgcolor="#EFEFEF"> 
<td width="19%" align="right">姓 名：</td>
<td width="81%">
<input type="text" name="username">
** </td>
</tr>
<tr bgcolor="#EFEFEF"> 
<td width="19%" align="right">来 自：</td>
<td width="81%">
<input type="text" name="fromwhere" value="中国">
</td>
</tr>
<tr bgcolor="#EFEFEF"> 
<td width="19%" align="right">主 页：</td>
<td width="81%">
<input type="text" name="homepage" value="http://">
</td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="19%" align="right">Email：</td>
<td width="81%">
<input type="text" name="email">
</td>
</tr>
<tr bgcolor="#EFEFEF"> 
<td width="19%" align="right" valign="top">内 容：</td>
<td width="81%">
<textarea name="text" cols="60" rows="10"></textarea>
</td>
</tr>
<tr bgcolor="#EFEFEF"> 
<td width="19%" align="right"> </td>
<td width="81%">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重填">
</td>
</tr>
</form>
</table>
</body>
</html>

'--------------------------------------------------

index.asp
'--------------------------------------------------
<%
strSourceFile = Server.MapPath("list.xml") 


'获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'以自由线程创建一个XML对像
objXML.load(strSourceFile) '把XML文件读入内存
Set objRootsite =objXML.documentElement.selectSingleNode("NewList")
'选取NewList节点
%>
<html>
<head>
<title>留言本</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-family: "宋体"; font-size: 9pt; text-decoration: none}
a { font-family: "宋体"; font-size: 9pt; color: #0066CC; text-decoration: none}
a:hover { color: #FF6600; text-decoration: underline}
-->
</style>
</head><body bgcolor="#0099CC" text="#000000">
<table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC">
<tr bgcolor="#000000"> 
<td colspan="2"><font color="#FFFFFF">留言溥 <a href="PostNew.asp"><font color=#FFFFFF>写新留言
</font></a></font></td>
</tr>
<% 
PageSize =10'假设每页显示10条留言
AllNodesNum =objRootsite.childNodes.length-1
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
PageNum=AllNodesNum\PageSize+1'算出总页数
PageNo=request.querystring("PageNo")
if PageNo="" then'如果是每一次获得页面则定位到每一页显示最新的留言
PageNo=PageNum
end if
StarNodes=PageNo*PageSize-1'获得起始节点
EndNodes=(PageNo-1)*PageSize'获得结束节点
if EndNodes<0 then
EndNodes=0
end if
if StarNodes>AllNodesNum then'判断起始节点数是否超过总的节点数
EndNodes=EndNodes-(StarNodes-AllNodesNum)
'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
StarNodes=AllNodesNum
end if
if EndNodes<0 then
EndNodes=0
end if
while StarNodes>=EndNodes
'从结束节点到超始节点之间读取节点数据
username=objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
'获得用户名
fromwhere=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
'获得用户来自那里
Posttime=objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
'获得留言时间
homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
'获得用户主页
email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
'获得用户Eamil
text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
'获昨留言内容
'***************************************************************************** 
'这里使作了XML的DOM来读取数据,显然objRootsite对像所对应的节点为<NewList>
' objRootsite.childNodes.item(StarNodes)所对应的节点就是<list>节点因为不至一个<list>节点所以用了item()
'来识别当前节点数据，随着StarNodes的递减<list>节点根着往上移一个个读取<list>节点数据。
'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所对应的节点为具体的每个节点的文本值，这里
'(1)所对应的就是username用户名（因为<list>节点的子节点才是我们真正所要的）
'****************************************************************************** 

text = replace(text,chr(13),"<br>")
'替代回车
text = replace(text,chr(32)," ")
'替代空格
%>
<tr bgcolor="#F0F0F0">
<td width="21%" height="94" valign="top">姓 名：<%=username%><br>
来 自：<%=fromwhere%><br>
</td>
<td width="79%" height="94" valign="top"> | <a href="<%=homepage%>" target=_blank title="<%=username%>的主页">主页</a> 
| | <a href="mailto:<%=email%>" title="给<%=username%>写信">信箱</a> | |<font color="#CC6633"> 
留言时间：<%=Posttime%> </font>| 
<hr>
<%=text%> </td>
</tr>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> </td>
</tr>
<% 
StarNodes=StarNodes-1
wend 
set objXML=nothing 
%>
<tr bgcolor="#FFFFFF" align="right"> 
<td colspan="2"> 共有<<%=PageNum%>>页 
<% 
if cint(PageNo)<>PageNum then'分页
response.write "<a href='index.asp?PageNo="&(PageNo+1)&"'>上一页</a>"
end if
if cint(PageNo)<>1 then
response.write "<a href='index.asp?PageNo="&(PageNo-1)&"'>下一页</a> "
end if
%>
</td>
</tr>
</table>
</body>
</html>

'-------------------------------------------------------------
list.xml
'-------------------------------------------------------------

<?xml version="1.0" encoding="gb2312"?>
<site>
<NewList>
<list>
<id>1</id>
<username>苛子</username>
<fromwhere>中国广州</fromwhere>
<Posttime>01-4-23 18:26:56</Posttime>
<homepage>http://page2000.xiloo.com</homepage>
<email>lucaihui@cmmail.com</email>
<text>这是我的第一个XML文件 </text>
</list>
<list>
<id>2</id>
<username>hfgh</username>
<fromwhere>中国</fromwhere>
<Posttime>2001-1-1 4:23:00</Posttime>
<homepage>http://</homepage>
<email>fgh</email>
<text>fgh</text>
</list>
<list>
<id>3</id>
<username>gggg</username>
<fromwhere>中国</fromwhere>
<Posttime>2001-1-1 4:24:01</Posttime>
<homepage>http://</homepage>
<email>gg</email>
<text>gggg</text>
</list>
<list>
<id>4</id>
<username>hhhh</username>
<fromwhere>中国</fromwhere>
<Posttime>2001-1-1 4:24:57</Posttime>
<homepage>http://</homepage>
<email>hhhhhhhhh</email>
<text>hhhhhhhh</text>
</list>
<list>
<id>5</id>
<username>hhhhh</username>
<fromwhere>中国</fromwhere>
<Posttime>2001-1-1 4:25:15</Posttime>
<homepage>http://</homepage>
<email>hhhhhhhhhhh</email>
<text>hhhhhhhhhhhhhhhhhhhhhhhh</text>
</list>
</NewList>
</site>


天使ηò哭 2005-06-26 10:00 发表评论
]]>整套网页制作费用http://www.cnitblog.com/ilvs/articles/541.html天使ηò哭天使ηò哭Sun, 26 Jun 2005 01:56:00 GMThttp://www.cnitblog.com/ilvs/articles/541.htmlhttp://www.cnitblog.com/ilvs/comments/541.htmlhttp://www.cnitblog.com/ilvs/articles/541.html#Feedback0http://www.cnitblog.com/ilvs/comments/commentRss/541.htmlhttp://www.cnitblog.com/ilvs/services/trackbacks/541.html
整套网页制作费用
1. 首页制作
   高级:500-800元/页，运用全Flash技术，非常艺术化的表现公司的高水准的产品设
        计开发流程。
   普通:300元/页（不限图片、文字数），制作动画片、框架、菜单、JavaScripts等
        设计
2. 基本静态页
   100元/页
  页内包含
      a: 文字
         不多于500字汉字(或1000个英文字符）
      b : 图片
      不超过5个图形文件（静态）
      c: 链接
      采用文字直接链接
      d. 文字已录入
3.文字需代替录入和扫描
      50元/页
4.动态图像（主要指需要特别制作的动画）
   a.10帧以下：50元／幅
   b.10帧以上：80元／幅
5.产品拍照
    50.00元/产品，每产品拍照三次,并做photoshop处理，提前三天约定拍照时间
6.全景高设计
  价格面议; 设计欣赏1 ,设计欣赏2

备注:
      1.网页需要Java scripts, VB Scripts程序每个200元
      2.需要编写的CGI、ASP程序，价格面议
      3.需数据库支持的动态网页，依用户需求，另行签定开发协议书价格面议(请参考电子商务开发部分)



天使ηò哭 2005-06-26 09:56 发表评论
]]>Ant学习ing....http://www.cnitblog.com/ilvs/articles/539.html天使ηò哭天使ηò哭Sun, 26 Jun 2005 01:47:00 GMThttp://www.cnitblog.com/ilvs/articles/539.htmlhttp://www.cnitblog.com/ilvs/comments/539.htmlhttp://www.cnitblog.com/ilvs/articles/539.html#Feedback0http://www.cnitblog.com/ilvs/comments/commentRss/539.htmlhttp://www.cnitblog.com/ilvs/services/trackbacks/539.htmlAnt是一个很不错的合成工具，例如：jar,war,ear等，用Ant都可能自动帮你完成，但是写xml是比较烦琐的，虽然现在有很多xml工具，但是为了更好地学习Ant，我还是觉得自己写更好。

Ant总得来说：

只要关注两点就行了

一：每一个Ant都是由构成。

二：每一个都由来具体实现。

在具体实现中都是用来定义的，也是用得最多的。

编译java用javac，这个跟Dos下面一样的

指定需要编译的文件用classpath

生成文件夹用mkdir

删除文件夹用delete

指定完成用depends

指定用来编译的class用pathelement

包含文件用include

去除文件用exclude

只要掌握这些生成jar,war,ear应该没有什么问题了

PS: 认为depends翻译成依赖关系比较好，ant虽然基本用法简单，要写一个精妙的build。xml还是挺费力气的：）

ant学习中。。



天使ηò哭 2005-06-26 09:47 发表评论
]]>