采购付款制度及流程:各位大哥们‘~帮帮我啊‘~我一定会谢谢你的‘

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 19:00:25
<tr>
<td width="152" height="22" align="right" bgcolor="#C0C0C0">所属栏目:</td>
<td width="462" bgcolor="#E3E3E3"> <%
if session("purview")=3 or session("purview")=4 then
response.write rsArticle("BigClassName") & "<input name='BigClassName' type='hidden' value='" & rsArticle("BigClassName") & "'>>>"
else
sql = "select * from BigClass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
else
%> <select name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
<%
do while not rs.eof
%>
<option value="<%=trim(rs("BigClassName"))%>" selected <% if rs("BigClassName")=rsArticle("BigClassName") then response.Write("selected") end if%>><%=trim(rs("BigClassName"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select> <%
end if
if session("purview")=4 then
response.write rsArticle("SmallClassName") & "<input name='SmallClassName' type='hidden' value='" & rsArticle("SmallClassName") & "'>"
else
%> <select name="SmallClassName">
<option value="" <%if rsArticle("SmallClassName")="" then response.write "selected"%>>不指定小类</option>
<%
sql="select * from SmallClass where BigClassName='" & rsArticle("BigClassName") & "'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
do while not rs.eof%>
<option <% if rs("SmallClassName")=rsArticle("SmallClassName") then response.Write("selected") end if%> value="<%=rs("SmallClassName")%>"><%=rs("SmallClassName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select> <%
end if
%> </td>
</tr>

上面的代码出错了~~说:

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'rs'

/capi/03/admin/ProductAdd.asp,行138

各位大哥们,帮我搞一下好吗?那里错了,帮我改一下,把完整的写出来.要具体哦!先谢谢你了‘~

在sql = "select * from BigClass"下面缺少
set rs=server.Createobject("adodb.recordset")
还有就是你所有的sql = "select。。。后面都缺少set rs=server.Createobject("adodb.recordset")

<%if rsArticle("SmallClassName")="" then response.write "selected"%>改成
<%if rsArticle("SmallClassName")="" then response.write "selected" end if%>

太乱了,看的眼睛痛
还没找到是哪行