快帮帮我

booro 2003-03-31 10:36:58

高手啊，zhuid是一级栏目的分栏，如何把zhuid设为一啊，就是一进到xxx.asp时。。他显示的zhuid是1，。快帮帮我
<%@ LANGUAGE = VBScript.Encode %>


<%
dim zhuid,typeid,zhu,types
dim sql

typeid=Request.QueryString("typeid")
zhuid=Request.QueryString("zhuid")

if not IsNumeric(zhuid) or zhuid="0" then
Response.Write("错误参数")
Response.End
end if

if typeid<>"" then
if not IsNumeric(typeid) then
Response.Write("错误参数")
Response.End
end if
else
end if

Set rs= Server.CreateObject("ADODB.Recordset")

if typeid<>"" then
sql = " select type.type,zhu.zhu,zhu.zhuid from type,zhu where type.zhuid=zhu.zhuid and type.typeid="&typeid
rs.open sql,conn,1,1
if not rs.eof then
types=rs("type")
zhu=rs("zhu")
else
Response.Write("错误参数")
Response.End
end if

else

sql="select zhu from zhu where zhuid="&zhuid
rs.open sql,conn,1,1
if not rs.eof then
zhu=rs("zhu")
else
Response.Write("错误参数")
Response.End
end if

end if

rs.close
%>

...全文