sub borderJS(a,b,c)  '计算border基数 a 副宽，b 宽度 ,c 表名

Dim sql_bdjs,rs_bdjs,bdjs,bdjsArray,temp1,temp2
sql_bdjs="select * from "&c&""
set rs_bdjs=server.CreateObject("ADODB.Recordset")
rs_bdjs.open sql_bdjs,conn,1,1

bdjsArray=rs_bdjs.getrows(-1)


rs_bdjs.close
set rs_bdjs=nothing

for m=1 to ubound(bdjsArray,1)
 if b<= bdjsArray(m,0) then
 temp1=m  '获得数据表字段（定位宽度适用值）
 exit for
 end if
next

for m=1 to ubound(bdjsArray,2)
 if a=bdjsArray(0,m) then
 temp2=m '获得记录编号(定位幅宽)

 
 exit for
 end if
next

response.write "<script language='javascript'>"
response.write "alert('调用borderJS(a,b,c)a="&a&",b="&b&",c="&c&",temp1="&temp1&",temp2="&temp2&" ');"
response.write "</script>"    
 ' response.end    

'bdjs=bdjsArray(temp1, temp2)   [color=008080][color=0000FF][color=FF0000]//如果启用这一句即出错，甚至我尝试输出[/color][/color][/color]bdjsArray(2, 2)都出错

'response.write "<script language='javascript'>"
 'response.write "alert('bdjs="&bdjs&"=rsArray("&temp1&","&temp2&")="&rsArray(temp1,temp2)&" ');"

//response.write "</script>"    
 ' response.end    

'session("borderJS")=bdjs

end sub


sub borderJGF(a,b,c)  '计算border加工费 a lining，b 宽度 ,c 表名
Dim sql_bdjgf,rs_bdjgf,bdjgf,bdjgfArray,temp1,temp2
sql_bdjgf="select * from "&c&""
set rs_bdjgf=server.CreateObject("ADODB.Recordset")
rs_bdjgf.open sql_bdjgf,conn,1,1

bdjgfArray=rs_bdjgf.getrows(-1)


rs_bdjgf.close
set rs_bdjgf=nothing

for m=1 to ubound(bdjgfArray,1)
 if b<= bdjgfArray(m,0) then
 temp1=m
 exit for
 end if
next

for m=1 to ubound(bdjgfArray,2)
 if a=bdjgfArray(0,m) then
 temp2=m
 exit for
 end if
next


response.write "<script language='javascript'>"
response.write "alert('调用borderJGF(a,b,c)a="&a&",b="&b&",c="&c&",temp1="&temp1&",temp2="&temp2&" ');"    
response.write "</script>"    
 ' response.end    


'bdjgf=bdjgfArray(temp1,temp2) [color=FF0000]//同样是这个问题，启用即出错[/color]

'response.write "<script language='javascript'>"
 'response.write "alert('bdjgf="&bdjgf&"=rsArray("&temp2&","&temp1&")="&rsArray(temp1,temp2)&" ');"

//response.write "</script>"    
 'response.end    

'session("borderJGF")=bdjgf
end sub


=======================测试信息==============



[img]http://photo.store.qq.com/http_imgload.cgi?/rurl2=86d73cfd1df224311f6bd6635997bd19e5f9510bbde8c7dd6dae4ef874b82370c3959d946dd892411833cc104cba4a1bb1cee8ee0915713c40db45d7a16c32ec5c62b47c1ecd37c457d34eedd8021610b7d3140d[/img]

[img]http://photo.store.qq.com/http_imgload.cgi?/rurl2=ead2bc146499ac631b102a818b2dc470fe8e5b0afe25aef7674d87b364eabc58bb28b7eec09e552d40dbb9d1ef73044e2669cf0558d0428e0c3f26e38c2934797f67fcdcb7afe08cb5764be05deb2b52a8925926[/img]