信息栏，里面信息分为两大类，
用的数据库是：表名：tbl_info_class 里面:classid=1 classname=党建园地；classid=7 classname=职工之窗，
在点击某个信息时，弹出的页面中上方先显示信息类别，也就是党建园地或职工之窗，然后是信息题目，内容等；
现在请教显示党建园地或职工之窗时，调用的函数，代码如下，请指导：
<td width="614" height="49" align="center" valign="bottom" background="images/bg.jpg"><span class="STYLE7">
<% Set Rs = Server.CreateObject("ADODB.Recordset")   
Execute("Select ClassName From [tbl_info_class ]")   
If "classid"=1 Then Response.Write "党建园地"  
  else Response.Write "职工之窗"
  End If%></span></td>

Microsoft JET Database Engine '80040e14'

语法错误 (操作符丢失) 在查询表达式 'classid=' 中。

\news_View01.asp, line 194

有错误，请指教。

tbl_info_class：表
classid     classname
  1         党建园地
  5         职工之窗

tbl_info：表
id   title  classid
334   ....     1

<%
    classid=Request.QueryString("classid")        '链接传递过来的classid
   
     Set Rs = Server.CreateObject("ADODB.Recordset")
    sql="Select tbl_info_class.ClassName From tbl_info_class,tbl_info where tbl_info_class.classid=tbl_info.classid"
   
    Rs.Open sql,Conn,1,1
    if Rs.bof and Rs.eof then
    response.write "记录集为空，传递过来的classid不对"
    response.end
else
    Response.Write ClassName
end if
%>

运行后，没有错误提示，但没有显示信息类别

<%
    classid=Request.QueryString("classid")        '链接传递过来的classid
   
     Set Rs = Server.CreateObject("ADODB.Recordset")
    sql="Select tbl_info_class.ClassName From tbl_info_class,tbl_info where tbl_info_class.classid=tbl_info.classid"
   
    Rs.Open sql,Conn,1,1
    if Rs.bof and Rs.eof then
    response.write "记录集为空，传递过来的classid不对"
    response.end
else
    Response.Write Rs("ClassName")
end if
%>

信息类别显示的都是党建园地

<%
    Dim classid
    classid =Request("classid")        '链接传递过来的classid
   
     Set Rs = Server.CreateObject("ADODB.Recordset")
    sql="Select ClassName From tbl_info_class,tbl_info where tbl_info_class.classid=tbl_info.classid"
   
    Rs.Open sql,Conn,1,2
    if Rs.bof and Rs.eof then
    response.write "记录集为空，传递过来的classid不对"
    response.end
else
    Response.Write Rs("ClassName")
end if
%>

classid没有传递过来，所有信息类别都显示是党建园地，请帮我看下，哪里的问题

<%
  id=Request.QueryString("id")

Set Rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From tbl_info,tbl_info_class where tbl_info.id="&id&" and tbl_info.classid=tbl_info_class.classid"

Rs.Open sql,Conn,1,1
if Rs.bof and Rs.eof then
    response.write "没有记录"
    response.end
else
    Response.Write rs("classname")
    end if

Rs.close
Set Rs=Nothing
%>

此功能已实现，谢谢dzt0001的帮助。

[ 本帖最后由 mhb111111 于 2011-7-28 17:18 编辑 ]