在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000637 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章
没有相关文章
发表文章
用asp整理磁盘文件

原作者:     提交人:万里     发布时间:04-02-11     文章类型:转贴     浏览量:1678
参考链结:http://    
关键字:
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000637]

机器的文件太多,需要整理一下,该如何做呢?????

本文以整理图片文件为例,给大家一点思路
代码的运行环境:iis5.0+sql server2000
数据库脚本:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[insertpic]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[insertpic]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[showpage]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[showpage]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[picpath]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[picpath]
GO

CREATE TABLE [dbo].[picpath] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[path] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

--作用:插入记录
CREATE PROCEDURE [insertpic]
(
--路径--
@path  varchar(100)
)
AS
insert picpath(path) values(@path)
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

/*
'# 过程:showpage
'# 描述:用来记录集分页
'# 参数: - pagenum (页码)
'# 返回:-两个记录集,第一个记录集包含两个字段(总页数),第二个记录集为数据库返回给程序要显示的数据
'# 作者:zhengs
'# 日期:2002-08-27

*/

CREATE PROCEDURE showpage
----页码
@PageNum int
AS
SET NOCOUNT  ON
declare
@pagecount int,
@iFrom int,
@iRowCount int,
@dpicid int



----计算该页起始的偏移量
if @PageNum <= 0
set @PageNum = 1

set @iFrom = 10 * (@PageNum - 1) + 1


----判断传入的页码是否有效
select @iRowCount = count(id) from picpath ----取得图片数
set @PageCount = @iRowCount / 10 ----计算图片页数

if @iRowCount %10> 0
        set @PageCount = @PageCount + 1

          if @iRowCount < @iFrom
            begin
      set @iFrom = @iRowCount - 10
            end
      if @iFrom<0
      select @iFrom=0
      set rowcount @iFrom
      select @dpicid = id from picpath order by id desc
      set rowcount 0

----取得图片列表
      select @pagecount as pagecount
      select top 10 *  from  picpath Where  id <= @dpicid order by  id desc

      SET NOCOUNT  off
      SP_END:
select @pagecount as pagecount
SET NOCOUNT  off
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

搜索并存储到数据库
search.asp

<%@LANGUAGE="VBSCRIPT" %>
<%
'***********************************************************************************

' 文件名.........: search.asp
' 作者...........: cxb
' 说明...........: 搜索并存储到数据库
' 注意...........:
' 版权...........: Copyright (c) 2000, NetDragon Software.
' 修改记录.......: 时间        人员    备注
'                  ---------    -------  -------------------------------------------
'                  2003-09-26    陈兴柏  创建文件

'***********************************************************************************
Server.ScriptTimeOut=500
dim a,b
'检测时间参数
a=timer
dim conn,strconn
Set conn = Server.CreateObject("ADODB.Connection")
strconn = "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=search;User ID=sa;Password=196881"
conn.open strconn

Const adCmdStoredProc = &H0004
Const adParamInput = &H0001
Const adVarChar = 200

'# --------------------------------------------------------------------------
'# 函数:getFileExtName
'# 描述:获得文件是否为图片文件
'# 参数:--fName
'# 返回:--true or false
'# 作者:cxb
'# 日期:2003-9-26
'#--------------------------------------------------------------------------
function getFileExtName(fName)

if instr(fname,".gif") or instr(fname,".GIF")  or instr(fname,".jpg") or instr(fname,".JPG") or instr(fname,".bmp")  or instr(fname,".BMP")  then
    getFileExtName=true
else
  getFileExtName=false
end if
end function


'# --------------------------------------------------------------------------
'# 函数:insertfilepath
'# 描述:将路径信息插入数据库
'# 参数:--filename
'# 返回:--
'# 作者:cxb
'# 日期:2003-9-26
'#--------------------------------------------------------------------------
function insertfilepath(filename)
            dim picCommand,filepath
    set picCommand=Server.CreateObject("ADODB.command")
    set picCommand.ActiveConnection=conn
    picCommand.CommandType=adCmdStoredProc
    picCommand.CommandText="insertpic"
    set filepath=picCommand.CreateParameter("path",advarchar,adparaminput,100)
            picCommand.parameters.append filepath
    picCommand("path")=filename
    picCommand.Execute
    set picCommand=nothing
end function

