Recommended: How to implement the processing of multiple domain names in the same space Take these two domain names as an example: http://www.knowsky.com/http://code.knowsky.com/The two domain names are bound to the same space, ha, but they will jump to different directories. They are not implemented on IIS settings, but just a small piece of ASP code.
A request form can contain N items, and when adding the request form, you need to dynamically add the code.
Dynamic Table
| The following is the quoted content: <table border=0 width=98% id=tabzx name=tabzx align=center class=table_list> <tr> <td class=th_list width=10%> Column A </td> <td class=th_list width=10% align=center> Column B</td> <td class=th_list width=10% align=center> Column C </td> <td class=th_list width=5% align=center> Column D </td> <td class=th_list width=5% align=center> Column E </td> <td class=th_list width=5% align=center> Column F </td><%-- <td class=th_list width=7% align=center> Column G </td> --%><td class=th_list width=13%> [ <a href=javascript:doSelect(450,400,'formEdit.supplyId')><font color=FF0000>Select device</font> </a>] </td> </tr> </table> The JS code is as follows (the device list pops up according to the conditions, and then select the existing device) 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'); } } =================================== Dynamically add data code according to the selection <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= ss 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='delete' 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> ============================ |
Share: parse the SRC path of extracting pictures in HTML from asp What is RegExp in ASP? Name character checking is the referenced content: Public Function CheckName(Str) Checkname=True Dim Rep,pass Set Rep=New Re
2 pages in total Previous page 12 Next page