<SCRIPT language=vbscript>
<!--
function examine1(id)
dim npri,npri2
Dim TheForm,StrForm
on error resume next
npri=cDbl(inputbox("请输入STOCK价格","INSERTPRICE","0"))
npri2=cDbl(inputbox("请输入ORDER价格","INSERTPRICE","0"))
If (err.number <> 0) Then
    Msgbox "错误：" & err.number & " " & err.description,, "无效输入"
else
    Set TheForm = Document.ValidForm
    StrForm="supplier_products.asp?id="&id&"&act=examine&list=<%= Trim(Request.QueryString("list")) %>&page=<%= Trim(Request.QueryString("page")) %>&type=<%= Trim(Request.QueryString("type")) %>&npri="&npri&"&npri2="&npri2&"&textfield=<%= Trim(Request.QueryString("textfield")) %>"
    msgbox StrForm
    TheForm.location =StrForm????????????????
End If
end function
-->
</SCRIPT>