<!--#include file="inc/vb.asp"-->
<%
'叛断Session变量是否超时
if isempty(session("u_id")) or session("u_id")="" then
response.redirect "timeout.asp"
end if
if session("u_id")=1 then response.redirect "notreg.asp"
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
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)
conn.Execute("Update larchives set photo=photo+1 where user_id=" & session("u_id"))'此用户相片数加1
%>
'不加上connpic.asp这个包含文件就出现如下出错提示.
'Microsoft VBScript 运行时错误 错误 '800a0005'
'无效的过程调用或参数: 'leftB'
'/addpic.asp，行 20
'前面的conn.asp采用的SQL server数据库
'此处的connpic.asp是ACCESS数据库
<!--#include file="connpic.asp"-->
'文件内容就是连接ACCESS数据库
<%
conn.Execute("Update pic set [index] = 0 Where user_id =" & Session("u_id"))
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pic",conn,3,2
rs.addnew
rs("big").appendchunk mydata
rs("user_id")=session("u_id")
rs("size")=formsize
rs("date")=now
rs("index")=1
rs.update
set rs=nothing
set conn=nothing
%>
