好学IT学院:IT信息技术分享交流平台
标签:ASP  来源:互联网  作者:本站整理  发布时间:2007-01-12  ★★★加入收藏〗〖手机版
LyfUpload组件的全攻略
摘要:组件方法介绍:Request方法得到上一个页面中表单元素的值;声明:Public Function Request(nm As String)返回值:为元素的值,字符串类型;FileType方法得到上传文件的Content-Type声明:P……

2、后台处理程序中加入下面代码:
<%@Language=VBScript%>
<HTML>
<BODY>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
txt = obj.request("text1") ’得到form元素的值
Response.Write("文本框1的输入值是:"&txt)
Response.Write "<br>"
ss=obj.SaveFile("file1","C:\temp",true)
’保存文件到服务器
aa=obj.filetype("file1")
if ss<>"" then
Response.Write "选择的文件已经上载到服务器!<br>"
Response.Write("文件名:" & ss)
Response.Write("<br>Content-Type:"&aa) ’得到Content-Type
end if
obj.about ’关于LyfUploa1.2
%>
</BODY>
</html>

文件上载到数据库(此处仅加入gif图形上载到数据库中及从数据库中读取的功能,其它请看DEMO文件)

1、调用显示的htm或者asp文件中加入以下代码:
<form method="POST" enctype="multipart/form-data" action="demo4.asp">
<p>文本框1:<input type="text" name="text1" size="20"><br>
选择文件:<input type="file"  name="file1"><br>
<input type="submit" value="上载" style="background-color: rgb(0,0,255); color: rgb(255,255,0)"> </p>
</form>
注意:Form中一定要包含enctype="multipart/form-data"语句

2、后台处理程序中加入下面代码:
<%@Language=VBScript%>
<%
’设置数据库链接
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("new.mdb")
session("strconn")=strConn
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open
strConn set rs=server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM product",dbc,1,3
%>
<HTML>
<BODY>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
obj.extname="gif"
txt = obj.request("text1") ’得到form元素的值
Response.Write("文本框1的输入值是:"& txt)
Response.Write "<br>"
ss=obj.SaveFiletodb("file1") ’保存文件到服务器
aa=obj.filetype("file1") ’得到文件的Content-Type
if ss= "" then
Response.Write ("文件上传失败!")
elseif ss= "0" then
Response.Write ("文件尺寸过大!")
elseif ss= "1" then
Response.Write ("文件不是gif文件!")
else
’----文件上载到数据库中---------
rs.AddNew
rs("name")=trim(aa)
rs("pic").AppendChunk
obj.DBContent’BLOB数据不能直接赋值
rs.Update
rs.movelast
session("ID")=rs("ID")
rs.Close
dbc.Close
set rs=nothing
set dbc=nothing
’------------------------------上载到数据库中结束
Response.Write "选择的文件已经上载到服务器!<br>"
Response.Write("文件名:"&ss)
Response.Write("<br>Content-Type:"&aa)
’得到Content-Type
end if
obj.about
’关于LyfUploa1.1
%>
<br>
<a href="pictest.asp?ID=<%=session("ID")%>">点击此处查看上传后数据库中的GIF文件!</a>
</BODY>
</html>

数据库指南:关于DB2常用技巧解析
  DB2数据库操作是开发人员经常接触到的,是我们最常用的数据库之一,下面就教您一个DB2删除数据时的小技巧,如果您对DB2删除数据方…
  • 好学触屏公众号虎力全开、杨帆起航!
  • 好学考试H5触屏版开放内测