无组件上传图片到数据库中，asp解决方案（3）

<!--#include file="conn.asp"-->
<!--#include file="inc/domin.asp"-->
<!--#include file="fupload.inc"-->
<％
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim Fields
UploadSizeLimit=100000
Set Fields = GetUpload()
dim Field
For Each Field In Fields.Items
select case Field.name
case "thetext" sss=BinaryToString(Field.value)
case "type" fff=BinaryToString(Field.value)
case "submit" submit=BinaryToString(Field.value)
case "pic"
filename=field.FileName
fileContentType=field.ContentType
filevalue=field.value
end select
next
’---------------
if filename<>"" and fileContentType<>"image/gif" and 
fileContentType<>"image/pjpeg" then
％>
<center>
<br><br>
<font color=red size=3>上传的照片应该为GIF或JPG文件！</font><br><br>
<input type="button" value="重填" onclick="history.go( -1 );return 
true;">
</center>
<％
else
’------------
’开始输入
’-----------
response.write sss
response.write"<br>"
response.write fff
set rs=server.createobject("ADODB.recordset") 
sql = "select * from tb where theid is null"
rs.Open sql,conn,3,3
rs.addnew
rs("author")=username
rs("thetext")=sss
rs("types")=fff
rs("hits")=1
rs("posttime")=now()
rs("photo").appendchunk filevalue
rs.update 
rs.close 
％>
<br><br>
<center><font color=red 
size=3>成功输入个人基本档案！</font><br><br><form method="post" 
action="personinf.asp"><input type="submit" value="返回"></form>
</center>
<％
end if
end if
％>

showpic.asp

<!--#include file="conn.asp"-->
<％
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM tb where theid="&id
rs.Open sql,conn,1,3
response.contenttype="image/gif"
Response.BinaryWrite rs("photo")
％>