📄 addtodb.asp
字号:
<!--#include file="../upload_class.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<title>An-Upload无组件上传类</title>
</head>
<body>
<%
Dim Upload,successful
set Upload=new AnUpload
'创建类实例
Upload.SingleSize=200*1024
'设置单个文件最大上传限制,按字节计；默认为不限制
Upload.MaxSize=200*1024
'设置最大上传限制,按字节计；默认为不限制
Upload.Exe="jpg|bmp|gif"
'设置合法扩展名,以|分割,忽略大小写
Upload.GetData()
'获取并保存数据,必须调用本方法
if Upload.Err>0 then '判断错误号,如果myupload.Err<=0表示正常
response.write Upload.Description '如果出现错误,获取错误描述
response.end
else
input1=Upload.Forms("input1") '获取表单input1的值
if Upload.forms("file1")<>"" then '这里判断你file1是否选择了文件
set tempCls=Upload.files("file1") '获取保存文件信息的类
Tempbytes=tempCls.getbytes() '保存二进制数据到变量(调用getbytes方法)
set tempCls=nothing
end if
end if
set Upload=nothing '销毁类实例
set rs=server.createobject("adodb.recordset") '创建一个数据集对象
rs.open "select * from [img]",conn,1,3 '打开数据表,注意后面的参数1,3
rs.addnew() '添加一个新行(数据集游标会自动移动到本行)
rs("title")=input1 '添加数据input1到字段title
rs("image").AppendChunk Tempbytes '添加二进制数据到数据库的Image字段
rs.update '更新数据集到数据库
rs.close '关闭数据集
set rs=nothing '销毁
conn.close '关闭数据库连接
set conn=nothing '销毁
response.write "上传到数据库成功"
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -