(二)upload.asp 这是个上传图片的表单
代码如下:
Copy code <% Response.Buffer=True %>
<html>
<head>
<title>图片上传</title>
</head>
<body background="images/bg.gif" topmargin="30" style=""><div align="center"咐租>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="420" id="AutoNumber69" bgcolor="#F5F5F5">
<tr>
<td width="100%" bgcolor="#F5F5F5" bordercolor="#F5F5F5"><form name="form1" method="post" action="uploadsave.asp" enctype="multipart/form-data">
<p align="center"><span style="font-size: 12px">图片上传:</span><br>
<br>
<衡含兆INPUT type="file" class="f11" name="file1" size="23"><br>
<br>
<input type=submit name="submit" value="上 传" class=anniu >
<br>
<br>
<span style="font-size: 12px">文件格式为<font color="#EC5106">*.gif,*.jpg,*.jpeg
</font>
</span></p>
</form>
</td>
</tr>
</table>
</center>
</body>
</html>
代码解释:
(1)<% Response.Buffer=True %>这是控制缓冲 缺省值为ture
(2)<form name="form1" method="post" action="uploadsave.asp" enctype="multipart/form-data">
这里要注意的是enctype="multipart/form-data" 一定要multipart/form-data 因为我们上传的是图片 不是文字 类型要与图片匹配 <%
option explicit
dim conn,DBPath
dim rs,sql
'取得参数id
dim id
id=request("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from photo where id=" &id
rs.open sql,conn,1,1
'显示图片
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("img")
rs.close
'释放对象
set rs=nothing
set conn=nothing
%>
这是显示一张的图片的asp源码,相应的地方也应该需要改一改吧
sql="select * from photo where id=" &id
这里可能需要修改一下表单名,然后 where id 后面的条件也应该需要改一改
public partial class Form1 : Form{
public Form1()
{
InitializeComponent()
}
private void btnStart_Click(object sender, EventArgs e)
{
}
private void Form1_DragEnter(object sender, DragEventArgs e)
{
if (e.Data.GetDataPresent(DataFormats.FileDrop))
{
e.Effect = DragDropEffects.Link
}
else
{
e.Effect = DragDropEffects.None
}
}
private void Form1_DragDrop(object sender, DragEventArgs e)
{
string path = ((System.Array)e.Data.GetData(DataFormats.FileDrop)).GetValue(0).ToString()
// 接下带纯来可以蠢并咐通过filestream来上蔽运传文件。
}
}
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)