asp教程 +access 数据保存插入代码
if requestQueryString("ag") then
set conn=servercreateobject("adodbconnection")
connopen "driver={microsoft access driver (*mdb)};dbq="&servermappath("/skyjmdb")
ag=requestform("ag")
amount=requestform("amount")
name=requestform("name")
tel=requestform("tel")
email=requestform("email")
QQ=requestform("QQ")
bolg=requestform("bolg")
blank=requestform("blank")
exec="insert into 订单(订单数量人名电话EmailQQ博客银行卡号)values("+ag+""+amount+""+name+""+tel+""+email+""+QQ+""+bolg+""+blank+")"
connexecute exec
connclose
set conn=nothing
end if
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE=""%>
<!DOCTYPE html PUBLIC "//WC//DTD XHTML Transitional//EN" "
<html xmlns="
<html>
<head>
<title>asp +access 数据保存插入代码</title>
<meta httpequiv="ContentType" content="text/html; charset=gb">
</head>
<body bgcolor="#FFFFFF" text="#">
<form name="form" method="post" action="//exampleasp">
<table width="%" border="">
<tr>
<td>产品
<input type="text" name="ag" value=""> </td>
<td>数量 （斤）
<input type="text" name="amount" value=""></td>
<td>姓名
<input type="text" name="name" value=""></td>
<td>电话
<input type="text" name="tel" value=""></td>
<td>Email
<input type="text" name="email" value=""></td>
<td>QQ
<input type="text" name="QQ" value=""></td>
<td>博客<input type="text" name="bolg" value=""></td>
<td>银行卡号<input type="text" name="blank" value=""></td>
</tr>
</table>
<br>
<br>
<br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重置">
</form>
<br>
</body>
</html>
