荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: 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软件 网络书店