upaddnote.asp

很不错的进销存系统, 本系统适用于轮胎经销使用

<table width="100%" class="inputb"><tr><td align=center>修改入库记录</td></tr></table>
<center><form name=change_note action="change_addnote.asp" method="post">
<table border="0" width="300">
<%

id=request.QueryString("id")
if id="" then
response.write"请选择要修改的记录！"
response.end
elseif isnumeric(id)=false then
response.write"参数错误！"
response.end
else
Set rs_g=Server.createobject("adodb.recordset")
Sqlstr="select * from JinKu where id="&id
rs_g.open sqlstr,conn,1,1
if rs_g.eof then
response.write"参数错误!"
response.end
end if
end if

response.write"<input name=spid type=hidden value="&rs_g("id")&">"
response.write"<tr><td>商品名称：<input name=sppp type=text class=inputb value="&rs_g("pinpai")&"></td>"
'打开品牌游标
Set rs=Server.createobject("adodb.recordset")
Sql="Select * from ppname where pporder>0 order by pporder"
rs.open Sql,conn,1,1
response.write"<td><select name='ppselect' class=inputa onChange='document.change_note.sppp.value=(this.options[this.selectedIndex].value)'>"
response.write"<option selected>请选择品牌</option>"
while not rs.eof
response.write"<option value="&rs("name")&">"&rs("name")&"</option>"
rs.movenext
wend
rs.close
response.write"</td></tr>"

response.write"<tr><td>商品规格：<input name=ggname type=text value="&rs_g("guige")&"></td>"
Sql1="Select * from ppname where ggorder>0 order by ggorder"
rs.open sql1,conn,1,1
response.write"<td><select name=ggselect onChange='document.change_note.ggname.value=this.options[this.selectedIndex].value'>"
response.write"<option selected>请选择规格</option>"
while not rs.eof
response.write"<option value="&rs("name")&">"&rs("name")&"</option>"
rs.movenext
wend
rs.close
response.write"</td></tr>"

response.write"<tr><td>商品型号：<input name=xhname type=text value="&rs_g("xinghao")&"></td>"
Sql2="Select * from ppname where xhorder>0 order by xhorder"
rs.open sql2,conn,1,1

response.write"<td><select name=xhselect onChange='document.change_note.xhname.value=this.options[this.selectedIndex].value'>"
response.write"<option selected>请选择型号</option>"
while not rs.eof
response.write"<option value="&rs("name")&">"&rs("name")&"</option>"
rs.movenext
wend
rs.close
response.write"</td></tr>"

response.write"<tr><td>商品数量：<input name=shuliang type=text value="&rs_g("shuliang")&">条</td></tr>"
response.write"<tr><td>商品单价：<input name=danjia type=text value="&rs_g("danjia")&">元</td></tr>"
response.write"<tr><td>入库员工：<input name=username type=text value="&rs_g("username")&"></td></tr>"
response.write"<tr><td>入库时间：<input name=intime type=text value="&rs_g("intime")&"></td></tr>"
response.write"<tr><td>入库备注：<textarea name=beizhu rows=2>"&rs_g("beizhu")&"</textarea></td></tr>"
rs_g.close
set rs_g=nothing
set rs=nothing
conn.close
set conn=nothing
%>
<tr><td><input name="submit" type="submit" class="inputb" value="确定修改">&nbsp<input name="submit2" type="reset" value="放弃修改" class="inputb"></td></tr>
</table></form></center>