rs("imgcount")=imgcount
rs("imgindexid")=0
....
<%
if imgcount=0 then
response.redirect "savenews2.asp"
Response.end
else
session("tmpcount")=1
session("tmpimgcount")=imgcount
response.redirect "uploadimg.asp"
Response.end
end if
%>
...uploading.asp
<%
IF not(Session("REGISTER")="REGISTED" ) THEN
response.redirect "login.asp"
response.end
END IF
response.write "<div align='center'>上传第"
response.write session("tmpcount")
response.write "张图片</div><br>"
response.write "<form name='mainForm' enctype='multipart/form-data' action='processimg.asp' method='post'>"
response.write "<div align='center'><br>"
response.write " <input type=file name=mefile style='font-size:9pt'>"
response.write "<br>"
response.write "<input type=submit name=ok value='上传照片' style='font-size:9pt'></div></form>"
response.write "<p style='font-size:9pt'>注意:图片格式(必须为gif和jpeg)和图片路径</p>"
%>
....processing
<!--#include file=conn/dbopen.asp -->
<%
IF not(Session("REGISTER")="REGISTED" ) THEN
response.redirect "login.asp"
response.end
END IF
%>
<%
formsize=request.totalbytes
if formsize<300 then response.redirect "uploadimg.asp"
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 rs=server.createobject("ADODB.recordset")
rs.Open "SELECT * FROM images '",conn,1,3
rs.addnew
rs("img").appendchunk mydata
rs("newsid")=session("tmpnewsid")
rs.update
if (session("tmpcount")=1) then session("tmpimgid")=rs("imgid")
t1=session("tmpcount")
t2=session("tmpimgcount")
if (cint(t1)<cint(t2)) then
session("tmpcount")=session("tmpcount")+1
response.redirect "uploadimg.asp"
else
response.redirect "savenews2.asp"
end if
rs.close
set rs=nothing
set conn=nothing
%>
set rs=Server.CreateObject("adodb.recordset")
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC" ’这里的意思是选择最后一个Id,既刚刚被改动
rs.Open sql,strconn,1,3 ’就是你上传的图像的两个文本字段。
function ImageUp(formsize,formdata) ’这个函数的功能是截取其中的图像部分。
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")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
sql="SELECT * FROM imgtable"
rs.Open sql,strconn,1,3
set rs=Server.CreateObject("adodb.recordset")
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC"
rs.Open sql,strconn,1,3
%>
<html>
<body>
以下是你的上传资料。<br/>
文本一:<% Response.Write rs("text1") %><br/>
文本二:<% Response.Write rs("text2") %><br/>