?? processcp.asp
字號:
<!--#include file="conn.asp"-->
<%
'====================
count=0
sql="select * from class_photo"
set rs=conn.execute(sql)
while not rs.eof
count=count+1
rs.movenext
wend
count=CStr(count)
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
'set connGraph=server.CreateObject("ADODB.connection")
'connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("data/images.mdb") & ";uid=;PWD=;"
'connGraph.Open
uid=trim(session("user"))
if uid="" then
response.write("網頁超時,修改失敗,請登陸后重新上傳!!")
response.end
end if
set rec=server.createobject("ADODB.recordset")
sql="SELECT * FROM class_photo where photoid='"&count&"'"
rec.Open sql,conn,1,3
'======================
'response.Write(sql)
'response.End()
'======================
if not rec.eof then
sql="delete from class_photo where photoid='"&count&"'"
conn.execute sql
end if
'======================
'response.Write(sql)
'response.End()
'======================
rec.addnew
rec("photoid")=count
rec("owner")=session("user")
rec("photo").appendchunk mydata
rec.update
session("uploadp")=count
rec.close
set rec=nothing
set conn=nothing
response.redirect "imgupok.asp"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -