网上定单

<% if request("Submit")<>empty then Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("admin/news.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=88839470;dbq=" & DBPath SET rs=server.createobject("adodb.recordset") name=request("name") tel=request("tel") email=request("email") cx=request("cx") flydate=request("flydate") flydate1=request("flydate1") cid="0" con=request("con") strSQL="insert into tbl_ly (lyname,lytel,lyemail,lycx,lyflydate,lyflydate1,lycontent,lytime) values ('"&name&"','"&tel&"','"&email&"','"&cx&"','"&flydate&"','"&flydate1&"','"&con&"','"&now()&"')" 'response.write strSQL rs.open strSQL,conn,1,1 %> <% else %>