| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 411 人关注过本帖
标题:帮忙看下程序 问题出哪儿了,谢谢!
只看楼主 加入收藏
hikor
Rank: 1
等 级:新手上路
帖 子:111
专家分:0
注 册:2008-8-2
结帖率:100%
收藏
 问题点数:0 回复次数:5 
帮忙看下程序 问题出哪儿了,谢谢!
我是在做一个论坛 做到发主题贴了,数据都能写入 就是不能显示出来  不知道为什么?高手帮忙

<!--#include file="conn.asp"-->
<%  
if request.QueryString("action")="add" then
    if request.cookies("username")="" then
              response.write ("<script>window.alert('没有登陆不能发帖!');;history.back();</script>")
        response.end
    end if
       if request.Form("usertitle")="" then
              response.write ("<script>window.alert('标题不能为空!');;history.back();</script>")
        response.end
    end if
    if request.Form("usercontent")="" then
              response.write ("<script>window.alert('内容不能为空!');;history.back();</script>")
        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 ("<script>window.alert('添加成功!');location='add_title.asp?fid="&request("fid")&"';</script>")
                  response.end
  end if
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
 <%  Set rs1 = server.CreateObject("ADODB.Recordset")
     sql1="select * from xiaolei"
     rs1.Open sql1,conn,1,1%>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFCC33">
  <tr>
    <td width="830">标题</td>
    <td width="130">作者</td>
    <td width="130">回复/查看</td>
    <td width="140">最后发表</td>
  </tr>
</table>

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

<table width="100%" height="30" border="1" cellpadding="0" cellspacing="0">


  <tr>
    <td width="830"><%=rs("usertitle")%></td>
    <td width="130"><%=rs("username")%></td>
    <td width="130">&nbsp;</td>
    <td width="140">&nbsp;</td>
  </tr>

</table>
<%
 rs.movenext
loop
end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%>
<br />
<br />
<br />
<table width="100%" height="50" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#FFFFCC">&nbsp;&nbsp;快速发新话题</td>
  </tr>
</table>

<table width="100%" border="0" align="right" cellpadding="5" cellspacing="0">
  <form action="add_title.asp?action=add&fid=<%=request("id")%>" method="post" name="form1" id="form1">
  <tr>
    <td>标题</td>
    <td>
      <input type="text" name="usertitle" id="username">
   
    </td>
  </tr>
  <tr>
    <td>内容</td>
    <td><textarea name="usercontent" cols="50" rows="10"></textarea></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input type="submit" name="Submit" value="发表帖子" />
      <input type="reset" name="Submit2" value="重置" /></td>
  </tr>
</form>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
2008-08-02 16:54
hahatuzi2000
Rank: 1
等 级:新手上路
帖 子:39
专家分:0
注 册:2008-7-25
收藏
得分:0 
rs.open sql,conn,1,3

改成rs.open sql,conn,3,2试试看.
cursortype=1时,可以添加新记录,但是不能显示.


嘿嘿~一开始写错了cursortype.然后改回来了.

[[it] 本帖最后由 hahatuzi2000 于 2008-8-2 22:41 编辑 [/it]]
2008-08-02 22:28
hikor
Rank: 1
等 级:新手上路
帖 子:111
专家分:0
注 册:2008-8-2
收藏
得分:0 
谢谢大侠的指教 但是我试了 还是不会显示 平常我都是这样写rs.open sql,conn,1,3
都能显示  为什么这个就不行 郁闷
2008-08-03 14:00
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
<%  Set rs1 = server.CreateObject("ADODB.Recordset")
     sql1="select * from xiaolei"
     rs1.Open sql1,conn,1,1%>

<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFCC33">
  <tr>
    <td width="830">标题</td>
    <td width="130">作者</td>
    <td width="130">回复/查看</td>
    <td width="140">最后发表</td>
  </tr>
</table>

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

<table width="100%" height="30" border="1" cellpadding="0" cellspacing="0">


  <tr>
    <td width="830"><%=rs("usertitle")%></td>
    <td width="130"><%=rs("username")%></td>
    <td width="130"> </td>
    <td width="140"> </td>
  </tr>

</table>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%>
2008-08-03 15:21
hikor
Rank: 1
等 级:新手上路
帖 子:111
专家分:0
注 册:2008-8-2
收藏
得分:0 
是的 斑猪!!! 不好意思 现在才回复 应为刚才一直在研究,原来是我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"  可能是要网页上传递过来的才能显示
2008-08-03 17:01
hikor
Rank: 1
等 级:新手上路
帖 子:111
专家分:0
注 册:2008-8-2
收藏
得分:0 
谢谢 呵呵  我是菜鸟  希望以后多多指教哦
2008-08-03 17:01
快速回复:帮忙看下程序 问题出哪儿了,谢谢!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021261 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved