| <%
Dim Action
Action = chkString(request("Action"))
If (Action <> "") then
set rs = server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.CursorType = 1
strSql = "select top 1 * from Orders"
rs.open strSql,conn,1,3
rs.AddNew
rs("v_rname") = chkString(request("v_rname"))
rs("v_rtel") = chkString(request("v_rtel"))
rs("v_raddr") = chkString(request("v_raddr"))
rs("GoodsName") = "腋兰香"
rs("GoodsNum") = chkString(request("GoodsNum"))
rs("QQ") = chkString(request("QQ"))
rs("v_pmode") = chkString(request("v_pmode"))
rs("Remark") = chkString(request("Remark"))
rs.update%>
请您一定要留下正确的联系电话,以方便我们客服与您联系后给您发货,谢谢! |