'# --------------------------------------------------------------------------
'# 函数:ShowFiles
'# 描述:搜索文件夹和文件
'# 参数:objfolder
'# 作者:cxb
'# 返回:所有的文件名和所在的目录
'# 日期:2003-9-26
'#--------------------------------------------------------------------------

function ShowFiles(byref objfolder)
        dim folder,filename
  '递归获得所有的文件
        for each folder in objfolder.subfolders
                  ShowFiles folder
        next

        for each filename in objfolder.files '搜索所有的文件
      if getFileExtName(filename.name) then '检查是否为图片
          insertfilepath(filename) '存储到数据库
      end if 
        next
 
end function

dim objfolder,objrootfolder
set objfolder=Server.createobject("Scripting.FileSystemObject")
set objrootfolder=objfolder.GetFolder("C:\Inetpub\wwwroot\zy")

'这里的路径可以改变
if request.QueryString("action")="search" then
  ShowFiles objrootfolder
  b=timer '程序结束时间
  response.Write("共运行"&b-a&"秒")
  '搜索并存储
end if

set conn=nothing
%><title>搜索并存储到数据库</title>
<div align="center"><a href=search.asp?action=search>搜索并存储到数据库</a></div>

整理页面
show.asp

<%@LANGUAGE="VBSCRIPT" %>
<%
'***********************************************************************************

' 文件名.........: show.asp
' 作者...........: cxb
' 说明...........:
' 注意...........:
' 版权...........: Copyright (c) 2000, NetDragon Software.
' 修改记录.......: 时间        人员    备注
'                  ---------    -------  -------------------------------------------
'                  2003-09-26    陈兴柏  创建文件

'***********************************************************************************
Server.ScriptTimeOut=100

dim conn,strconn
Set conn = Server.CreateObject("ADODB.Connection")
strconn = "Provider=SQLOLEDB;Data Source=192.168.1.221;Initial Catalog=search;User ID=sa;Password=196881"
conn.open strconn



Const adCmdStoredProc = &H0004
Const adParamInput = &H0001
Const adInteger = 3
page=replace(request("page"),"'","")
if page="" then page=1
page=clng(page)

if request("action")="wl" then
        '完成删除物理图片         
      delwl(Request("checkbox"))
end if
dim news
pic=createpic(page) '显示页面



conn.close
set conn=nothing

'# ----------------------------------------------------------------------------
'# 函数:delwl(id)
'# 描述:完成删除物理图片
'# 参数:id
'# 返回:--
'# 作者:陈兴柏
'# 日期:2003.09.26
'#-----------------------------------------------------------------------------
function delwl(id)
      if id <>"" then
        dim fso,skyfile,rs,sql ,AdoCmd_del
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set rs= Server.CreateObject("ADODB.Recordset")
            sql="select path FROM picpath WHERE id IN " 
            sql=sql &"(" & id & ")"
  rs.open sql,conn,1,3
            while not rs.eof
      if Fso.FileExists (rs(0))  then
              Set skyfile = fso.GetFile(rs(0))
              skyfile.Delete()
                end if
  rs.movenext
  wend
  set rs=nothing
  set fso=nothing
  '以上完成删除物理图片
  '以下完成删除数据库的图片信息
            sql="DELETE FROM picpath WHERE id IN " 
            sql=sql &"(" & id & ")"
            set AdoCmd_del = Server.CreateObject("ADODB.Command")
            AdoCmd_del.ActiveConnection = conn
            AdoCmd_del.CommandText = sql
            AdoCmd_del.Execute()
  set AdoCmd_del=nothing 
            response.write "<script>alert('已经成功删除物理图片!');window.location='show.asp?page="&page&"';</script>"
      end if

end function


