推荐:ASP如何实现多域名同一空间的处理以这两个域名为例:http://www.knowsky.com/http://code.knowsky.com/这两个域名都是绑在同一个空间上,哈,但会跳到不同的目录,不是在IIS设置上实现的,只是一小段ASP代码,哈
一个申请单可以包含N个项目,添加申请单时就需要动态加入代码了。
动态Table表格
| 以下为引用的内容: <table border=0 width=98% id=tabzx name=tabzx align=center class=table_list> <tr> <td class=th_list width=10%> A列 </td> <td class=th_list width=10% align=center> B列 </td> <td class=th_list width=10% align=center> C列 </td> <td class=th_list width=5% align=center> D列 </td> <td class=th_list width=5% align=center> E列 </td> <td class=th_list width=5% align=center> F列 </td><%-- <td class=th_list width=7% align=center> G列 </td>
--%><td class=th_list width=13%> [ <a href=javascript:doSelect(450,400,'formEdit.supplyId')><font color=FF0000>选择设备</font> </a>] </td> </tr> </table>
JS代码如下(根据条件弹出设备列表,然后选择已有设备)
function doSelect(Width,Height,ctrlobj){
var k; var s = new Object(); k=showModalDialog(/Applications_add_addsearch.jsp,s,dialogWidth:320px;status:no;scroll:no;dialogHeight:280px); if (k!=null) { var url = /applicationsAction.do?method=insertAddSeach&stId= k[0] &sbId= k[1] &ggId= k[2]; window.open(url,'newwindow', 'height=600, width=800, toolbar=no, menubar=no, scrollbars=yes, resizable=no,location=no, status=no'); }
}
=========================
根据选择动态添加数据代码
<script language=vbscript> dim lcountmx lcountmx = 0 function badd(stid,stName,vcid,vcName,ggid,ggName,dwei,sliang,djia) lcountmx=lcountmx 1 dim oRow,oCell,ii set oRow=tabzx.insertRow orow.id=trzx & lcountmx set ocell=orow.insertcell dim sss sss=<input type=hidden name=cgdjmx& lcountmx & value=> sss=sss&<input type=hidden name=stid& lcountmx & value= & stid & > sss=sss&<input type=hidden name=stName& lcountmx & value= & stName & > sss=sss&<input type=hidden name=vcid& lcountmx & value= & vcid & > sss=sss&<input type=hidden name=ggid& lcountmx & value= & ggid & > sss=sss&stName ocell.innerhtml= sss ocell.classname=ListCellRow
set ocell=orow.insertcell ocell.classname=ListCellRow ocell.align=center ocell.width=60 ocell.innerhtml=<input type=hidden name=vcName & lcountmx & value= & vcName & >& vcName
set ocell=orow.insertcell ocell.classname=ListCellRow ocell.align=center ocell.width=60 ocell.innerhtml=<input type=hidden name=ggName & lcountmx & value= & ggName & >& ggName
set ocell=orow.insertcell ocell.classname=ListCellRow ocell.align=center ocell.width=60 ocell.innerhtml=<input type=text size=10 name=thao & lcountmx & value=''>
set ocell=orow.insertcell ocell.classname=ListCellRow ocell.align=center ocell.width=60 ocell.innerhtml=<input type=hidden name=dwei & lcountmx & value= & dwei & >& dwei
set ocell=orow.insertcell ocell.classname=ListCellRow ocell.align=center ocell.width=60 ocell.innerhtml=<input type=text size=3 name=sliang & lcountmx & onchange='changeFun( & lcountmx & )' value=''> <%-- set ocell=orow.insertcell ocell.classname=ListCellRow ocell.align=center ocell.width=60 ocell.innerhtml=<input type=text size=3 name=djia & lcountmx & onchange='changeFun1( & lcountmx & )' value=''> --%>
set ocell=orow.insertcell ocell.classname=ListCellRow ocell.innerhtml=<input type='button' value='删除' onClick='vbscript:bdel( & lcountmx & )' id=button7 name=button7> ocell.align=center
document.applicationsForm.ypsl.value = lcountmx end function
function bdel(l) tabzx.deleteRow document.getElementById(trzx & l).rowindex end function
function changeFun(obj1) change obj1 end function
function changeFun1(obj1) change1 obj1 end function </script>
==================== |
分享:解析asp中提取HTML中图片的SRC路径ASP中RegExp是什么 '名字字符检验 以下为引用的内容:Public Function CheckName(Str) Checkname=True Dim Rep,pass Set Rep=New Re
共2页上一页12下一页