daohang.asp

来自「网上购物,不错的购物系统,花了好长时间来改的」· ASP 代码 · 共 42 行

<table width="588" height="107" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height=50 valign="middle"> 　<img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=default.asp><%=webname%></a> >> <a href=class.asp?id=big&anid=<%=anclassid%>><%=anclassname%></a></td>
            </tr>
                        <%
					  case "small"
					  	anclassid=request("anid")
						if not isnumeric(anclassid) then 
response.write"<script>alert(""非法访问!"");location.href=""default.asp"";</script>"
response.end
else
if not isnumeric(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""default.asp"";</script>"
else
					  	nclassid=request("nid")
						if not isnumeric(nclassid) then 
response.write"<script>alert(""非法访问!"");location.href=""default.asp"";</script>"
response.end
else
if not isnumeric(nclassid) then
response.write"<script>alert(""非法访问!"");location.href=""default.asp"";</script>"
else
					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from sh_sort where anclassid="&anclassid,conn,1,1
						anclassname=rs("anclass")
						rs.close
					  	rs.open "select * from sh_sort2 where nclassid="&nclassid,conn,1,1
						nclassname=rs("nclass")
						rs.close
					  %>
            <tr>
              <td background="images/class_bg.jpg" height=50>　<img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=default.asp><%=webname%></a> >> <a href=class.asp?id=big&anid=<%=anclassid%>><%=anclassname%></a> >> <%=nclassname%></td>
            </tr>
            <%
end if 
end if
end if
end if %>
            
            <%case else%>
            <%end select%>
          </table>