📄 7-2.asp

📁 使用asp+sql编写的的各种程序案例

💻 ASP

字号:

<%@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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -