关于图片通过asp代码上传到access数据库，又从access数据库显示到网页的代码？
要说的是。本人目前采用的access数据库，基本想实现的是图文混排的那种效果，中间不需要把图片传至任何一个图片文件夹，而是在网页上通过asp代码直接从access数据库调...
要说的是。本人目前采用的access数据库，基本想实现的是图文混排的那种效果，中间不需要把图片传至任何一个图片文件夹，而是在网页上通过asp代码直接从access数据库调出来。说下上传的有那些:
<form id="form1" name="form1" method="post" action="" onSubmit="javascript:return check()">
<table width="418" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF">
<td height="20" colspan="2" align="center"><strong>艺术知识信息添加</strong></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"> 标题
<input name="title" type="text" id="title" size="20" maxlength="20">
作者
<label>
<input name="author" type="text" id="author" size="10" maxlength="10">
</label></td>
</tr>
<tr>
<td width="300" align="center" valign="middle"><input name="images" type="file" size="20">
</td>
<td><input type="submit" name=ok value="上传"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" height="20">内容</td>
<td width="327" height="20"><textarea name="content" cols="40" rows="10" id="content"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"><input name="ok" type="submit" id="ok" value="确定" /></td>
<td height="20"><input name="cancel" type="reset" id="cancel" value="取消" /></td>
</tr>
</table>
</form>
谢谢大家帮哈忙？
采纳后再送上分！在线等！ 图片和文字在一个数据表中，img是字段名。有图片大小的限制，图片格式限制等希望大家能帮我考虑的周到些，谢谢！ 展开
<form id="form1" name="form1" method="post" action="" onSubmit="javascript:return check()">
<table width="418" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF">
<td height="20" colspan="2" align="center"><strong>艺术知识信息添加</strong></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"> 标题
<input name="title" type="text" id="title" size="20" maxlength="20">
作者
<label>
<input name="author" type="text" id="author" size="10" maxlength="10">
</label></td>
</tr>
<tr>
<td width="300" align="center" valign="middle"><input name="images" type="file" size="20">
</td>
<td><input type="submit" name=ok value="上传"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" height="20">内容</td>
<td width="327" height="20"><textarea name="content" cols="40" rows="10" id="content"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"><input name="ok" type="submit" id="ok" value="确定" /></td>
<td height="20"><input name="cancel" type="reset" id="cancel" value="取消" /></td>
</tr>
</table>
</form>
谢谢大家帮哈忙？
采纳后再送上分！在线等！ 图片和文字在一个数据表中，img是字段名。有图片大小的限制，图片格式限制等希望大家能帮我考虑的周到些，谢谢！ 展开
1个回答
展开全部
1:Upform.asp 内容如下.1：Upform.asp内容如下。
<html>
的<head>
<标题>图片上传“/标题”
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
“！ -
身体（
背景颜色：＃000000;
）
- “
“/样式”“/头”
<SCRIPT language=JavaScript>
“！ -
功能checkform（）
（
如果（document.form1.filepath.value =="")（
警报（“请选择上传位置！”）;
document.form1.filepath.focus（）;
返回false;
）
返回true;
）
//-->
“/脚本”
的<Body>
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
<form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data" onSubmit="return checkform();">
<tr class=CommonListTitle height="25">
<td height="22" align="left" valign="middle">文件上传
<input type="hidden" name="act" value="upload">
（此功能上传速度会有些慢！提交后请稍等！）“/运输署”
“/训练班”
<tr align="left" valign="middle" class="CommonListCell">
<td“
<script language="javascript">
功能setid（）
（
海峡='<br>';
如果（！window.form1.upcount.value）
window.form1.upcount.value = 1;
为（= 1，我“= window.form1.upcount.value，我+ +）
海峡+ ='文件'+一+'名：<input type="file" name="file'+i+'" style="width:250"> <br>';
window.upid.innerHTML =海峡+'<br>';
）
“/脚本”
<li>上传个数：
<input name="upcount" type="text" value="1" size="10">
<input name="Button" type="button" class="button" onClick="setid();" value="行销设定">
位置：
<选择name="filepath">
<option value="">上传位置“/选项”>
<option value="../Passenger">海底风光“/选项”>这里的值。是文件夹的名称。你要先创建好文件名称哦。如这里就是放在客运这个文件夹下面。
“/选择”>
“/李”
“/运输署”
“/训练班”
<tr align="center" valign="middle" class="CommonListCell">
<td align="left" id="upid">文件1：
<input type="file" name="file1" style="width:250" value="">“/运输署”
“/训练班”
<tr align="center" valign="middle" class=CommonListTitle“
<td>
<input name="Submit" type="submit" class="button" value="行销提交">
<input name="Submit2" type="reset" class="button" value="行销重执">“/运输署”
“/训练班”
“/表格”
“/表”
“/体”
“/的HTML”
<script language="javascript">
setid（）;
“/脚本”
“/体”
“/的HTML”
================================================== =====================
2：Upfile.asp内容如下。
“％
暗淡科恩mypath中
设置康恩= server.createobject（“adodb.connection”）
mypath中= server.mappath（“xx.mdb”）'建立数据库连接。
conn.open“商= microsoft.jet.oledb.4.0;数据源=”＆mypath中
％“
<!--#包括文件=“upload_5xsoft.inc” - “
<html>
的<head>
<标题>照片“/标题”
<link href="../style/style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
“/头”
的<Body>
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1"> <tr class=CommonListTitle height="25">
<td>上传结果“/运输署”
“/训练班”
<tr class="CommonListCell">
<td>
“％
暗淡上传，文件，formName，formPath，iCount，Photo_Beizhu，upcount
设置新upload_5xSoft上传= ''建立上传对象
response.write upload.Version＆“<BR> <BR>在”''显示上传类的版本
如果upload.form（“文件路径")=""然后''得到上传目录
HtmEnd“请输入要上传至的目录！”
没有设置上传=
response.end
其他的
formPath = upload.form（“文件路径”）
''在目录后加（/）
如果权利（formPath，1 )<>"/"然后formPath = formPath＆“/”
最后，如果
暗淡卢比，则SQL
设置卢比= server.createobject（“adodb.recordset”）
的SQL =“选择*从”和替换（替换（formPath ,"..",""),"/","")&""
rs.open SQL中，科恩1,3
iCount = 0
每个formName upload.file ''列出所有上传了的文件
设置文件= upload.file（formName）''生成一个文件对象
如果file.FileSize“0，那么''如果文件大小”0说明有文件数据
file.SaveAs Server.mappath（formPath＆file.FileName）''保存文件
'录入数据库
rs.addnew
卢比（“字段”）= formPath＆File.FileName
rs.update
response.write file.FilePath＆file.FileName＆“（”＆file.FileSize＆“）=”“＆formPath＆File.FileName＆”成功！<br>“
iCount = iCount +1
最后，如果
没有设置文件=
下一个
没有设置上传= ''删除此对象
Htmend iCount＆“个文件上传结束！”
分HtmEnd（消息）
没有设置上传=
response.write“<br>”＆消息＆“[<a href=""javascript:history.back();"">返回”/ 1“]”
结束分
％“”/运输署“
“/训练班”
“/表”
“/体”
“/的HTML”
================================================== ===========
3：upload_5xsoft.inc这个最重要的文件。内容如下。
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'请保留此信息
'
'''''''''''''''''''''''''''''''''''''''''''''''''
暗淡upfile_5xSoft_Stream
类upload_5xSoft
昏暗的表格，文件，版本
私人小组Class_Initialize在
暗淡iStart，iFileNameStart，iFileNameEnd，iEnd，vbEnter，iFormStart，iFormEnd，theFile
暗淡strDiv，mFormName，mFormValue，mFileName，mFileSize，mFilePath，iDivLen，mStr
版本=“上传程序版本1.0”
如果Request.TotalBytes“1分，然后退出
设置表格=的CreateObject（“Scripting.Dictionary”）
设置文件=的CreateObject（“Scripting.Dictionary”）
设置upfile_5xSoft_Stream =的CreateObject（“的ADODB.Stream”）
upfile_5xSoft_Stream.mode = 3
upfile_5xSoft_Stream.type = 1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead（Request.TotalBytes）
vbEnter =织红细胞（13）＆织红细胞（10）
iDivLen = inString（1，vbEnter）+1
strDiv =子串（1，iDivLen）
iFormStart = iDivLen
iFormEnd = inString（iformStart，strDiv）-1
而iFormStart“iFormEnd
iStart = inString（iFormStart，“名称=""")
iEnd = inString（iStart +6 ,"""")
mFormName =子串（iStart +6，iEnd - iStart - 6）
iFileNameStart = inString（iEnd +1“文件名=""")
如果iFileNameStart“零和iFileNameStart”iFormEnd然后
iFileNameEnd = inString（iFileNameStart 10 ,"""")
mFileName =子串（iFileNameStart 10，iFileNameEnd - iFileNameStart - 10）
iStart = inString（iFileNameEnd 1，vbEnter＆vbEnter）
iEnd = inString（iStart +4，vbEnter＆strDiv）
如果iEnd“iStart然后
mFileSize = iEnd - iStart - 4
其他的
mFileSize = 0
最后，如果
新成立theFile = FileInfo的
theFile.FileName = getFileName（mFileName）
theFile.FilePath = getFilePath（mFileName）
theFile.FileSize = mFileSize
theFile.FileStart = iStart +4
theFile.FormName = FormName
file.add mFormName，theFile
其他的
iStart = inString（iEnd +1，vbEnter＆vbEnter）
iEnd = inString（iStart +4，vbEnter＆strDiv）
如果iEnd“iStart然后
mFormValue =子串（iStart +4，iEnd - iStart - 4）
其他的
mFormValue =“”
最后，如果
form.Add mFormName，mFormValue
最后，如果
iFormStart = iformEnd + iDivLen
iFormEnd = inString（iformStart，strDiv）-1
一把故乡
完子
私有函数串（theStart，特伦）
暗淡，C节，stemp
upfile_5xSoft_Stream.Position = theStart - 1
stemp =“”
其中i = 1特伦
如果upfile_5xSoft_Stream.EOS然后出境
荤= ascB（upfile_5xSoft_Stream.Read（1））
如果c“，然后127
如果upfile_5xSoft_Stream.EOS然后出境
stemp = stemp＆织红细胞（AscW（ChrB（AscB（upfile_5xSoft_Stream.Read（1）））＆ChrB（三）））
i =我一
其他的
stemp = stemp＆织红细胞（三）
完如果
下一个
串= stemp
完功能
私有函数inString（theStart，varStr）
暗淡的我，ĵ，队，一年半前，海峡
InString = 0
海峡= toByte（varStr）
特伦= LenB（海峡）
其中i = theStart的upfile_5xSoft_Stream.Size，特伦
如果我“upfile_5xSoft_Stream.size然后退出功能
upfile_5xSoft_Stream.Position =的i - 1
如果AscB（upfile_5xSoft_Stream.Read（1））= AscB（midB（海峡，1）），然后
InString =我
办理J = 2特伦
然后，如果upfile_5xSoft_Stream.EOS
inString = 0
出境
最后，如果
如果AscB（upfile_5xSoft_Stream.Read（1））“”AscB（MidB（海峡，ĵ，1）），然后
InString = 0
退出对于
最后，如果
下一个
如果InString“”0，那么退出功能
最后，如果
下一个
完函数
私人小组的Class_Terminate
form.RemoveAll
file.RemoveAll
设置任何形式=
没有设置文件=
upfile_5xSoft_Stream.close
没有设置upfile_5xSoft_Stream =
完子
私有函数GetFilePath（FullPath）
如果FullPath“”“”那
GetFilePath =左（FullPath，InStrRev（FullPath，“\”））
其他的
GetFilePath =“”
完如果
完功能
私有函数GetFileName（FullPath）
如果FullPath“”“”那
GetFileName =中期（FullPath，InStrRev（FullPath，“\”）+1）
其他的
GetFileName =“”
完如果
完功能
私有函数toByte（海峡）
暗淡我的ICODE，丙，iLow，iHigh
toByte =“”
对于i = 1 Len（海峡）
荤=中期（海峡，我，1）
的ICODE =升序（三）
如果的ICODE“0那么的ICODE =的ICODE + 65535
如果的ICODE“255，然后
iLow =左（十六进制（升序（三）），2）
iHigh =右（十六进制（升序（三）），2）
toByte = toByte＆chrB（“＆H公司”＆iLow）＆chrB（“＆H公司”＆iHigh）
其他的
toByte = toByte＆chrB（AscB（c）项）
完如果
下一个
完功能
最终类
FileInfo的类
暗淡FormName，文件名，文件路径，文件大小，FileStart
私人小组Class_Initialize在
文件名=“”
文件路径=“”
文件大小= 0
FileStart = 0
FormName =“”
完子
公共函数另存为（FullPath）
昏暗的博士，ErrorChar，我
另存为= 1
如果修剪（fullpath）=“”或文件大小= 0或FileStart = 0或文件名=“”，然后退出功能
如果FileStart = 0或右（fullpath，1 )="/"然后退出功能
设置博士=的CreateObject（“的ADODB.Stream”）
dr.Mode = 3
dr.Type = 1
dr.Open
upfile_5xSoft_Stream.position = FileStart - 1
upfile_5xSoft_Stream.copyto博士，文件大小
dr.SaveToFile FullPath，2
dr.Close
没有设置博士=
另存为= 0
为此功能
最终类
“/脚本”
“/体”
“/的HTML”
完工。
<html>
的<head>
<标题>图片上传“/标题”
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
“！ -
身体（
背景颜色：＃000000;
）
- “
“/样式”“/头”
<SCRIPT language=JavaScript>
“！ -
功能checkform（）
（
如果（document.form1.filepath.value =="")（
警报（“请选择上传位置！”）;
document.form1.filepath.focus（）;
返回false;
）
返回true;
）
//-->
“/脚本”
的<Body>
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
<form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data" onSubmit="return checkform();">
<tr class=CommonListTitle height="25">
<td height="22" align="left" valign="middle">文件上传
<input type="hidden" name="act" value="upload">
（此功能上传速度会有些慢！提交后请稍等！）“/运输署”
“/训练班”
<tr align="left" valign="middle" class="CommonListCell">
<td“
<script language="javascript">
功能setid（）
（
海峡='<br>';
如果（！window.form1.upcount.value）
window.form1.upcount.value = 1;
为（= 1，我“= window.form1.upcount.value，我+ +）
海峡+ ='文件'+一+'名：<input type="file" name="file'+i+'" style="width:250"> <br>';
window.upid.innerHTML =海峡+'<br>';
）
“/脚本”
<li>上传个数：
<input name="upcount" type="text" value="1" size="10">
<input name="Button" type="button" class="button" onClick="setid();" value="行销设定">
位置：
<选择name="filepath">
<option value="">上传位置“/选项”>
<option value="../Passenger">海底风光“/选项”>这里的值。是文件夹的名称。你要先创建好文件名称哦。如这里就是放在客运这个文件夹下面。
“/选择”>
“/李”
“/运输署”
“/训练班”
<tr align="center" valign="middle" class="CommonListCell">
<td align="left" id="upid">文件1：
<input type="file" name="file1" style="width:250" value="">“/运输署”
“/训练班”
<tr align="center" valign="middle" class=CommonListTitle“
<td>
<input name="Submit" type="submit" class="button" value="行销提交">
<input name="Submit2" type="reset" class="button" value="行销重执">“/运输署”
“/训练班”
“/表格”
“/表”
“/体”
“/的HTML”
<script language="javascript">
setid（）;
“/脚本”
“/体”
“/的HTML”
================================================== =====================
2：Upfile.asp内容如下。
“％
暗淡科恩mypath中
设置康恩= server.createobject（“adodb.connection”）
mypath中= server.mappath（“xx.mdb”）'建立数据库连接。
conn.open“商= microsoft.jet.oledb.4.0;数据源=”＆mypath中
％“
<!--#包括文件=“upload_5xsoft.inc” - “
<html>
的<head>
<标题>照片“/标题”
<link href="../style/style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
“/头”
的<Body>
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1"> <tr class=CommonListTitle height="25">
<td>上传结果“/运输署”
“/训练班”
<tr class="CommonListCell">
<td>
“％
暗淡上传，文件，formName，formPath，iCount，Photo_Beizhu，upcount
设置新upload_5xSoft上传= ''建立上传对象
response.write upload.Version＆“<BR> <BR>在”''显示上传类的版本
如果upload.form（“文件路径")=""然后''得到上传目录
HtmEnd“请输入要上传至的目录！”
没有设置上传=
response.end
其他的
formPath = upload.form（“文件路径”）
''在目录后加（/）
如果权利（formPath，1 )<>"/"然后formPath = formPath＆“/”
最后，如果
暗淡卢比，则SQL
设置卢比= server.createobject（“adodb.recordset”）
的SQL =“选择*从”和替换（替换（formPath ,"..",""),"/","")&""
rs.open SQL中，科恩1,3
iCount = 0
每个formName upload.file ''列出所有上传了的文件
设置文件= upload.file（formName）''生成一个文件对象
如果file.FileSize“0，那么''如果文件大小”0说明有文件数据
file.SaveAs Server.mappath（formPath＆file.FileName）''保存文件
'录入数据库
rs.addnew
卢比（“字段”）= formPath＆File.FileName
rs.update
response.write file.FilePath＆file.FileName＆“（”＆file.FileSize＆“）=”“＆formPath＆File.FileName＆”成功！<br>“
iCount = iCount +1
最后，如果
没有设置文件=
下一个
没有设置上传= ''删除此对象
Htmend iCount＆“个文件上传结束！”
分HtmEnd（消息）
没有设置上传=
response.write“<br>”＆消息＆“[<a href=""javascript:history.back();"">返回”/ 1“]”
结束分
％“”/运输署“
“/训练班”
“/表”
“/体”
“/的HTML”
================================================== ===========
3：upload_5xsoft.inc这个最重要的文件。内容如下。
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'请保留此信息
'
'''''''''''''''''''''''''''''''''''''''''''''''''
暗淡upfile_5xSoft_Stream
类upload_5xSoft
昏暗的表格，文件，版本
私人小组Class_Initialize在
暗淡iStart，iFileNameStart，iFileNameEnd，iEnd，vbEnter，iFormStart，iFormEnd，theFile
暗淡strDiv，mFormName，mFormValue，mFileName，mFileSize，mFilePath，iDivLen，mStr
版本=“上传程序版本1.0”
如果Request.TotalBytes“1分，然后退出
设置表格=的CreateObject（“Scripting.Dictionary”）
设置文件=的CreateObject（“Scripting.Dictionary”）
设置upfile_5xSoft_Stream =的CreateObject（“的ADODB.Stream”）
upfile_5xSoft_Stream.mode = 3
upfile_5xSoft_Stream.type = 1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead（Request.TotalBytes）
vbEnter =织红细胞（13）＆织红细胞（10）
iDivLen = inString（1，vbEnter）+1
strDiv =子串（1，iDivLen）
iFormStart = iDivLen
iFormEnd = inString（iformStart，strDiv）-1
而iFormStart“iFormEnd
iStart = inString（iFormStart，“名称=""")
iEnd = inString（iStart +6 ,"""")
mFormName =子串（iStart +6，iEnd - iStart - 6）
iFileNameStart = inString（iEnd +1“文件名=""")
如果iFileNameStart“零和iFileNameStart”iFormEnd然后
iFileNameEnd = inString（iFileNameStart 10 ,"""")
mFileName =子串（iFileNameStart 10，iFileNameEnd - iFileNameStart - 10）
iStart = inString（iFileNameEnd 1，vbEnter＆vbEnter）
iEnd = inString（iStart +4，vbEnter＆strDiv）
如果iEnd“iStart然后
mFileSize = iEnd - iStart - 4
其他的
mFileSize = 0
最后，如果
新成立theFile = FileInfo的
theFile.FileName = getFileName（mFileName）
theFile.FilePath = getFilePath（mFileName）
theFile.FileSize = mFileSize
theFile.FileStart = iStart +4
theFile.FormName = FormName
file.add mFormName，theFile
其他的
iStart = inString（iEnd +1，vbEnter＆vbEnter）
iEnd = inString（iStart +4，vbEnter＆strDiv）
如果iEnd“iStart然后
mFormValue =子串（iStart +4，iEnd - iStart - 4）
其他的
mFormValue =“”
最后，如果
form.Add mFormName，mFormValue
最后，如果
iFormStart = iformEnd + iDivLen
iFormEnd = inString（iformStart，strDiv）-1
一把故乡
完子
私有函数串（theStart，特伦）
暗淡，C节，stemp
upfile_5xSoft_Stream.Position = theStart - 1
stemp =“”
其中i = 1特伦
如果upfile_5xSoft_Stream.EOS然后出境
荤= ascB（upfile_5xSoft_Stream.Read（1））
如果c“，然后127
如果upfile_5xSoft_Stream.EOS然后出境
stemp = stemp＆织红细胞（AscW（ChrB（AscB（upfile_5xSoft_Stream.Read（1）））＆ChrB（三）））
i =我一
其他的
stemp = stemp＆织红细胞（三）
完如果
下一个
串= stemp
完功能
私有函数inString（theStart，varStr）
暗淡的我，ĵ，队，一年半前，海峡
InString = 0
海峡= toByte（varStr）
特伦= LenB（海峡）
其中i = theStart的upfile_5xSoft_Stream.Size，特伦
如果我“upfile_5xSoft_Stream.size然后退出功能
upfile_5xSoft_Stream.Position =的i - 1
如果AscB（upfile_5xSoft_Stream.Read（1））= AscB（midB（海峡，1）），然后
InString =我
办理J = 2特伦
然后，如果upfile_5xSoft_Stream.EOS
inString = 0
出境
最后，如果
如果AscB（upfile_5xSoft_Stream.Read（1））“”AscB（MidB（海峡，ĵ，1）），然后
InString = 0
退出对于
最后，如果
下一个
如果InString“”0，那么退出功能
最后，如果
下一个
完函数
私人小组的Class_Terminate
form.RemoveAll
file.RemoveAll
设置任何形式=
没有设置文件=
upfile_5xSoft_Stream.close
没有设置upfile_5xSoft_Stream =
完子
私有函数GetFilePath（FullPath）
如果FullPath“”“”那
GetFilePath =左（FullPath，InStrRev（FullPath，“\”））
其他的
GetFilePath =“”
完如果
完功能
私有函数GetFileName（FullPath）
如果FullPath“”“”那
GetFileName =中期（FullPath，InStrRev（FullPath，“\”）+1）
其他的
GetFileName =“”
完如果
完功能
私有函数toByte（海峡）
暗淡我的ICODE，丙，iLow，iHigh
toByte =“”
对于i = 1 Len（海峡）
荤=中期（海峡，我，1）
的ICODE =升序（三）
如果的ICODE“0那么的ICODE =的ICODE + 65535
如果的ICODE“255，然后
iLow =左（十六进制（升序（三）），2）
iHigh =右（十六进制（升序（三）），2）
toByte = toByte＆chrB（“＆H公司”＆iLow）＆chrB（“＆H公司”＆iHigh）
其他的
toByte = toByte＆chrB（AscB（c）项）
完如果
下一个
完功能
最终类
FileInfo的类
暗淡FormName，文件名，文件路径，文件大小，FileStart
私人小组Class_Initialize在
文件名=“”
文件路径=“”
文件大小= 0
FileStart = 0
FormName =“”
完子
公共函数另存为（FullPath）
昏暗的博士，ErrorChar，我
另存为= 1
如果修剪（fullpath）=“”或文件大小= 0或FileStart = 0或文件名=“”，然后退出功能
如果FileStart = 0或右（fullpath，1 )="/"然后退出功能
设置博士=的CreateObject（“的ADODB.Stream”）
dr.Mode = 3
dr.Type = 1
dr.Open
upfile_5xSoft_Stream.position = FileStart - 1
upfile_5xSoft_Stream.copyto博士，文件大小
dr.SaveToFile FullPath，2
dr.Close
没有设置博士=
另存为= 0
为此功能
最终类
“/脚本”
“/体”
“/的HTML”
完工。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
