[求助]怎么用ASP向ACCESS数据库写内容呀？

mango

[这个贴子最后由纵横在 2003/01/06 05:04pm 编辑]

我都快被那破表单折腾崩溃了，，好不容易弄到如下格式的原码：

2. <%
3. if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
4.    response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
5. call add()
6. else
7.     Response.Redirect "vote0.asp"
8. end if
9. sub add
10. connstr = "DBQ="+server.mappath("vote.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
11.    Set DataConn = Server.CreateObject("ADODB.Connection")
12.    dataconn.open connstr
13.      if len(request("v1"))>0 then
14.    Set rs = dataconn.execute("update vote set selecta = selecta+1 WHERE id=1")
15. else
16.    set RS=nothing
17. end if
18.      if len(request("v2"))>0 then
19.    Set rs = dataconn.execute("update vote set selectb = selectb+1 WHERE id=1")
20. else
21.    set RS=nothing
22. end if
23.      if len(request("v3"))>0 then
24.    Set rs = dataconn.execute("update vote set selectc = selectc+1 WHERE id=1")
25. else
26.    set RS=nothing
27. end if
28.      if len(request("v4"))>0 then
29.    Set rs = dataconn.execute("update vote set selectd = selectd+1 WHERE id=1")
30. else
31.    set RS=nothing
32. end if
33.      if len(request("v5"))>0 then
34.    Set rs = dataconn.execute("update vote set selecte = selecte+1 WHERE id=1")
35. else
36.    set RS=nothing
37. end if
38.     Set DataConn = Nothing
39.     Response.Redirect "votedetail.asp"
40. end sub
41. %>

复制代码

实在是不明白，我大概觉得意识呢就是往事先在数据库里选好的格里加数字，每个人选就加1对吗？
但是还有几个格是要输入文字的，比如注册EM什么的，那怎么进行记录呀？在ACCESS和ASP里分别怎么设置呀？？？
我都要崩溃了，那个好心人帮帮我呀

mango

我要是看的明白就好了，，，哭死了，，，，，哦，，明白了，，，原码发不上来，，我弄个照片，，帮我看看算了

mango

这是结尾，中间都是一样的函数，，，，哪个好人帮我分析一下，，，，，我实在是不懂呀~~~

纵横

出代码要用 [ code]........[ /code] 的LB标签

undertaker

[这个贴子最后由undertaker在 2003/01/06 09:44pm 编辑]

ASP中连接数据库的6种方法
http://www.163.ca/cgi-bin/lb5000/topic.cgi?forum=37&topic=157&show=0
我最后加的那个比较常用。。。

mango

.....去看了，，，，还是看不懂，，，，真后悔，，我怎么不是学电脑的呀，，，现在后悔了，，，，，，，还要继续钻研，，，，，，

mango

恩，，都怪我，，我要是会写测试程序不就没这么多麻烦了吗，，，下面我详细的说一下整个经过
我们要在旅游版做个投票，很复杂，所以论坛的投票功能不够用，所以要自己做页面，页面我会做，之后呢要不就是用EM提交，很不方便对吧，要不就是用FP自带的WEBBOT，但是要服务起支持，又行不通，最后就是用ASP了
于是就上网找了个ASP写好的投票程序，有几部分组成，页面程序，也就是我原来做好的表单现在套上这个程序头，做成个ASP的投票，基本没什么问题
然后是投票处理程序，就是我贴上来的这个了，我是想把投票的结果存放到一个MDB数据库里，现在所有的选项可以存到数据库相应的地方，但是最后有填建议，EM地址，ID的什么地方，怎么把他弄到数据库里呢？
其他几部分就是投票完成后的页面还有控制IP不能重复投票的，都没问题，，，大概讲清楚了吗？？？

mango

还是应该改这部分呀？

2. <%
3.    dim conn   
4.    dim connstr
5.    connstr="DBQ="+server.mappath("vote.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
6.      set conn=server.createobject("ADODB.CONNECTION")
7.      conn.open connstr
8. dim rs
9. dim sql
10. dim selecta
11. dim selectb
12. dim selectc
13. dim selectd
14. dim selecte
15. dim total
16. set rs=server.createobject("adodb.recordset")
17. sql="select * from vote where id=1"
18. rs.open sql,conn,1,1
19. if not rs.eof then
20. total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")+rs("selecte")
21. selecta=(rs("selecta")/total)*100
22. selectb=(rs("selectb")/total)*100
23. selectc=(rs("selectc")/total)*100
24. selectd=(rs("selectd")/total)*100
25. selecte=(rs("selecte")/total)*100
26.       response.write "<table  cellspacing=0 cellpadding=0 border=1 valign='middle' width='100%' height='100%' align='center' bordercolor='#ffffff' ><tr><td bgcolor='#f7f3f7' bordercolor='#808080'>"
27.       response.write "<p align=center>::: 调 查 结 果 :::</p>" %>
28.       <br>

复制代码

mango

OK，基本了解，就是这个依样画葫芦，，虽然我不懂，但是我觉得写入的指令一定不一样，比如

1. if len(request("v2"))>0 then    Set rs = dataconn.execute("update vote set selectb = selectb+1 WHERE id=1") else     set RS=nothing end if

复制代码

是写选项，那写字段用什么指令呢？？

mango

恩，，谢谢了，，我先研究着，有问题再来问，，估计要研究几天，，，呵呵