hikor 发布留言 2008-8-2 16:54
帮忙看下程序 问题出哪儿了，谢谢！
我是在做一个论坛 做到发主题贴了，数据都能写入 就是不能显示出来 不知道为什么？高手帮忙
<%
if request.QueryString("action")="add" then
if request.cookies("username")="" then
response.write ("")
response.end
end if
if request.Form("usertitle")="" then
response.write ("")
response.end
end if
if request.Form("usercontent")="" then
response.write ("")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from usercontent"
rs.open sql,conn,1,3
rs.addnew
rs("usertitle")=request.Form("usertitle")
rs("usercontent")=request.Form("usercontent")
rs("syxl")=request.QueryString("fid")
rs("username")=request.Cookies("username")
rs("time")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write ("")
response.end
end if
%>
<DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
http://www.w3.org/1999/xhtml";>
无标题文档 <% Set rs1 = server.CreateObject("ADODB.Recordset")
sql1="select * from xiaolei"
rs1.Open sql1,conn,1,1%>
<% Set rs = server.CreateObject("ADODB.Recordset")
sql="select * from usercontent where syxl="&rs1("id")&" order by id desc"
rs.Open sql,conn,1,1
if not rs.eof then
do while not rs.eof %>
<%=rs("usertitle")%> |
<%=rs("username")%> |
|
|
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%>
<%
conn.close
set conn=nothing
%>
hahatuzi2000 发布留言 2008-8-2 22:28
rs.open sql,conn,1,3
改成rs.open sql,conn,3,2试试看.
cursortype=1时,可以添加新记录,但是不能显示.[tk18] [tk18] [tk18]
嘿嘿~一开始写错了cursortype.然后改回来了.
[ 本帖最后由 hahatuzi2000 于 2008-8-2 22:41 编辑 [/it]]
hikor 发布留言 2008-8-3 14:00
谢谢大侠的指教 但是我试了 还是不会显示 平常我都是这样写rs.open sql,conn,1,3
都能显示 为什么这个就不行 郁闷
yms123 发布留言 2008-8-3 15:21
<% Set rs1 = server.CreateObject("ADODB.Recordset")
sql1="select * from xiaolei"
rs1.Open sql1,conn,1,1%>
<% Set rs = server.CreateObject("ADODB.Recordset")
这里这个rs1("id")是xiaolei这个表第一行的值？
sql="select * from usercontent where syxl="&rs1("id")&" order by id desc"
rs.Open sql,conn,1,1
if not rs.eof then
do while not rs.eof %>
<%=rs("usertitle")%> |
<%=rs("username")%> |
|
|
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%>
hikor 发布留言 2008-8-3 17:01
是的 斑猪！！！ 不好意思 现在才回复 应为刚才一直在研究，原来是我id传递的有问题
sql="select * from usercontent where syxl="&rs1("id")&" order by id desc"
改成
sql="select * from usercontent where syxl="&request("id")&" order by id desc" 可能是要网页上传递过来的才能显示
hikor 发布留言 2008-8-3 17:01
谢谢 呵呵 我是菜鸟 希望以后多多指教哦
页: [1]
