提问帖,望指教 后台添加图片广告提示无效使用 Null:
无效使用 Null: 'intseparator' \admin\uploadclass.asp, line 131
是什么问题 求解决
public function open()
open = 0
if m_error=-1 then
m_error=0
else
exit function
end if
dim lngrequestsize : lngrequestsize=request.totalbytes
if m_totalsize>0 and lngrequestsize>m_totalsize then
m_error=5
exit function
elseif lngrequestsize<1 then
m_error=4
exit function
end if
dim lngchunkbyte : lngchunkbyte = 102400
dim lngreadsize : lngreadsize = 0
m_binform.type = 1
m_binform.open()
do
m_binform.write request.binaryread(lngchunkbyte)
lngreadsize=lngreadsize+lngchunkbyte
if lngreadsize >= lngrequestsize then exit do
loop
m_binform.position=0
dim binrequestdata : binrequestdata=m_binform.read()
dim bcrlf,strseparator,intseparator
bcrlf=chrb(13)&chrb(10)
intseparator=instrb(1,binrequestdata,bcrlf)-1
strseparator=leftb(binrequestdata,intseparator) 【【【【【这里是131行】】】】】
dim stritem,strinam,strftyp,strpuri,strfnam,strfext,lngfsiz
const strsplit="'"">"
dim strformitem,strfileitem,inttemp,strtemp
dim p_start : p_start=intseparator+2
dim p_end
do