大哥帮忙 （在线）！！！！
小弟刚毕业 做asp 很菜
做个图片上传不会 大家给我看一下阿
<%@Language=VBScript %>
<%
'设置数据库链接
strConn = "Driver={Sql server};Database=ginhoo;persist security info=False;user id=sa;password=;Server=localhost;packet size=4096"
session("strconn")=strConn
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
set rs=server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM TBPhoto",dbc,1,3
%>
<HTML>
<BODY>
<input type="text" name="textfield">
<%
set Rs=server.CreateObject("Adodb.recordSet")
mSql="insert TBPhoto(photo) values ('"&txt&"')"
' Rs.Open mSql,connstring
' Response.Redirect "news.asp"
'obj.maxsize=2048 '设置文件上传的最大为2048个字节(2K)
'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
'----文件上载到数据库中---------
response.write("<br>")
response.write(obj.DBContent)
response.write("<br>")
rs.AddNew
rs("id")=trim(aa)
rs("photo").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
Response.Write("文件大小：" & obj.FileSize)
end if
'obj.about '关于LyfUploa1.2
%>
<input type="submit" name="Submit" value="提交">
<form name="form1" method="post" action="">
</form>
<br>
<a href="pictest.asp?ID=<%=session("ID")%>">点击此处查看上传后数据库中的GIF文件!</a>
</BODY >
</html>
问题点数：100、回复次数：4Top
1 楼ronanlin（旭）回复于 2003-08-01 19:57:07 得分 20
http://expert.csdn.net/Expert/topic/2067/2067677.xml?temp=.5243952Top
2 楼ronanlin（旭）回复于 2003-08-01 19:57:47 得分 10
http://expert.csdn.net/Expert/topic/2067/2067677.xml?temp=.5243952Top
3 楼Primer2002cn（教官）回复于 2003-08-01 20:08:46 得分 70
把MAIL给下，我给你源码Top
4 楼agang3321（影志网）回复于 2003-08-01 21:10:01 得分 0
太谢谢了
agang3321@yahoo.comTop
5 楼Primer2002cn（教官）回复于 2003-08-01 21:29:35 得分 0
发过去了，请查收Top