'# ----------------------------------------------------------------------------
'# 函数:createpic
'# 描述:生成图片信息并分页
'# 参数:page
'# 返回:--
'# 作者:陈兴柏
'# 日期:2003.09.26
'#-----------------------------------------------------------------------------
function Createpic(page)
        dim picCommand,yeshu,strtemp,tp,id
  set picCommand=Server.CreateObject("ADODB.command")
  set picCommand.ActiveConnection=conn
  picCommand.CommandType=adCmdStoredProc
  picCommand.CommandText="showpage"
  set Pagenum=picCommand.CreateParameter("@PageNum",adInteger,adparaminput)
        picCommand.parameters.append Pagenum
  '传递页数
  picCommand("@PageNum")=clng(page)
  set rs=picCommand.Execute
  yeshu=rs("pagecount")
  set rs=rs.nextrecordset
  strtemp=""
  strtemp="<form method='post'><table width=100% style='border-collapse: collapse; border: 1 solid #669ED6' cellspacing=0 cellpadding=2>"
  IF  rs.eof THEN
         
    strTemp=strTemp&"<tr><td><font color='#FF0000'>对不起!暂时没有信息!</font></tr></td>"
    strTemp=strTemp&"</table>"
        else
      strTemp = strTemp &"<tr><td style='border: 1 solid #669ED6' align=center><input type=button value=全选 onClick='this.value=check(this.form.checkbox)'></td><td style='border: 1 solid #669ED6' bgcolor='#999999' align=center><font size=3><font face=黑体>路径</font></font></td><td style='border: 1 solid #669ED6' bgcolor='#999999' align=center> <font size=3><font face=黑体>图片</font></font></td></tr>"
            Do while (not Rs.Eof)
      id=rs(0)
      tp=rs(1)
        strTemp = strTemp &"<tr><td style='border: 1 solid #669ED6'  align=center><input type=checkbox name=checkbox value="&id&"></td><td style='border: 1 solid #669ED6'>"&tp&"</td><td style='border: 1 solid #669ED6'><a href=showdetail.asp?tp="&tp&" target=_blank><img src="&tp&" width=100 height=50 border=0 alt=点击这里查看原图></a></td></tr>"
      Rs.MoveNext
  Loop
      strTemp=strTemp&"</table>"
  strTemp=strTemp&"<table width=500 border=0 cellspacing=0 cellpadding=0> <tr><td><input type=submit name=Submit value=删除选中物理图片 onclick=this.form.action='show.asp?action=wl&page="&page&"'></td></tr></table></form>"
      strTemp=strTemp&"<br><table width=100% ><form name='form1' action=show.asp><tr><td align=right>"
       
            if page<>1 and yeshu>=1  then
                strTemp=strTemp&"<a href=show.asp?page=1>第一页</a>"
                strTemp=strTemp&"<a href=show.asp?page="&cint(page-1)&">上一页</a>"
            end if
            if page<>yeshu and yeshu>=1 then
                strTemp=strTemp&"<a href=show.asp?page="&cint(page+1)&">下一页</a>"
    strTemp=strTemp&"<a  href=show.asp?page="&yeshu&">最后一页</a>"
     
            end if
            if yeshu>=1 then
                strTemp="  "&strTemp&page&"/"&yeshu&"页"
            end if
            if yeshu>=2 then '如果页数大于1就建立跳转
                strTemp=strTemp& " 第"&"<input name='page' type='text' id='page' size='2'>"&"页 <a href=# onclick='document.form1.submit();'>go</a>"
            end if
            strTemp=strTemp&"</tr></td></form ></table>"
  end if
  Createpic=strtemp

    Rs.close
    set Rs=nothing
   
set picCommand=nothing
    end function

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<style>

a {
font-size: 12px;
text-decoration: none;
font-family: "Arial", "Helvetica", "sans-serif";
line-height: 20px;
; color: #000000

}
a:active {  font-size: 12px; color: #000000; text-decoration: none; font-family: "Arial", "Helvetica", "sans-serif"}
a:hover {  font-size: 12px; color: #FF6600; font-family: "Arial", "Helvetica", "sans-serif"; text-decoration: none}
.white {
font-family: "Arial", "Helvetica", "sans-serif";
font-size: 12px;
line-height: 20px;
color: #FFFFFF;
text-decoration: none;
}</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>显示图片</title>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
  <table width="650" height="18" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td ><%=pic%></td>
    </tr>
  </table>
  </div>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "全不选"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "全选"; }
}
//  End -->
</script>
</body>
</html>

showdetail.asp

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>显示图片</title>
</head>

<body>
<a href="#" onClick="javascript:window.close();"><img src="<%=request.QueryString("tp")%>" border="0" alt="点击关闭"></a>
</body>
</html>

完成!
当然你可以根据需要 增加或删除一些咚咚!

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2020 Yup Studio, all rights reserved.  
117.1875