<%
  Set rs = Server.CreateObject("ADODB.RECORDSET") 
  '读取商品类别信息
  sql="SELECT * FROM GoodsType ORDER BY Id"
  Set rs = Conn.Execute(sql)
  If rs.EOF Then
%>
                <option value=""></option>
                <%
  Else
    Do While Not rs.Eof%>
                <option value="<%=rs("id")%>"><%=rs("type")%></option>
                <%
      rs.MoveNext
    Loop
  End If
  rs.Close
%>
              </s
第二个代码:
<Script Language="JavaScript">
function ChkFields() {
  if (document.myform.typeid.selectedIndex < 0) {
    alert("请选择商品类别");
    return false;
if (document.myform.name.value=="") {
    alert("请输入商品名称");
    return false;
  }
  if (document.myform.saleprice.value=="") 
alert("请输入商品名称");
    return false;
  }
  if (document.myform.saleprice.value=="") {
    alert("请输入销售价格");
    return false;
  }
  if (document.myform.storeprice.value=="") {
    alert("请输入进货价格");
    return false;
  }  
  return true;
 }
</Script>OrderNumber = makeOrderNumber()
   id = Request.QueryString("id")
   sql = "Update Basket Set AdminChecked=1, UserChecked=2,OrderNumber="&OrderNumber&",PostTime='"&now()&"' Where id="&id
   Conn.Execute(sql)
   '取得订购数量
sql = "Select * From Basket where id="&id
   Set rs = Conn.Execute(sql)
   If not rs.Eof then
     OrderCount = rs("OrderCount")
     GoodsId = rs("GoodsId")
     '更改商品销售数量
     sql = "Update Goods Set BuyCount=BuyCount+"&OrderCount&" Where id="&GoodsId
     Conn.Execute(sql)
   End If

第三个如下: