[已解决.感谢回帖的你]勇求智者相助－关于提交 - ASP

封xin封mg

电梯直达

1^#

发表于 2010-1-7 03:27:09 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

对ASP算是初学吧，感悟很多！提个问题希望大家帮助（感谢以前帮助过我的版主和各位大侠）

思路如下：
Content.asp（新闻列表页面）

我想加一个判断，
当Content.asp?typeid=1 时显示表里tpye=1的所有新闻（例如国家新闻）
当Content.asp?typeid=2 时显示表里tpye=2的所有新闻（例如地方新闻）

Content.asp大致内容如下:

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
<td width="156" align="center"><strong>新闻标题</strong></td>
<td width="329" align="center"><strong>新闻内容</strong></td>
<-- ---------------------------
typeid=Request("typeid")

if typeid = 1 then '等于1时显示“国内新闻”
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type=1" '（国内新闻）
rs.open sql,conn,3,1
end if

if typeid = 2 then '等于2时显示“地方新闻”
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type=2" '（地方新闻）
rs.open sql,conn,3,1
end if

循环------------------------------->
<td width="156" align="center"><%=rs("title")%></td>
<td width="329" align="center"><%=rs("content")%></td>
结束循环<-----------------------------

关闭数据库连接
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

报错的提示如下：
＝＝＝＝＝＝＝＝＝＝＝错误提示＝＝＝＝＝＝＝＝＝＝＝＝＝＝
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'rs'
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

可否告诉我正确的方法！谢谢

收藏0

使用道具举报

怎么可能

2^#

发表于 2010-1-7 03:27:11 | 只看该作者

谢谢楼上的提示,再次感谢!和你们学习真好!

回复支持反对

使用道具举报

黒設會

3^#

发表于 2010-1-7 03:27:14 | 只看该作者

帮助你的时候,我们也是再次熟悉一下,对大家都有好处.

回复支持反对

使用道具举报

Yaci

4^#

发表于 2010-1-7 03:27:21 | 只看该作者

楼上说得对你只要在SQL语句上写成那样就行了，而不用像楼主那样判断。如果想你那样判断一旦你TYPE变了就不管用了，斑竹的想法可以的！我一般是这样写的，你可以参考一下：

<%
type1=request("typeid")
if type1="" not IsNumeric(type1) then
response.Write"<script language=javascript>alert('参数不对!');window.close();</script>"
response.End()
end if
%>

引用一下斑竹的！

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type="&request("typeid")
rs.open sql,conn,3,1
if rs.eof then
response.white "查询失败!"
else
%>
循环------------------------------->
<td width="156" align="center"><%=rs("title")%></td>
<td width="329" align="center"><%=rs("content")%></td>
结束循环<-----------------------------
<%
end if
%>

回复支持反对

使用道具举报

鰰﹎話

5^#

发表于 2010-1-7 03:27:24 | 只看该作者

typeid=Request("typeid")

sql="Select * From news Where type="

If CInt(typeid)=1 Then
sql=sql&"1"
Else
sql=sql&"2"
End If

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open sql,Conn,3,1

If Rs.EOF Then
Response.Write "查询失败！"
Response.End
End If
循环------------------------------->
<td width="156" align="center"><%=rs("title")%></td>
<td width="329" align="center"><%=rs("content")%></td>
结束循环<-----------------------------

回复支持反对

使用道具举报

淺藍銫dē爱

6^#

发表于 2010-1-7 03:27:27 | 只看该作者

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type="&request("typeid")
rs.open sql,conn,3,1
if rs.eof then
response.white "查询失败!"
else
%>

循环------------------------------->
<td width="156" align="center"><%=rs("title")%></td>
<td width="329" align="center"><%=rs("content")%></td>
结束循环<-----------------------------

最后要结束判断,既end if

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册