比如你数据库里有一个表AAA,里面有字段b1、b2、b3
链接数据库代码
<%
Response.CodePage = 936
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("数据库路径")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
表单:
<form name="form" method="post" action="?tj=y">
<input type="text" name="b1">
<input type="text" name="b2">
<input type="text" name="b3">
<input type="submit" value="提交">
</form>
提交表单,把表单的数据写入所连接的数据库的处理程序:
<%
if trim(requet("tj"))="y" then
set rs=server.createobject("adodb.recordset")
sql="select * from AAA"
rs.open sql,conn,1,3
rs.addnew
rs("b1")=trim(requet("b1"))
rs("b2")=trim(requet("b2"))
rs("b3")=trim(requet("b3"))
rs.update
response.write"<script language=javascript>alert('提交成功!')window.location.href='?'</script>"
end if
%>
分类: 电脑/网络 >>程序设计 >>其他编程语言问题描述:
说不清楚的话给我个教程地址也可以啊谢谢````
解析:
首先得连接数据库,要是这也不会的话。。。
然后用request方法来获得表单里的内容;
然后打开要储存数据的数据库里的表,要是你还不知道表的概念。。。#¥#%#《{%@。。。
然后添加一条新记录:把表单里的各项内容放到表里对应的字段里;
然后就保存进去了。
你最好不要这样写。程序要写的专业点,你这太业余。form1=Request.form("form1") if form1<>"" thenset rs=server.CreateObject("adodb.recordset")sttr="select * from xxx"'如果要判断数据是否重复SQL语句改一下
rs.open sttr,conn,1,3
rs.addnew
rs("form1shuju")=form1
rs.update end if
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)