克里斯汀迪奥自传:asp 写数据库问题

来源：百度文库 编辑：中科新闻网 时间：2024/05/02 20:12:02
DV的上传组建
我现在想在dome.asp页面直接将 下面代码中的“FormatPath”写入
表user中的pic字段. 请问哪里添加代码？ 代码怎么写？

<%@Language=VBScript%>
<%
OptionExplicit
Response.Buffer=True
%>
<HTML>
<HEAD>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<TITLE>DvFile-UpASP上传组件示范文件</TITLE>
</HEAD>
<BODY>
<%
DimFormPath
FormPath="TempUpload/"''定义上传路径
Upload_0

SubUpload_0()
DimUpload
DimFile,FormName,FileName,FileExt,SaveFile
DimCountSize,UseTime
CountSize=0
SetUpload=Server.CreateObject("DvFile.Upload")''建立上传对象
Upload.InceptFileType="jpg,gif,png,bmp,jpeg"''上传文件类型限制以“,”号分隔
Upload.MaxSize=-1''限制大小:-1为无限,单位B
Upload.Install''加载上传数据
IfUpload.Err>0Then''错误参数
''输出错误信息
SelectCaseUpload.Err
Case1:Response.WriteUpload.Description''请先选择你要上传的文件
Case2:Response.WriteUpload.Description''文件大小超过了限制"&Upload.MaxSize/1024&"K
EndSelect
Response.Write" [<ahref=#onclick=history.go(-1)>重新上传</a>]"
ExitSub
Else
'IfUpload.Count>1ThenResponse.Write"上传个数超过限制":ExitSub
'FormPath=Upload.Form("filepath")''从表单filepath获取上传路径
ForEachFormNameInUpload.File''列出所有上传了的文件
SetFile=Upload.File(FormName)''生成一个文件对象
FileExt=File.FileExt''获取上传文件后缀名
FormPath=FormatPath(FormPath)''格式化上传路径
FileName=FormatName(FileExt)''定义文件名
SaveFile=FormPath&FileName
IfFile.FileSize>0Then''如果FileSize>0说明有文件数据
Upload.SaveToFileServer.Mappath(SaveFile),FormName''保存文件
'Upload.FileData(FormName)''获取单个文件内容数据
''输出信息：
Response.Write"原文件名："&File.FileName
Response.Write"<BR>"
Response.Write"文件表单名："&File.FormName
Response.Write"<BR>"
Response.Write"文件来源路径："&File.FilePath
Response.Write"<BR>"
Response.Write"文件名："&FileName
Response.Write"<BR>"
Response.Write"文件类型（File.FileType）："&File.FileType
Response.Write"<BR>"
Response.Write"文件后缀（File.FileExt）："&File.FileExt
Response.Write"<BR>"
Response.Write"图像宽（File.FileWidth）："&File.FileWidth
Response.Write"<BR>"
Response.Write"图像高（File.FileHeight）："&File.FileHeight
Response.Write"<BR>"
Response.Write"文件大小（File.FileSize）："&File.FileSize
Response.Write"<BR>"
Response.Write"保存路径："&SaveFile
Response.Write"<BR>"
Response.Write"图片上传成功!<p>"
EndIf
SetFile=Nothing
Next
Response.Write"共上传"&Upload.Count&"个文件；By"&Upload.Version&"<p>"
EndIf
UseTime=Upload.UseTime'总消耗时间
CountSize=Upload.TotalBytes'上传总字节数
Response.Write"总执行时间："&UseTime&"亳秒,平均速度："&FormatNumber(CountSize/UseTime,2,-1,0,0)&"KB/s."
SetUpload=Nothing
EndSub

FunctionFormatPath(Path)
FormatPath=Replace(Path,Chr(0),"")
EndFunction

FunctionFormatName(FileExt)
DimRanNum
Randomize
RanNum=Int(90000*rnd)+10000
FormatName=Year(now)&Month(now)&Day(now)&Hour(now)&Minute(now)&Second(now)&RanNum&"."&FileExt
EndFunction
%>
</BODY>
</HTML>
asp 写数据库问题 asp数据更新问题，不能写进ac数据库 asp数据更新问题，不能写进ac数据库 asp 上传组件 写数据库 asp连接数据库问题 asp问题：数据库 asp数据库问题 数据库查询问题 asp asp+sql数据库问题 asp的数据库问题