欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【asp无组件上传并插入到数据库里】，下面是详细的分享！
asp无组件上传并插入到数据库里
<%
Response.Buffer=True
Server.ScriptTimeOut=9999999
On Error Resume Next
%>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta content="all" name="robots" />
<style type="text/css">
<!--
body,input {font-size:12px;}
-->
</style>
<title>ASP文件上传</title>
</head>
<body id="body">
<%
checkuser()
ExtName="xls" '允许扩展名
SavePath="upload" '保存路径
If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
CheckAndCreateFolder(SavePath)
UpLoadAll_a=Request.TotalBytes '取得客户端全部内容
If(UpLoadAll_a>0) Then
Set UploadStream_c=Server.CreateObject("ADODB.Stream")
UploadStream_c.Type=1
UploadStream_c.Open
UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
UploadStream_c.Position=0
FormDataAll_d=UploadStream_c.Read
CrLf_e=chrB(13)&chrB(10)
FormStart_f=InStrB(FormDataAll_d,CrLf_e)
FormEnd_g=InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)
Set FormStream_h=Server.Createobject("ADODB.Stream")
FormStream_h.Type=1
FormStream_h.Open
UploadStream_c.Position=FormStart_f + 1
UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3
FormStream_h.Position=0
FormStream_h.Type=2
FormStream_h.CharSet="GB2312"
FormStreamText_i=FormStream_h.Readtext
FormStream_h.Close
FileName_j=Mid(FormStreamText_i,InstrRev(FormStreamText_i,"")+1,FormEnd_g)
If(CheckFileExt(FileName_j,ExtName)) Then
SaveFile=Server.MapPath(SavePath & FileName_j)
If Err Then
Response.Write "文件上传： <span style=""color:red;"">文件上传出错!</span> <a href=http://www.chinaz.com/program/2008/1024/""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
Err.Clear
Else
SaveFile=CheckFileExists(SaveFile)
SaveFileName=Mid(SaveFile,InstrRev(SaveFile,"")+1)
session("file")=SaveFileName
k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
FormStream_h.Type=1
FormStream_h.Open
UploadStream_c.Position=k-1
UploadStream_c.CopyTo FormStream_h,l
FormStream_h.SaveToFile SaveFile,2
SaveFileName=Mid(SaveFile,InstrRev(SaveFile,"")+1)
Dim Conn1,Driver1,DBPath1,Rs1,Sql1
' 建立Connection对象
Set Conn1=Server.CreateObject("ADODB.Connection")
Driver1="Driver={Microsoft Excel Driver (*.xls)};"
DBPath1="DBQ=" & Server.MapPath("upload/"&SaveFileName)
'调用Open 方法打开数据库
Conn1.Open Driver1 & DBPath1
Sql1="Select * From [Sheet1$] "
Set Rs1=Conn1.Execute(Sql1)
IF Rs1.Eof And Rs1.Bof Then
Response.write "没有找到您需要的数据!!"
Else
Do While Not Rs1.EOF
'插入到数据库中
OpenDataBase "select * from abc"
if len(rs1(0))=7 then
ctime=left(rs1(0),4)
else
ctime=left(rs1(0),5)
end if
rs.addnew
rs("time")=ctime
rs.update
CloseDataBase()
Rs1.MoveNext
Loop
End IF
Rs1.Close
Set Rs1=nothing
Conn1.Close
Set Conn1=Nothing
'插入到数据库中结束
Response.write "文件上传： <span style=""color:red;"">" & SaveFileName & " </span>文件上传成功!<a href='http://www.chinaz.com/program/2008/1024/choise.asp''>继续上传文件</a><br />"
End If
Else
Response.write "文件上传： <span style=""color:red;"">文件格式不正确!</span> <a href=http://www.chinaz.com/program/2008/1024/""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
End If
Else
%>
<script language="Javascript">
<!--
function ValidInput()
{
if(document.upform.upfile.value=="")
{
alert("请选择上传文件！")
document.upform.upfile.focus()
return false
}
return true
}
// -->
</script>
<form action='<%=Request.ServerVariables("URL") %>' method='post' name="upform" onsubmit="return ValidInput()" enctype="multipart/form-data">
文件上传：
<input type='file' name='upfile' size="40"> <input type='submit' value="上传">
</form>
<%
End if
Set FormStream_h=Nothing
UploadStream.Close
Set UploadStream=Nothing
%>
</body>
</html>
以上所分享的是关于asp无组件上传并插入到数据库里，下面是编辑为你推荐的有价值的用户互动：
相关问题：ASP无组件上传图片至SQL数据库
答：全部代码无法给你,我只把核心代码给你.保存页面saveimage.asp,在此之前,你要做个FORM递交页面，相信不用我发代码了吧 >>详细
相关问题：艾恩ASP无组件上传类AienAspUpload v13.12.09怎样...
答：艾恩ASP无组件上传类，不敢夸口说多完美，但能实现基本的功能.包括提取表单数据、上传到不同文件夹、保存到数据库(上传和保存表单可同时进行)、限制上传扩展名、限制上传大孝选择文件保存类型(原文件名和时间随机命名)等！ >>详细
相关问题：asp 无组件上传文件名写入数据库问题
答：照片那里加个表单项放地址 照片 up.asp代码最后加上 function backfn(fname){ parent.document.getElementById("zp").value=fname; } upload.asp代码最后加上 window.parent.backfn.apply(this,[""]); >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-