<%function into(i,b)
dim j,h
"corp7_"&j= trim(Request.Form("corp7_"&j))
if j=1 then
if "corp7_"&j ="" then
h=0
else
h=1
end if
elseif j>1 then
if "orp7_"&j="" then
h=h+0
else
h=h+1
end if
end if
set bb=server.CreateObject("adodb.recordset")
sql="select * from corpuser_info where username='"&session("username")&"'"
bb.open sql,conn,1,1
if "corp7_"&j="" then
else
bb("corp7_"&j)="corp7_"&j
end if
bb.update
return h
end function%>
<%dim s,bb
for s=1 to 15
call into()
next
bb=h
if bb<=5 then
else
session("feiyong")=(bb-5)*100
end if
%>
那个变量的问题搞不明白,
Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
/Reg_Guide/member/uservip_affirm.asp,行 349
"corp7_"&j= trim(Request.Form("corp7_"&j))
^
提示错误信息.