通过Dreaweaver使web连接上数据库

通过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。

<%

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""

%>

解释：

（1）

这部分是为了保证插入数据库的数据为中文，防止乱码。

（2）

在其他网页中用到有关数据库的内容，都需要在前面添加这一行代码。

（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""

弹出一个对话框显示“提交成功，谢谢参与！”，按下确定键即可跳转至名为Untitled-2.asp 的网页。