pcart")值 goods=split(session("shopcart"),",") for i=0 to ubound(goods) if session("shopcart")=""then session("shopcart")=goods(i) else if goods(i)=goodsid then next session("shopcart")=session("shopcart")&;","&;goods(i) '赋新值到 session("shopcart") end if next end sub %>
呵呵，下面这段代码纯属娱乐（注：先开起 QQ，最小化 QQ 后，再在 iis 里运行下面这段代 码，发现什么没？）
try { var xmlhttp=new ActiveXObject("TimwpDll.TimwpCheck"); location.href='Tencent://Message/?Menu=no&;Uin=10000';
} catch(e) {}
动态设定表单域数量（如文本框是 1 个还是 4 个） ： 文件上传
需要上传的个数： | |
function exec() { waitting.style.visibility="visible"; upload.style.visibility="hidden"; } function setid() { if(window.form1.upcount.value>0) {
str=''; for(i=1;i<=window.form1.upcount.value;i++) str+='文件'+i+':
'; window.upid.innerHTML=str+''; } } setid();
'----------分页条--------------'Totals:总记录数 'Pages:总页数 'PageNo:当前页码 'FileName:分页文件名 '作者:Abill.chen '时间:2004 05 18 '-----------------------------function PageBar(Totals,Pages,PageNo,FileName) if (Totals="" or Totals="0") then PageBar="" dim ReStr,TempStr TempStr="" ReStr="总计["&;Totals&;"]条记录&;nbsp;&;nbsp;共["&;Pages&;"]页&;nbsp;&;nbsp; 当前第["&;PageNo&;"]页&;nbsp;&;nbsp" ReStr=ReStr&;"去第" for i=1 to cint(Pages) TempStr=TempStr&;""&;i&;"" next ReStr=ReStr&;TempStr&;"页
" PageBar=ReStr end function '----------分页条(带查询条件)---------------
'Totals:总记录数 'Pages:总页数 'PageNo:当前页码 'FileName:分页文件名 'Other:查询条件 '作者:Abill.chen '时间:2004 05 18 '-----------------------------function PageBar2(Totals,Pages,PageNo,FileName,Other) 'if (Totals="" or Totals="0") then PageBar="" dim ReStr,TempStr TempStr="" ReStr="总计["&;Totals&;"]条记录&;nbsp;&;nbsp;共["&;Pages&;"]页&;nbsp;&;nbsp; 当前第["&;PageNo&;"]页&;nbsp;&;nbsp" ReStr=ReStr&;"去第" for i=1 to cint(Pages) TempStr=TempStr&;""&;i&;"" next ReStr=ReStr&;TempStr&;"页
" PageBar2=ReStr end function
'-------
相关文章
2013-3-3
