Ⅰ ASP实现图片保存
代码如下: 很简单的,自己修改一下局部就OK了 /uploadx.asp <% Dim FormData, FormSize, Divider, bCrLf FormSize = Request.TotalBytes FormData = Request.BinaryRead(FormSize) bCrLf = ChrB(13) & ChrB(10) Divider = LeftB(FormData, InStrB(FormData, bCrLf) – 1) '将上传的文件保存到path所指定的目录下面。 'Formfield 上传表单的"file"域名 Path ' 要保存文件的服务器绝对路径，形式为："d:\path\subpath"或"d:\path\subpath\" 'MaxSize 限制上传文件的最大长度，以KByte为单位 ' SavType 服务器保存文件的方式： '0 唯一文件名方式，如果有同名则自动改名； '1 报错方式，如果有同名则出错； '2 覆盖方式，如果有同名则覆盖原来的文件 Function SaveFile(FormFileField, Path, MaxSize, SavType) Dim StreamObj,StreamObj1 Set StreamObj = Server.CreateObject("ADODB.Stream") Set StreamObj1 = Server.CreateObject("ADODB.Stream") StreamObj.Mode = 3 StreamObj1.Mode = 3 StreamObj.Type = 1 StreamObj1.Type = 1 SaveFile = "" StartPos = LenB(Divider) + 2 FormFileField = Chr(34) & FormFileField & Chr(34) If Right(Path,1) <> "\" Then Path = Path & "\" End If Do While StartPos > 0 strlen = InStrB(StartPos, FormData, bCrLf) – StartPos SearchStr = MidB(FormData, StartPos, strlen) If InStr(bin2str(SearchStr), FormFileField) > 0 Then FileName = bin2str(GetFileName(SearchStr,path,SavType)) If FileName <> "" Then FileStart = InStrB(StartPos, FormData, bCrLf & bCrLf) + 4 FileLen = InStrB(StartPos, FormData, Divider) – 2 – FileStart If FileLen <= MaxSize*1024 Then FileContent = MidB(FormData, FileStart, FileLen) StreamObj.Open StreamObj1.Open StreamObj.Write FormData StreamObj.Position=FileStart-1 StreamObj.CopyTo StreamObj1,FileLen If SavType =0 Then SavType = 1 End If StreamObj1.SaveToFile Path & FileName, SavType StreamObj.Close StreamObj1.Close If SaveFile <> "" Then SaveFile = SaveFile & "," & FileName Else SaveFile = FileName End If Else If SaveFile <> "" Then SaveFile = SaveFile & ",*TooBig*" Else SaveFile = "*TooBig*" End If End If End If End If If InStrB(StartPos, FormData, Divider) < 1 Then Exit Do End If StartPos = InStrB(StartPos, FormData, Divider) + LenB(Divider) + 2 Loop End Function '获取表单值 Function GetFormVal(FormName) GetFormVal = "" StartPos = LenB(Divider) + 2 FormName = Chr(34) & FormName & Chr(34) Do While StartPos > 0 strlen = InStrB(StartPos, FormData, bCrLf) – StartPos SearchStr = MidB(FormData, StartPos, strlen) If InStr(bin2str(SearchStr), FormName) > 0 Then ValStart = InStrB(StartPos, FormData, bCrLf & bCrLf) + 4 ValLen = InStrB(StartPos, FormData, Divider) – 2 – ValStart ValContent = MidB(FormData, ValStart, ValLen) If GetFormVal <> "" Then GetFormVal = GetFormVal & "," & bin2str(ValContent) Else GetFormVal = bin2str(ValContent) End If End If If InStrB(StartPos, FormData, Divider) < 1 Then Exit Do End If StartPos = InStrB(StartPos, FormData, Divider) + LenB(Divider) + 2 Loop End Function Function bin2str(binstr) Dim varlen, clow, ccc, skipflag skipflag = 0 ccc = "" varlen = LenB(binstr) For i = 1 To varlen If skipflag = 0 Then clow = MidB(binstr, i, 1) If AscB(clow) > 127 Then ccc = ccc & Chr(AscW(MidB(binstr, i + 1, 1) & clow)) skipflag = 1 Else ccc = ccc & Chr(AscB(clow)) End If Else skipflag = 0 End If Next bin2str = ccc End Function Function str2bin(str) For i = 1 To Len(str) str2bin = str2bin & ChrB(Asc(Mid(str, i, 1))) Next End Function Function GetFileName(str,path,savtype) Set fs = Server.CreateObject("Scripting.FileSystemObject") str = RightB(str,LenB(str)-InstrB(str,str2bin("filename="))-9) GetFileName = "" FileName = "" For i = LenB(str) To 1 Step -1 If MidB(str, i, 1) = ChrB(Asc("\")) Then FileName = MidB(str, i + 1, LenB(str) – i – 1) Exit For End If Next If savtype = 0 and fs.FileExists(path & bin2str(FileName)) = True Then hFileName = FileName rFileName = "" For i = LenB(FileName) To 1 Step -1 If MidB(FileName, i, 1) = ChrB(Asc(".")) Then hFileName = LeftB(FileName, i-1) rFileName = RightB(FileName, LenB(FileName)-i+1) Exit For End If Next For i = 0 to 9999 hFileName = hFileName & str2bin(i) If fs.FileExists(path & bin2str(hFileName) & i & bin2str(rFileName)) = False Then FileName = hFileName & str2bin(i) & rFileName Exit For End If Next End If Set fs = Nothing GetFileName = FileName End Function %>
Ⅱ ZL和ZLB是什么呢
ZL是轴流泵的代号，ZLB,ZLK,ZLDB等等是轴流泵的系列产品。
Ⅲ excel的文件打不开了··救命啊·不能识别的文件格式 怎么办啊·
打不开的原因比较多，比如文件错误或现在安装的EXCEL版本低于制作该文件是的版本等等，你需要提供是什么提示，然后才能帮到你！如果是版本问题建议你安装一个较高版本的OFFICE即可！
Ⅳ PROE有的时候打开文件找不到文件
文件名字不能有中文，可能中文的符号也不行，你改下名字试试。我看你那个括号是中文状态输入的吧。
Ⅳ 后缀ZLB的文件用什么打开
Project 2003
Ⅵ 求助.命令修改文件夹访问权限
md命令建立名为zlbqjx的文件夹,命令如下:md zlbqjxCacls命令使用格式如下： Cacls filename [/T] [/E] [/C] [/G user:perm] [/R user […]] [/P user:perm […]] [/D user […]] Filename——显示访问控制列表（以下简称ACL）； /T——更改当前目录及其所有子目录中指定文件的 ACL；/E—— 编辑 ACL 而不替换；/C——在出现拒绝访问错误时继续；/G user:perm——赋予指定用户访问权限。Perm 可以是R（读取）、W（写入）、C（更改，写入）、F （完全控制）；/R user——撤销指定用户的访问权限(仅在与 /E 一起使用)；/P user:perm——替换指定用户的访问权限；/D user——拒绝指定用户的访问。 1． 查看目录和ACL 以Windows XP系统为例，笔者使用Cacls命令查看E盘CCE目录访问控制权限。点击“开始→运行”，在运行对话框中输入“CMD”命令，弹出命令提示符对话框，在“E:\>”提示符下输入“Cacls CCE”命令，接着就会列出Windows XP系统中用户组和用户对CCE目录的访问控制权限项目。如果想查看CCE目录中所有文件访问控制权限，输入“Cacls cce\ ． ”命令即可。 2． 修改目录和ACL 设置用户访问权限：我们经常要修改目录和文件的访问权限，使用Cacls命令就很容易做到。下面要赋予本机用户testuser对d盘下test目录及其所有子目录中的文件有完全控制权限。在命令提示符对话框中输入“Cacls test/t /e /c /g testuser:f ”命令即可。 替换用户访问权限：将本机用户testuser的完全控制权限替换为只读权限。在命令提示符对话框中输入“ Cacls test/t /e /c /p testuser:r ”命令即可。 撤销用户访问权限：要想撤销本机用户testuser对该目录的完全控制权限也很容易，在命令提示符中运行“Cacls test/t /e /c /r testuser”即可。 拒绝用户访问：要想拒绝用户testuser访问test目录及其所有子目录中的文件，运行“Cacls test /t /e /c /d testuser”即可。 以上只是简单介绍Cacls命令的使用，建议大家亲自尝试一下，你会发现它还有很多奇妙的功能。
Ⅶ 我的电脑一开机就弹出了一个窗口：没有找到zlb1.dll因此这个应用程序未能启动。这是什么意思啊怎么办
同意2楼的，清理启动项里无用的程序开机就弹出了一个窗口：没有找到zlb1.dll因此这个应用程序未能启动 –系统开机运行某程序时找不到所关联的zlb1.dll文件而未能启动
Ⅷ zlbog的文章标题位置在哪里，或者说是在哪个文件下可以修改
《大泼猴》——甲鱼不是龟著
Ⅸ 后缀名为.zlp是什么文件，该用什么方式打开
这是压缩文件，解压就可以了.
