function ImageUp(formsize,formdata) 'recieve the pic!
bncrlf=chrb(13) & chrb(10)
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function
Image=ImageUp(FormSize,Formdata)
set rs=server.CreateObject("adodb.recordset")
dim id
id=request.QueryString
if id="" then
sql="select top 1 c_images from app_bbs order by c_id desc"
else
sql="select top 1 c_images from app_bbs where c_id="&request.QueryString("id")
end if
<!--#include virtual="../../conn.asp"-->
<!--#include file="level.asp"-->
<%
dim cmd
cmd=request.QueryString("cmd")
if cmd="clear" then
conn.execute("update app_bbs set c_images=null where c_id="&request.QueryString("id"))
'disconn
response.redirect "list.asp"
end if