%@ LANGUAGE="VBSCRIPT" %>
<%
DbPath = SERVER.MapPath("../database/topboy-2002.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
%>
<%
If request("imageadd.x") <> "" Then
if isnumeric(request("price")) = false or isnumeric(request("iprice")) = false or isnumeric(request("freight")) = false then
response.write"
"
Response.write " 您好,价格请您填写数字!"
Response.write "请按此返回..."
Response.end
end if
sql="insert into topboy_product (productname,price,iprice,freight) values('"& trim(request("productname")) &"','"& request("price") &"','"& request("iprice") &"','"& request("freight") &"')"
conn.execute sql
response.redirect "manager-product-list.asp"
response.end
end if
%>