回答详情
横眉棱眼的野马
2019-11-10 14:39:20
<table border=1 id="Tb1">
<tr>
<td>Kind</td>
<td width=200><select name="wkind">
<%
tsql = "select * from wkind where wkwhouse = 'fplan'"
set rs =conn.execute(tsql)
do while not rs.eof
%>
<option value=<%=rs("idwkind")%>><%=rs("wkname")%></option>
<%
rs.movenext
loop
%>
</select></td>
</tr>
<tr><td>Name</td><td><input type=text name=fname></td></tr>
<tr><td>Price</td><td><input type=text name=fprice></td></tr>
<tr><td>Memo</td><td><input type=text name=fmemo></td></tr>
<tr><td><input type=submit name=sbm value=submit /></td>
<td></td></tr>
</table>
</form>
<br>
<hr>
<br>
<form name=form2 action=fplan99.asp method=post>
<table border=1 id="Tb1">
<tr><td name = "miao" id="miao">select</td><td>Name</td><td>Sum</td><td>Adjust</td><td>Price</td><td>memo</td></tr>
<%
tsql = "select * from futureplan where fflag='1' order by fdate desc"
set rs =conn.execute(tsql)
do while not rs.eof
%>
<tr>
<td><input type=checkbox name=finalover value=<%=rs("fid")%>></td><td><%=rs("fdate")%></td><td><%=rs("fkind")%></td><td><%=rs("fname")%></td><td><%=rs("fprice")%></td><td><%=rs("fmemo")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
fid= wesid("fplan")
fkind = request.form("wkind")
fname = request.form("fname")
fdate =Year(date)&"-"&right("0"&Month(date),2)&"-"&right("0"&Day(date),2)
fprice = request.form("fprice")
fmemo = request.form("fmemo")
sql = "insert into futureplan values('"& fid &"','"&fkind&"','"&fname&"','"&fdate&"','"&fprice&"','"&fmemo&"','1')"
response.write(sql)
conn.execute(sql)
idsql = "update wesid set wid = '"& fid & "',udate='" & now & "' where utable = 'fplan'"
conn.Execute(idsql)
%>
--------------99
<%
finalover = Split(request.form("finalover"),",")
For I=0 To UBound(finalover)
Response.Write finalover(I)
Response.Write "<br />"
sql = "update futureplan set fflag='0' where fid ='"&trim(finalover(I))&"'"
response.write sql
conn.execute(sql)
Next
%>
<tr>
<td>Kind</td>
<td width=200><select name="wkind">
<%
tsql = "select * from wkind where wkwhouse = 'fplan'"
set rs =conn.execute(tsql)
do while not rs.eof
%>
<option value=<%=rs("idwkind")%>><%=rs("wkname")%></option>
<%
rs.movenext
loop
%>
</select></td>
</tr>
<tr><td>Name</td><td><input type=text name=fname></td></tr>
<tr><td>Price</td><td><input type=text name=fprice></td></tr>
<tr><td>Memo</td><td><input type=text name=fmemo></td></tr>
<tr><td><input type=submit name=sbm value=submit /></td>
<td></td></tr>
</table>
</form>
<br>
<hr>
<br>
<form name=form2 action=fplan99.asp method=post>
<table border=1 id="Tb1">
<tr><td name = "miao" id="miao">select</td><td>Name</td><td>Sum</td><td>Adjust</td><td>Price</td><td>memo</td></tr>
<%
tsql = "select * from futureplan where fflag='1' order by fdate desc"
set rs =conn.execute(tsql)
do while not rs.eof
%>
<tr>
<td><input type=checkbox name=finalover value=<%=rs("fid")%>></td><td><%=rs("fdate")%></td><td><%=rs("fkind")%></td><td><%=rs("fname")%></td><td><%=rs("fprice")%></td><td><%=rs("fmemo")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
fid= wesid("fplan")
fkind = request.form("wkind")
fname = request.form("fname")
fdate =Year(date)&"-"&right("0"&Month(date),2)&"-"&right("0"&Day(date),2)
fprice = request.form("fprice")
fmemo = request.form("fmemo")
sql = "insert into futureplan values('"& fid &"','"&fkind&"','"&fname&"','"&fdate&"','"&fprice&"','"&fmemo&"','1')"
response.write(sql)
conn.execute(sql)
idsql = "update wesid set wid = '"& fid & "',udate='" & now & "' where utable = 'fplan'"
conn.Execute(idsql)
%>
--------------99
<%
finalover = Split(request.form("finalover"),",")
For I=0 To UBound(finalover)
Response.Write finalover(I)
Response.Write "<br />"
sql = "update futureplan set fflag='0' where fid ='"&trim(finalover(I))&"'"
response.write sql
conn.execute(sql)
Next
%>
最新回答
2026-10-29 18:12:00
2026-10-29 18:11:53
2026-10-29 18:11:45
2026-10-29 18:11:37
2026-10-29 18:11:28
2026-10-29 18:11:12


