● [合集]帮忙看一下着两段asp，为什么会出错呢 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: huhaiming (一生只爱她), 信区: Program
标  题: [合集]帮忙看一下着两段asp，为什么会出错呢
发信站: 荔园晨风BBS站 (Fri Apr 30 18:31:09 2004), 站内信件

scrcom (虎落平阳) 于Sun Feb 29 12:12:04 2004提到：

1:实现功能，将数据库多行记录的两个字段用表格显示出来

<%

DbPath = SERVER.MapPath("Messege.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath

respone.write "共有"&conn.RecordCount&"条留言"

while not conn.EOF
  Response.Write "<tr>"
  for i=0 to conn.fields.count-1
    Respone.Write "<td>"&conn.fields(i).value&"</td>"
  next
  response.write "</tr>"
  conn.MoveNext
Wend
conn.close
set conn=nothing

%>

2：向数据库中加入记录

<%

name=Request.Form("name")
words=Requst.Form("words")

DbPath = SERVER.MapPath("Messege.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath

conn.AddNew
conn("name").value=name
conn("words").value=words
conn.UpdateBatch
conn.close
set conn=nothing

response.redirect "index.asp"
%>

对各位来说应该很简单吧

Version (Vampire&Yukon&Whidbey&Scorpio) 于Sun Feb 29 12:15:00 2004提到：

错误信息呢？

Chengal (今晚没有太阳) 于Sun Feb 29 13:55:38 2004提到：

这里！！
dim sqlstr
sqlstr="select......"
set rs=server.createobject("adodb.recordset")
set rs=conn.open sqlstr,conn,3,1

            ~~~~~~~~~~=>rs.eof 下面的conn都改成rs
''''''''''''''''和上面的错误一样没有制定表名

scrcom (虎落平阳) 于Sun Feb 29 17:41:40 2004提到：

哦，是啊，如果这样也行吧？
rs=conn.Execute("select * from messege",recordsAffected,adcmd)

Chengal (今晚没有太阳) 于Sun Feb 29 17:47:13 2004提到：

这个我没有用过，自己试试咯

scrcom (虎落平阳) 于Sun Feb 29 17:51:18 2004提到：

你写的有句好象调试错误了

语句未结束

/index.asp，行19

set rs=conn.open sqlstr,conn,3,1

Chengal (今晚没有太阳) 于Mon Mar  1 14:30:29 2004提到：

把错误信息给出来会好一点

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店