回 帖 发 新 帖 刷新版面

主题:請教調用數據庫問題

請教大家一個問題,我新學ASP不久,現在想做一個頁面從ACCESS調用數據庫
現在希望從payjilu中調用出所有該用戶的订单記錄,按以下方式做始終有問題,
有沒有高手能幫忙修改一下,告訴我錯在哪裡啊,謝謝了
代碼如下


<td>
<%dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from [payjilu] where username='"&trim(rs("username"))&"'",conn,1,1
end if
while not rs2.eof%>
<%response.write rs2.recordcount&"笔订单"%>        
</td>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="left"><table width="600" border=1 align="center" cellPadding=0 cellSpacing=0 bordercolor="#CCCCCC" borderColorDark=#ffffff bgcolor="#F9F9F9">
              <tr>
                <td width="41" height="30"><div align="center">编号</div></td>
                <td width="111"><div align="center">交易项目</div></td>
                <td width="178"><div align="center">交易名称</div></td>
                <td width="101"><div align="center">交易价格</div></td>
                <td width="48" align="center">人數</td>
                <td width="107"><div align="center">交易时间</div></td>
              </tr>

              <tr>
                <td height="25"><div align="center"><%=rs2("id")%></div></td>
                <td><div align="center"><%=rs2("type")%></div></td>
                <td><div align="center"><%=rs2("name")%></div></td>
                <td><div align="center"><%=rs2("jiage")%></div></td>
                <td><div align="center"><%=rs2("renshu")%></div></td>
                <td><div align="center"><%=rs2("paytime")%></div></td>
              </tr>
       </table>
           <%
rs2.movenext
wend
rs2.close
end sub%>

回复列表 (共9个回复)

沙发


把错误的提示发一下。

板凳

只是顯示HTTP 500 - 內部伺服器錯誤 
應該沒用吧,要不要把整個文件發上來啊,

3 楼



关闭Internet属性中高级:显示友好HTTP错误信息,看提示的错误是什么!

具体步骤:Internet Explorer右键----属性----高级----显示友好HTTP错误信息(去

掉对号)

4 楼

Microsoft VBScript 晤祒&#63239;渣昫 渣昫 '800a0400' 

&#63483;屾逄曆 

/admin/listuser.aspㄛ俴 141 

end if
^
我的是繁體系統,只能顯示這樣了

5 楼

rs2.open "select * from [payjilu] where username='"&trim(rs("username"))&"'",conn,1,1
end if
这里的end if 好象多了

6 楼

应该是缺少语句!

比如:有些语句是成对出现的。象if...end if 如果只有if,而没有end if便提示此错

误!

你上面的代码只是一部分,不知道到底少那个!

7 楼

是,我去了end  if,再根據提示
end sub有錯誤,去掉end sub好象就可以了,但是表格不整齊,
想問一下end sub是什麼功能?

8 楼


end sub是与sub 函数名()成对出现的。

sub 函数名()

......

end sub

意思是定义一个函数,以备以后调用.

9 楼

謝謝了,這裡的TX真熱心,以後經常來,呵呵

我来回复

您尚未登录,请登录后再回复。点此登录或注册