7-2.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 75 行

ASP
75 行
字号 
<%@Language=VBScript  CODEPAGE="936"%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<%
'设置数据库连接
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("new.mdb")    

'创建connection对象
Set picDB = Server.CreateObject("ADODB.Connection")
picDB.open strConn
set picRS=server.CreateObject("adodb.recordset")
picRS.Open "SELECT * FROM product",picDB ,1,3


'创建该组件
Set obj = Server.CreateObject("LyfUpload.UploadFile")

'限制上传文件的后缀名
obj.extname="jpg"

'获取上传文件的文件名
varfname=obj.request("File_Name") 


'保存文件到服务器
RetVal=obj.SaveFiletodb("File_Upload") 

'获取上传文件的扩展名
extName=obj.filetype("File_Upload")

'得到文件的Content-Type
aa=obj.filetype("File_Upload") 

if RetVal= "" then
	Response.Write ("文件上传失败!")
elseif RetVal= "0"  then
	Response.Write ("文件尺寸过大!")
elseif RetVal= "1" then
	Response.Write ("文件不是jpg文件!")
else

	picRS.AddNew
	picRS("name")=trim(varfname)
	picRS("pic").AppendChunk obj.DBContent'BLOB数据不能直接赋值
	picRS.Update 
	picRS.movelast
	picID=picRS("ID")
	picRS.Close 
	picDB.Close 
	set picRS=nothing
	set picDB =nothing   
	
	Response.Write "文件已经被上传到数据库了<br>" 
	Response.Write("文件名：" & RetVal)  
	Response.Write("<br>Content-Type：" & aa) '得到Content-Type
	Response.Write("<br>文件大小：" & obj.FileSize)  	
	
    response.write "<br><a href=showpic.asp?ID=" & picID & ">点击此处查看上传后数据库中的文件!</a>"
end if



set obj=nothing
%>

<body>

</body>

</html>

7-2.asp - 源码说明

本页面展示了「ASP+SQL Server动态网站开发从基础到实践教程」中的 7-2.asp 源码文件，采用 ASP 编程语言编写，共 75 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?