■■高分再请教：网页中表单的插入行操作。■■

Question

我做过一个，你根据这个看。不知道是否表达了你需要的效果      <table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="Table2">
        <tr class=th1>
         <td align="center" width=5%>序</td>
         <td align="center" width=25%>项目</td>
         <td align="center" width=15%>金额</td>
         <td align="center" width=12%>支付时间</td>
         <td align="center" wdith=*>备注</td>
         <td align="center" width=12%>保存/编辑</td>
        </tr>
<%
count=1
if tableid<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
Query = "select * from report where table_id=" & tableid
rs.Open Query,conn,1,3
msgcount=rs.RecordCount
Do While Not rs.EOF
if cint(request("detailid"))<>rs("id") then
response.Write "<tr>"
response.Write "<td align=center>" & count & "</td>"
response.Write "<td>" & rs("project") & "</td>"
response.Write "<td align=center>" & rs("appsum") & " </td>"
response.Write "<td align=center>" & rs("payment_datetime") & " </td>"
response.Write "<td align=center><a href=""javascript:alert('" & rs("re") &"');"">点击浏览</a></td>"
response.Write "<td align=center><a href=""?act=modify&id=" & tableid & "&detailid=" & rs("id") & """>修改行数据</a></td>"
response.Write "</tr>"
else
if tableid<>"" then 
sql="select * from table_report where id=" & cint(tableid)
set rstmp=conn.execute(sql)
charge_personal = rstmp("charge_personal")
report_personal = rstmp("report_personal")
rstmp.Close
set rstmp=nothing
end if
response.Write "<tr><input type=hidden name=id value="&request("id")&"><input type=hidden name=did value="&request("detailid")&">"
response.Write "<td align=center>" & count & "</td>"
response.Write "<td><input type=text name=project value=""" & rs("project") & """ size=20></td>"
response.Write "<td align=center><input type=text name=appsum value=""" & rs("appsum") & """ size=10></td>"
response.Write "<td align=center><input type=text name=payment_datetime value=""" & rs("payment_datetime") & """ size=10 onClick=""fPopUpDlg('inc/calendar.htm', document.report.payment_datetime, 'winpop', 172, 210);return false""></td>"
response.Write "<td align=center><a href=""javascript:alert('" & rs("re") &"');"">点击浏览</a></td>"
response.Write "<td align=center><input type=submit name=cmdSaveModify value=保存修改  onclick=""return CheckModify();""></td>"
response.Write "</tr>"
end if
count=count+1
rs.MoveNext
loop
end if
if request("detailid")="" then
if count<=10 then
response.Write "<tr>"
response.Write "<td align=""center"">"&count&"<input type=""hidden"" name=serial value="""&count&""" ID=""Hidden1""></td>"
response.Write "<td><input type=""text"" name=""project"" size=""20""  class=input3 value=" & i_project & "></td>"
response.Write "<td><input type=""text"" name=""appsum"" size=""10""  class=input3 value=" & i_appsum & "></td>"
response.Write "<td><input class=input3 type=""text"" name=""payment_datetime"" size=""10""  readonly value="""&formatdatetime(now(),2)&""" onClick=""fPopUpDlg('inc/calendar.htm', document.report.payment_datetime, 'winpop', 172, 210);return false""></td>"
response.Write "<td><input class=input3 type=""text"" name=""re"" size=""20"" ></td>"
response.Write "<td align=""center""><input type=""submit"" value=""保存数据"" style=""color:0000ff;"" name=""cmdSave"" onclick=""return CheckOK();""></td>"
response.Write "</tr>"
end if
else
response.Write "<tr><td colspan=6 align=center height=20 class=th1>请保存后再新增数据</td></tr>"
end if
ecount = count +1
for i=ecount to 10%>
        <tr>
         <td align="center"><%=i%></td>
         <td>　</td>
         <td>　</td>
         <td>　</td>
         <td>　</td>
         <td>　</td>
        </tr>
<%next%>
        <tr>
         <td align="center">　</td>
         <td>自动计算合计</td>
         <td align=center>
         <%
         if tableid="" then
response.Write "0.00"
         else
sql = "select sum(appsum) from report where table_id="&tableid
set rs=conn.execute(sql)
response.Write rs(0)
rs.Close
set rs=nothing
end if
         
         %>万元
         </td>
         <td>--</td>
         <td>　</td>
         <td>　</td>
        </tr>
       </table>
       </td>
      </tr>
     </table>

Answer 1

这套程序对我来说，一点价值也没有，如果你需要的话，在站内发信息给我，我把程序发给你，你看其中一个子程序就可以了http://www.jiangdu.net/power
用户：1001
口令：1111就是 http://www.jiangdu.net/power/report.asp 中的填写数据。

Answer 2

下面满足你的要求了吗？给分啊
/*table.htm*/
<TABLE border='1' id=tbl>
<TR>
<TD><INPUT TYPE='checkbox' NAME='cdflag' value='0'></TD>
<TD>a</TD>
</TR>
<TR>
<TD><INPUT TYPE='checkbox' NAME='cdflag' value='0'></TD>
<TD>b</TD>
</TR>
<TR>
<TD><INPUT TYPE='checkbox' NAME='cdflag' value='0'></TD>
<TD>c</TD>
</TR>
</TABLE><INPUT TYPE="submit" value="插行" name="insert" onclick="insert()"><script>
function insert(){    obj=document.all.cdflag
    num=0;
    for(i=0;i<obj.length;i++){
        if(obj[i].checked==true){
            num++;
        }
    }
    if(num!=0){
        open("edit.htm","","width=200,height=50");
    }
}
</script>
/*edit.htm*/
内容:<INPUT TYPE="text" NAME="ps" size="10">
<input type="submit" name="save" value="插入" onclick="add();window.close()">
<script>
function add(){
    obj=opener.document.all;
    for(i=0;i<obj.length;i++){
        if(obj[i].checked==true){
            obj[i].outerHTML=document.all.ps.value+obj[i].outerHTML;
        }
    }
}
</script>

Answer 3

<TABLE border='1' id=tbl>
<TR>
<TD><INPUT TYPE='checkbox' NAME='cdflag' value='0' onclick=sw()></TD>
<TD>a</TD>
</TR>
<TR>
<TD><INPUT TYPE='checkbox' NAME='cdflag' value='0'  onclick=sw()></TD>
<TD>b</TD>
</TR>
<TR>
<TD><INPUT TYPE='checkbox' NAME='cdflag' value='0'  onclick=sw()></TD>
<TD>c</TD>
</TR>
</TABLE><INPUT TYPE="submit" value="插行" name="insert" >
<script>
var xx=new Object,ss
function sw()
{
if(event.srcElement.checked)
{
xx=event.srcElement
window.open(你的页面)
}
}
</script>
你的页面
<body onbeforeunload="xx.parentElement.innerHTML=xx.outerHTML+你要传的值">

Answer 4

ps:你作什么呢?一会删一会插的:D,项目我给你作,对办分成好了:D:D:d