求救!!!!实时更新表单数据,高手请相助!!!!在线急盼

Question

哈哈...写了好久..真是有点麻烦..<form name="frm_yj" method="post" action="main.asp">
人民币：<input name="rpri_rmb" type="text" value="<%=pri_rmb%>" onChange="RMBchange()">
<input name="rpri_rmb_old" type="hidden" value="<%=pri_rmb%>" ><br><br>港 &nbsp;币：<input name="rpri_gb" type="text" value="<%=pri_gb%>"  onChange="GBchange()">
<input name="rpri_gb_old" type="hidden" value="<%=pri_gb%>"><br><br>美 &nbsp;元：<input name="rpri_my" type="text" value="<%=pri_my%>" onChange="MYchange()">
<input name="rpri_my_old" type="hidden" value="<%=pri_my%>" ><br><br><input type="submit" name="sendinfo" value="提交" ><br>
</form>
<script language="VBscript">sub RMBchange()
frm_yj.rpri_rmb_old.value=frm_yj.rpri_rmb.value
if Abs(CCur(frm_yj.rpri_rmb.value)/1.052)<1 then
frm_yj.rpri_gb.value=replace(CSTR(CCur(frm_yj.rpri_rmb.value)/1.052),".","0.")
else
frm_yj.rpri_gb.value=CCur(frm_yj.rpri_rmb.value)/1.052
end if
frm_yj.rpri_gb_old.value=frm_yj.rpri_gb.valueif Abs(CCur(frm_yj.rpri_rmb.value)/8.255)<1 then
frm_yj.rpri_my.value=replace(CSTR(CCur(frm_yj.rpri_rmb.value)/8.255),".","0.")
else
frm_yj.rpri_my.value=CCur(frm_yj.rpri_rmb.value)/8.255
end if
frm_yj.rpri_my_old.value=frm_yj.rpri_my.value
end subsub GBchange()
frm_yj.rpri_GB_old.value=frm_yj.rpri_GB.value
if Abs(CCur(frm_yj.rpri_GB.value)*1.052)<1 then
frm_yj.rpri_rmb.value=replace(CSTR(CCur(frm_yj.rpri_GB.value)*1.052),".","0.")
else
frm_yj.rpri_rmb.value=CCur(frm_yj.rpri_GB.value)*1.052
end if
frm_yj.rpri_rmb_old.value=frm_yj.rpri_rmb.valueif Abs(CCur(frm_yj.rpri_rmb.value)/8.255)<1 then
frm_yj.rpri_my.value=replace(CSTR(CCur(frm_yj.rpri_rmb.value)/8.255),".","0.")
else
frm_yj.rpri_my.value=CCur(frm_yj.rpri_rmb.value)/8.255
end if
frm_yj.rpri_my_old.value=frm_yj.rpri_my.value
end subsub MYchange()
frm_yj.rpri_my_old.value=frm_yj.rpri_my.value
if Abs(CCur(frm_yj.rpri_my.value)*8.255)<1 then
frm_yj.rpri_rmb.value=replace(CSTR(CCur(frm_yj.rpri_my.value)*8.255),".","0.")
else
frm_yj.rpri_rmb.value=CCur(frm_yj.rpri_my.value)*8.255
end if
frm_yj.rpri_rmb_old.value=frm_yj.rpri_rmb.valueif Abs(CCur(frm_yj.rpri_rmb.value)/1.052)<1 then
frm_yj.rpri_gb.value=replace(CSTR(CCur(frm_yj.rpri_rmb.value)/1.052),".","0.")
else
frm_yj.rpri_gb.value=CCur(frm_yj.rpri_rmb.value)/1.052
end if
frm_yj.rpri_gb_old.value=frm_yj.rpri_gb.value
end sub</script>