asp 上传组件 写数据库

来源：百度知道 编辑：UC知道 时间：2024/05/24 11:01:33
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.WriteUp

理论上写哪里都可以嘛？
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.Buffe