nclass.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 276 行 · 第 1/2 页

                                       <%do while not rs.eof%>                              
                                       <td align="center" width="10%" bgcolor="#ffffff"><a href="nclass.asp?action=list&id=<%=rs("anclassid")%>&anid=<%=rs("anclass")%>"><%=trim(rs("anclass"))%></a></td>
                                       <% if (ii mod 10=0) and ii>=10 then response.write "<tr valign=top>" 
                                         
                                       rs.movenext
                                       ii=ii+1
                                       loop
                                       rs.close
                                       set rs=nothing
                                 end if%>
                                    </tr>
                                 </table>
                                

                           <%case "list"


                             anclass  =request.QueryString("anid")
                             anclassid=request.QueryString("id")

                             set rs=server.CreateObject("adodb.recordset")
                                 rs.Open "select * from shop_nclass where anclassid="&anclassid&" order by nclassidorder",conn,1,1%>

                                 <table width="100%" align="center"  border="0" cellpadding="0" cellspacing="0" bgcolor="#666666"> 
                                    <tr>
                                       <td colspan=2 align="right" bgcolor="#cccccc">请选择</td>
                                       <td colspan=3 bgcolor="#cccccc"><select name="select" onchange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" ><base target=Right> 
                                                                       <option selected>--图书大类--</option>
                                       <%set rs1=server.createobject("adodb.recordset")
		                             rs1.Open "select * from shop_anclass order by anclassidorder",conn,1,1

                                             do while not rs1.eof%>
                                                <option value="nclass.asp?action=list&id=<%=rs1("anclassid")%>&anid=<%=rs1("anclass")%>"><%=trim(rs1("anclass"))%></option>
                                             <%rs1.movenext
		                             loop
		                             rs1.close
		                             set rs1=nothing%></select></td>
                                    <tr>
                                       <td colspan=5 bgcolor="#ece9d8"><img src="images/topclose.gif" border=0><img src="images/topimgclose.gif" border=0><%=anclass%></td>
                                       <%if rs.EOF and rs.BOF then
		                            response.Write "<tr><td colspan=5 bgcolor=#ffffff><div align=center><font color=red>还没有分类</font></center></td></tr>"
		                            paixu=0
                                         else
                                            ///////分页显示上部分

		                            page=1:i=0:rs.PageSize=5
                                            Page = rs.AbsolutePage
                                            if Not IsEmpty(Request("Page")) then
                                               Page = CInt(Request("Page"))
                                               if Page > rs.PageCount then 
                                                  rs.AbsolutePage = rs.PageCount 
                                               elseif Page <= 0 then 
                                                  Page = 1 
                                               else
                                                  rs.AbsolutePage = Page 
                                               end if
                                            else
                                               Page = 1
                                            end if
                                           
                                            For i = 1 to rs.PageSize
                                                if rs.EOF then Exit For 
                                        %>

                                     <tr>
                                        <form name="myform1" method="post" action="savenclass.asp?action=edit&id=<%=rs("nclassid")%>&anclass=<%=request.QueryString("anclass")%>">
                                         
                                           <td width="1%"  bgcolor="#ffffff"><img src="images/topblank.gif" border=0><img src="images/mainexpl.gif" border=0><td width="3%"  bgcolor="#ffffff"><div align="center"><input name="nclassidorder" type="text"     id="nclassidorder" size="2"  value="<%=int(rs("nclassidorder"))%>"></div></td>
                                           <td width="25%" bgcolor="#ffffff"><div align="center"><input name="nclass"        type="text"     id="nclass"        size="16" value="<%=trim(rs("nclass"))%>">
                                                                                                 <input name="anclassid"     type="hidden"   id="Hidden1"                 value="<%=request.QueryString("id")%>"></div></td>                         
                                           <td width="5%"  bgcolor="#ffffff"><div align="center"><input name="changyong"     type="checkbox" id="changyong" value="1"
                                                              <% if rs("changyong")=1 then%>
                                                                    checked value=1></div></td>
                                                              <%else%>
                                                                            value=0></div></td>
                                                              <%end if%>
                                           <td width="16%" bgcolor="#ffffff"><div align="center"><input type="submit" name="Submit" value="修改" class="bt" >&nbsp;<a href="savenclass.asp?id=<%=int(rs("nclassid"))%>&action=del&anclassid=<%=request.QueryString("id")%>&anclass=<%=request.QueryString("anclass")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color=red>删除</font></a> </div></td>
                                          
                                        </form>
                                     </tr>

                                           <% ///////分页显示下部分
                                           rs.MoveNext
                                           next
                                           paixu=rs.RecordCount
                                        end if%>

                                     <tr> 
                                        <td colspan=5 bgcolor="#ece9d8" height=40><div align="center">共<font color=blue><%=rs.recordcount%></font>条<font color=blue><%=rs.pagecount%></font>页 
                                        <%if request("page")>1 then%>
                                             <a Href="nclass.asp?action=list&id=<%=anclassid%>&anid=<%=anclass%>&Page=<%=1%>">首页</a>&nbsp;&nbsp;<a Href="nclass.asp?action=list&id=<%=anclassid%>&anid=<%=anclass%>&Page=<%=page-1%>">上一页</a>
                                        <%end if %>
                                        <%if request("page")<>rs.pagecount and page<rs.pagecount then %>
                                             <a Href="nclass.asp?action=list&id=<%=anclassid%>&anid=<%=anclass%>&Page=<% =page + 1%>">下一页</a>&nbsp;&nbsp;<a Href="nclass.asp?action=list&id=<%=anclassid%>&anid=<%=anclass%>&Page=<%=rs.PageCount%>">尾页</a> 
                                        <%end if
                                        if rs.pagecount>0 then %>
                                           第<font color="#FF3300"><%=page%></font>页		
                                       <%end if%></font></div></td>
                                   </tr>
                                </table>

                               <td width="48%" valign="top" bgcolor="#ece9d8">
                               <table cellpadding="0" cellspacing="1" bgcolor="#666666">
                                  <tr>
                                     <td colspan=4 height=22  bgcolor="#cccccc" align=center>增加<font color=blue><%response.Write anclass%></font>小类</td>
                                  </tr>
                                  <tr>
                                     <td width="2%"  bgcolor="#ece9d8"><div align="center">排序</div></td>
                                     <td width="25%" bgcolor="#ece9d8"><div align="center">名称</div></td>
                                     <td width="8%"  bgcolor="#ece9d8"><div align="center">常用</div></td>
                                     <td width="15%" bgcolor="#ece9d8"><div align="center">操作</div></td>
                                  </tr>
                                  <form name="myform" method="post" action="savenclass.asp?action=add&anclass=<%=request.QueryString("anclass")%>">
                                     <tr>
                                        <td width="2%"  bgcolor="#ffffff"><div align="center"><input name="nclassidorder2" type="text" id="nclassidorder22" size="2" value="<%=paixu+1%>"> 
                                        <td width="25%" bgcolor="#ffffff"><div align="center"><input name="nclass2" type="text" id="nclass22" size="16"></div></td>                           
                                                                                              <input name="anclassid" type="hidden" value="<%=request.QueryString("id")%>"></div></td>
                                        <td width="8%"  bgcolor="#ffffff"><div align="center"><input name="changyong" type="checkbox" id="changyong" value="1">
                                        <td width="15%" bgcolor="#ffffff"><div align="center"><input type="submit" name="Submit2" value="添 加" class="bt3" onClick="return checkxl();"></div></td>
                                     </tr>
                                  </form>
                              </table>

                      </tr>
                   </table>
            </tr>
         </table>

                           <%end select%>

                       </tr>
                   </table>

            </tr>
         </table>

</body>
</html>