适合用的linux:asp 上传组件 写数据库

来源：百度文库 编辑：神马品牌网 时间：2024/05/02 18:57:43
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>

理论上写哪里都可以嘛？
BS楼上的不厚道

你写的代码,我觉得还行的,我看不出哪里有问题`

在
SetFile=Nothing
后面写
－－－－－－－－－以下是代码conn.asp用来链接数据库
<%
dim conn
dim connstr
dim db
db="../Database/eDoSpace.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

sub CloseConn()
conn.close
set conn=nothing
end sub
%>

－－－－－－以下是写入数据库的代码－－－
<!--#include file="conn.asp"-->
'数据库相关操作
Function Insert(inStr)
sql="insert into table(in) values('"&inStr&"')"
conn.execute(sql)
CloseConn()
End Function

call Insert("test")

在想在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)''定义文件名

好呀！！！！！！！！！！
我也看了不错

asp 上传组件 写数据库 asp无组件上传 ASP文件上传组件 请给我个asp无组件上传图片到SQL 数据库的实例 asp无组件上传源码 关于无组件上传 asp asp 写数据库问题 微软的ASP上传组件是什么? 寻asp无组件上传文件程序 asp无组件上传源码 是什么东东？？