asp简单文件上传源码
文件1.上传界面文件 upload.htm
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传</title>
</head>
<body>
<form method="POST" action="SaveFile.asp">
文件上传：<input type="file" name="file" size="42"> <input type="submit" value="提交" name="bb">
</form>
</body>
</html>
文件2.保存上传文件 SaveFile.asp
<%
dim file,filename,houzui
file = Request.Form("file")
if file="" then
response.write"<script>alert('请选择要上传的文件！');window.location.href='upload.htm';</script>"
else
houzui=mid(file,InStrRev(file, "."))
if houzui=".gif" or houzui=".jpg" or houzui=".bmp" then '允许上传的文件类型
filename=year(date) & month(date) & day(date) & Hour(time) & minute(time) & second(time) & houzui
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadfromFile file
objStream.SaveToFile Server.MapPath(filename),2
objStream.Close
//============================把文件名写入数据库，如无需要，可删除此段代码！
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mb.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open "select*from img",conn,1,2
rs.addnew
rs("name")=filename
rs.update
set rs=nothing
&
相关文档：
<%
for i=1 to rs.recordCount '变量i从1循环到数据库中的全部记录数
if (i mod 1 =1) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "<tr align='center'>"
end if
%>
此处为要循环的内容
<%if (i mod 1 = 0) then ......
原文链接:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic代码
<%
dim picurl,all_picurl
'皆是全局变量:分别定义图片的链接地址;所有指定文件夹(包括指定文件夹的子文件夹下图片url地址)
picurl="" &n ......
Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作.
有下列方法：
Cancel 方法
使用方法如下
Object.Cancel
说明：取消执行挂起的异步 Execute 或 Open 方法的调用。
Close 方法
......
这几天学习动态网站的制作：ASP。由于老师讲的很认真，很详细，课程能听懂，自己也买了一本关于ASP的书籍，ASP的一些功能的实现，怎么做出来能看的差不多，可就是做的时候好差劲，不是某个英语单词不会写，就是重复错误出现，深刻的明白，做网站原来这么难，不仅需要严谨的逻辑思维能力，而 ......
本贴来自ZDNetChina中文社区 http://bbs.zdnet.com.cn/
本贴地址：http://bbs.zdnet.com.cn/viewthread.php?tid=108315
如果你已经有较多的面向对象开发经验，跳过以下这两步：
第一步 掌握一门.NET面向对象语言，C#或VB.NET 我强烈反对在没系统学过一门面向对象(OO)语言的前提下去学ASP.NET。 ASP.NET是 ......
