'::::::: 此程序属扬子原创 ::::::::::::::::::

':::::: 在sql2000，2000s中测试通过::::::::

':::::::联系我：QQ：21112856，Email：yangzinet@hotmail.com:::::::::

'::::::: http://www.tingfo.net ::::::

up.htm

欢迎你：<% =username %> 管理中心 管 理 中 心

<% set rs=server.createobject("adodb.recordset") sql="select * from photo where author='"&username&"'" rs.open sql,conn,1,1 %> 现在位置： 98243班 - 管理中心 - 添加新闻 <% =username %>：你一共上传了 <% =rs.recordcount %> 张照片 管理以前上传的照片 选择照片： 拒绝色情、写真图等 照片分类： 选择类型 班级合影 个人照片 恩师照片 情人照片 友人照片 其他照片 照片说明： </p> <p> 最多20个字符

fupload.inc

addphoto.asp

<%

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

%>

<%

else

'------------

'开始输入

'-----------

response.write sss

response.write"
"

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

%>

<%

end if

end if

%>

showpic.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")

%>