📄 classmana.asp

📁 这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

💻 ASP

字号:

<!-- #include file="conn.asp" -->
<!-- #include file="../const.asp" -->
<%
 if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>1 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>文章类别</title>
<link rel="stylesheet" type="text/css" href="inc/admin.css">
</head>

<body>
 <table align="center" width="95%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
    <tr>

  <td colspan="3" class=lanyuss>文章类别</td>
    </tr>

<% 

set rs=server.createobject("adodb.recordset")
sql = "select * from Aclass order by classtop"
rs.open sql,conn,1,1
        if rs.eof and rs.bof then
    	response.write "<br><br><br><center>没有类别，请<a href='addartclass.asp'>添加类别</a></center>"
else
%>
   <%      do while not rs.eof
        if rs("classon")=0 then
%>
<tr class=lanyuqs><td><%=rs("classtop")%></td><td><a href='editartclass.asp?id=<%=rs("id")%>'><%=rs("class")%></a><%=rs("br")%></td></tr>
<% 		elseif rs("classon")=1 then
%>
<tr class=lanyuqs><td><%=rs("classtop")%></td><td><a href='l_type_edit.asp?id=<%=rs("id")%>'><%=rs("class")%></a><%=rs("br")%></td></tr>
   <%		end if
		rs.movenext
        loop
	response.write "<tr class=lanyuqs><td colspan='3'>"
        end if
'显示结束。
%>

 

	</td></tr>
     </table>
  <!--DWLayoutTable-->
     <tr>    
 
	  <td colspan="3" class=lanyuss>效果预览：</td>
    </tr>
  <tr>
    <td width="260" height="285">&nbsp;</td>
    <td width="423" align="center" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="800" height="600" align="center" valign="top">
     	    
		
		    <p>
    <iframe src="http://waptt.it50.net/wapindex.asp?url=http://f.wapsp.net/wap/main.asp" width="260" height="285" scrolling="no" frameborder="0"></iframe> 
		      
		      
	      &nbsp;</p>
	      </td>
        </tr>
    </table></td>
    <td width="123">&nbsp;</td>
  </tr>
</table>

     </td>
    </tr>
 </table>
</body>
</html>
<%
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -