S
shanshanhao
Unregistered / Unconfirmed
GUEST, unregistred user!
<html>
<head>
<title>Untitleddo
cument</title>
<meta http-equiv="Content-Type"
content="text/html;
charset=gb2312">
</head>
<SCRIPT language=javascript>
var line=2
function delIt()
{
line=parseInt(event.srcElement.ln,10)
if (line>0)
for (i=1;i<PLList.rows.length;i++)
if (tdt.ln==line)
{
if (do
cument.ecform.medication.value.length>0 )
if (!confirm("Are you sure you want to delete this record?")
return
PLList.deleteRow(i)
}
}
function mouseOver()
{
event.srcElement.className="delMouseOver"
}
function mouseOut()
{
event.srcElement.className="scheduleButtonVisible"
}
</script>
<body bgcolor="#FFFFFF"
text="#000000">
<form action=rktz6.asp method ="post">
<TABLE id=fileinput1>
<tr>
<td><input type="text"
name="a1"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a2"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a3"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a4"></td>
<td ><input type="text"
name="a5"></td>
<td><input type=button value=删除 class=cbutton onClick=""DelFileInput(1)""></td></tr></TABLE>
<table id=fileinput2>
<tr>
<td><input type="text"
name="a1"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a2"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a3"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a4"></td>
<td ><input type="text"
name="a5"></td>
<td><input type=button value=删除 class=cbutton onClick=""DelFileInput(2)""></td>
</tr>
</table>
<input type="button"
name="add_line"
value="增加下一行"
onClick="AddFileInput()">
<script language="VBScript">
NowFileInputNo = 3
NowFileInputCount =2
Sub AddFileInput()
If NowFileInputCount < 10 then
HTMLSrc = "<table Id=FileInput"&
NowFileInputNo &"><tr><td> <input type=""text""
name=""a1""></td><td><input type=""text""
name=""a2""></td><td><input type=""text""
name=""a3""></td><td><input type=""text""
name=""a4""></td>"
HTMLSrc = HTMLSrc &
"<td><input type=""text""
name=""a5""><input type=button value=删除 class=cbutton onClick=""DelFileInput("&
NowFileInputNo &"""></td></tr></table>"&
vbcrlf
do
cument.all.add_line.InsertAdjacentHTML "beforebegin
", HTMLSrc
NowFileInputNo = NowFileInputNo + 1
NowFileInputCount = NowFileInputCount + 1
else
Alert "增加太多记录行"
End IF
End Sub
Sub DelFileInput(tableno)
do
cument.all("FileInput"&
tableno).outerHTML = ""
NowFileInputCount = NowFileInputCount - 1
End Sub
</script>
<p><input type="submit"
value="提交"
name="B1"><input type="reset"
value="重置"
name="B2"></p>
</form>
</body>
</html>
<head>
<title>Untitleddo
cument</title>
<meta http-equiv="Content-Type"
content="text/html;
charset=gb2312">
</head>
<SCRIPT language=javascript>
var line=2
function delIt()
{
line=parseInt(event.srcElement.ln,10)
if (line>0)
for (i=1;i<PLList.rows.length;i++)
if (tdt.ln==line)
{
if (do
cument.ecform.medication.value.length>0 )
if (!confirm("Are you sure you want to delete this record?")
return
PLList.deleteRow(i)
}
}
function mouseOver()
{
event.srcElement.className="delMouseOver"
}
function mouseOut()
{
event.srcElement.className="scheduleButtonVisible"
}
</script>
<body bgcolor="#FFFFFF"
text="#000000">
<form action=rktz6.asp method ="post">
<TABLE id=fileinput1>
<tr>
<td><input type="text"
name="a1"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a2"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a3"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a4"></td>
<td ><input type="text"
name="a5"></td>
<td><input type=button value=删除 class=cbutton onClick=""DelFileInput(1)""></td></tr></TABLE>
<table id=fileinput2>
<tr>
<td><input type="text"
name="a1"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a2"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a3"></td>
<td bgcolor="#FFFFFF"><input type="text"
name="a4"></td>
<td ><input type="text"
name="a5"></td>
<td><input type=button value=删除 class=cbutton onClick=""DelFileInput(2)""></td>
</tr>
</table>
<input type="button"
name="add_line"
value="增加下一行"
onClick="AddFileInput()">
<script language="VBScript">
NowFileInputNo = 3
NowFileInputCount =2
Sub AddFileInput()
If NowFileInputCount < 10 then
HTMLSrc = "<table Id=FileInput"&
NowFileInputNo &"><tr><td> <input type=""text""
name=""a1""></td><td><input type=""text""
name=""a2""></td><td><input type=""text""
name=""a3""></td><td><input type=""text""
name=""a4""></td>"
HTMLSrc = HTMLSrc &
"<td><input type=""text""
name=""a5""><input type=button value=删除 class=cbutton onClick=""DelFileInput("&
NowFileInputNo &"""></td></tr></table>"&
vbcrlf
do
cument.all.add_line.InsertAdjacentHTML "beforebegin
", HTMLSrc
NowFileInputNo = NowFileInputNo + 1
NowFileInputCount = NowFileInputCount + 1
else
Alert "增加太多记录行"
End IF
End Sub
Sub DelFileInput(tableno)
do
cument.all("FileInput"&
tableno).outerHTML = ""
NowFileInputCount = NowFileInputCount - 1
End Sub
</script>
<p><input type="submit"
value="提交"
name="B1"><input type="reset"
value="重置"
name="B2"></p>
</form>
</body>
</html>