通过Dreaweaver使web连接上数据库
1.通过Dreamweaver新建一个网页，其内容如下，保存后重命名为conn.asp。
<%
'DIMconn
Setconn=Server.CreateObject("ADODB.Connection")
conn.open"driver={Microsoft Access Driver (*.mdb)};Dbq=" &Server.Mappath("users.mdb")
Setrs=conn.Execute("Select * From user Order By ID DESC")
%>
解释：
该种方式为无DSN(DSN-less)的ODBC方式，其中uesrs.mdb为数据库名称
2.通过Dreamweaver再新建一个网页，其内容如下，保存后重命名为insert.asp。
<!DOCTYPEhtml PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv="Content-Type" content="text/html;charset=gb2312" />
<title>title</title>
</head>
<!--#includefile="conn.asp"-->
<%
q1=request.Form("q1")
q2=request.Form("q2")
q3=request.Form("q3")
q4=request.Form("q4")
q5=request.Form("q5")
q6=request.Form("q6")
q7=request.Form("q7")
ip=request.ServerVariables("REMOTE_ADDR")
sql="Insertinto user([date],ip)values(#"&Date()&"#,'"&ip&"')"
conn.executesql
rs=conn.execute("selecttop 1 ID from user order by id desc")
conn.execute"insert into answer(num,qid,ans)values("&cint(rs("ID"))&",'q1','"&q1&"')"
conn.execute"insert into answer(num,qid,ans)values("&cint(rs("ID"))&",'q2','"&q2&"')"
conn.execute"insert into answer(num,qid,ans)values("&cint(rs("ID"))&",'q3','"&q3&"')"
conn.execute"insert into answer(num,qid,ans)values("&cint(rs("ID"))&",'q4','"&q4&"')"
conn.execute"insert into answer(num,qid,ans)values("&cint(rs("ID"))&",'q5','"&q5&"')"
conn.execute"insert into answer(num,qid,ans)values("&cint(rs("ID"))&",'q6','"&q6&"')"
conn.execute"insert into answer(num,qid,ans)values("&cint(rs("ID"))&",'q7','"&q7&"')"
Response.Write"<script>alert('提交成功，谢谢参与！'); location.href= 'Untitled-2.asp ' ;</script>"
%>
解释：
（1）<!DOCTYPEhtml PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv="Content-Type" content="text/html;charset=gb2312" />
<title>title</title>
</head>
这部分是为了保证插入数据库的数据为中文，防止乱码。
（2）<!--#includefile="conn.asp"-->
在其他网页中用到有关数据库的内容，都需要在前面添加这一行代码。
（3）q1=request.Form("q1")
从之前提交页面中获取name=q1的value值并赋值给重新定义的q1。
（4）sql="Insertinto user([date],ip)values(#"&Date()&"#,'"&ip&"')"
将用户访问的日期和用户的ip地址插入数据库。
（5）conn.execute
是一种执行数据库sql的方法。
（6）rs=conn.execute("selecttop 1 ID from user order by id desc")
执行一句SQL语句，并将记录集返回给rs对象。
（7）conn.execute"insert into answer(num,qid,ans)values("&cint(rs("ID"))&",'q1','"&q1&"')"
执行一句SQL语句。
（8）Response.Write"<script>alert('提交成功，谢谢参与！'); location.href= 'Untitled-2.asp ' ;</script>"
弹出一个对话框显示“提交成功，谢谢参与！”，按下确定键即可跳转至名为Untitled-2.asp 的网页。
扫一扫
11万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
