社区
MS-SQL Server
帖子详情
请教
zixinfeng
2003-12-08 09:37:31
我要做一个资源下在的网站,但是不知道如何设置后台的数据库,有知道的人,能方便指教吗?谢谢!!!!
...全文
21
5
打赏
收藏
请教
我要做一个资源下在的网站,但是不知道如何设置后台的数据库,有知道的人,能方便指教吗?谢谢!!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zixinfeng
2003-12-08
打赏
举报
回复
能否告诉我表的结构?
zjcxc
元老
2003-12-08
打赏
举报
回复
'==================================================================--
'
' 用ASP实现无组件上传/下载文件
'
' 功能简介
' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况
' 适用于各种数据库,使用ADO的方法连接数据库
' 本示例中使用的是ACCESS数据库:zj.mdb
' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录
' ,fname text(250) 保存上传的文件名,img ole对象 保存上传的文件内容
' ,type text(250) 保存上传的文件类型
'
' 邹建 2003.10
'==================================================================
'==================================================================
'
' 上传文件的HTML页: zj_up.htm
'
'==================================================================
<html>
<head>
<title>文件上传保存到数据库中</title>
</head>
<body>
<form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
<p>
<input type="file" name="file">
<input type="submit" name="Submit" value="上传">
</p>
</form>
</body>
</html>
'==================================================================
'
' 上传文件保存到数据库的ASP页: zj_up.asp
'
'==================================================================
<%
Response.Expires=0
Function f_Bin2Str(ByVal sBin)
Dim iI, iLen, iChr, iRe
iRe = ""
If Not IsNull(sBin) Then
iLen = LenB(sBin)
For iI = 1 To iLen
iChr = MidB(sBin, iI, 1)
If AscB(iChr) > 127 Then
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
iI = iI + 1
Else
iRe = iRe & Chr(AscB(iChr))
End If
Next
End If
f_Bin2Str = iRe
End Function
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath("zj.mdb")
iSql="tb_img"
set iRe=Server.CreateObject("ADODB.Recordset")
iRe.Open iSql,iConcStr,1,3
iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) & ChrB(10)
iCrlf2 = iCrlf1 & iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = LeftB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
While iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)
iPos3 = InStr(iStr, "; filename=""") + 12
If iPos3 > 12 Then
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2
iFn = Left(iStr, iPos3)
If iFn <> "" Then
iRe.AddNew
ire("path")=left(iFn,instrrev(iFn,"\"))
iRe("fname") = mid(iFn,instrrev(iFn,"\")+1)
iRe("type") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Update
End If
End If
sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Wend
iRe.close
set iRe=Nothing
%>
'==================================================================
'
' 下载数据的ASP页: zj_down.asp
'
'==================================================================
<%
Response.Buffer=true
Response.Clear
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath("zj.mdb")
set iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("type")
Response.BinaryWrite iRe("img")
iRe.close
set iRe=Nothing
%>
dafu71
2003-12-08
打赏
举报
回复
将文件地址储存在数据库中,另开目录上传文件。
zixinfeng
2003-12-08
打赏
举报
回复
不好意思,我没说清楚,就和一般的资源服务器一样,比如,太平洋下载。
就是说,我不知道怎样建立一个后台的数据结构
zjcxc
元老
2003-12-08
打赏
举报
回复
--SQL数据库的表结构
create table tb_img(id int identity(1,1)
,path varchar(255) --保存上传文件的目录
,fname varchar(250) --保存上传的文件名
,type varchar(250) --保存上传的文件类型
,img image --保存上传的文件内容
)
ThinkPHP5生成二维码及背景图片合成
二维码是我们在开发网站和项目的时候经常遇到的,我第一次接触二维码时,翻过许多资料,也
请教
许多所谓高人,被整的还是一头雾水,于是自己下决心一定搞明白二维码到底怎么回事,在经历许多坑,花费许多时间和精力后...
英文邮件礼仪:向教授
请教
学术问题
英文邮件礼仪:向教授
请教
学术问题 邮件主题 邮件主题(subject)不需要写自己的名字。名字是在邮件系统设置里设定好的,在发件时会替换显示实际地址,所以无需在主题里再写一遍。 [关键内容是要在主题里就写...
请教
神牛p1337
题目 :
请教
神牛 描述 Description: HZGD神牛是个非常牛B的人,每天都有人来向他
请教
问题.但是他有原则.同一个人不能在一个学期内
请教
他两次,并且他每天只见一个
请教
者, 无论他以前是否
请教
过,否则他就没时间去干...
向别人
请教
问题,不要这样开头
我们经常会有
请教
别人问题的时候,而下面这几种是不太建议的提问开头 在吗? 能问你一个问题吗? 有谁知道xxx吗? 当然你向我提问的时候,也不用称呼为大佬或者大神之类的,我就是一个普通的开发者。...
曾国藩家书-修身篇 致诸弟·明师益友虚心
请教
曾国藩家书-修身篇 致诸弟·明师益友虚心
请教
感悟参考资料 感悟 本文1中对“格物”和“诚意”两个概念做了诠释,值得深究。 然则既自名为读书人,则《大学》之纲领皆己立身切要之事明矣。其修目有八,自我观之,其致...
MS-SQL Server
34,593
社区成员
254,589
社区内容
发帖
与我相关
我的任务
MS-SQL Server
MS-SQL Server相关内容讨论专区
复制链接
扫一扫
分享
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章