⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mimi.asp

📁 一个人用ASP+SQL制作的个人博客
💻 ASP
字号:

<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->

<%
typeid=request("typeid")
   dim keyword
   keyword=request("keyword")
Set filmtype= Server.CreateObject("ADODB.Recordset") 
strSql="select * from type"
filmtype.open strSql,Conn,1,1 
%>
<script language="JavaScript">
<!--
function  validate()
    {
       
        if  (document.myform.type.value=="")
        {
            alert("新加类型不能为空");
            document.myform.type.focus();
            return false ;
        }
		}

function cform(){
 if(!confirm("你是否确认删除该类型?"))
 return false;

}
 -->
</script>

<link rel="stylesheet" type="text/css" href="css/style.css">
<title>管理电影</title>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#666666">

<center>
  <TABLE border="0" cellspacing="0" cellpadding="0">
  <TR valign=top>
    <td align=center>
	 <TABLE border="0" cellspacing="0" cellpadding="0" width=100% align=center>
      <TR bgcolor="#000000">
    	<TD colspan=3 align=center height=20><font color="#FFFFFF">管理电影类别</font></TD>
      </TR>
	      <%if filmtype.eof and filmtype.bof then
           response.write "<font color='red'>还没有任何东东</font>"
           else
           do while not (filmtype.eof or filmtype.bof)
           %>     
       <FORM METHOD=POST ACTION="etype.asp">
       <tr>                                                    
        <td><INPUT TYPE="text" value="<%=filmtype("type")%>" name=type style="font-size:9pt;background-color:#666666;border: 1px solid #000000;color:#FFFFFF" size=13><INPUT TYPE="hidden" name=id value=<%=filmtype("typeid")%>>
        </td>                                   
        <td align=center><INPUT TYPE="submit" name="edit" value="修改" style="border:1pt solid #636563;font-size:9pt; LINE-HEIGHT: normal;HEIGHT: 18px;">
        </td>                               
        <td align="center"><INPUT TYPE="submit" value="删除" name="del" style="border:1pt solid #636563;font-size:9pt; LINE-HEIGHT: normal;HEIGHT: 18px;" onclick="return cform();">                  
        </td>                               
       </tr>
       </FORM>
 
		<%filmtype.movenext 
        loop 
        end if%>               

       <FORM METHOD=POST ACTION="etype.asp" name=myform>

       <tr>
        <td colspan=3>新类别:<INPUT TYPE="text" size=10 NAME="type" style="font-size:9pt;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000"> <INPUT TYPE="submit" name="add" value="增加" style="border:1pt solid #000000;font-size:9pt; LINE-HEIGHT: normal;HEIGHT: 18px;" onclick="return  validate()">
       </td>
      </tr>
     </TABLE>
    </FORM>

	</td>
  	<TD><table width="520" border="0" cellspacing="0" cellpadding="0" align=center>
    <tr> 
      <td width="50%" valign="top"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC" height="20">
          <tr bgcolor="#000000" align=center> 
            <td><font color="#FFFFFF">最新加入影片</font></td>
			<td><FORM METHOD=POST ACTION="mimi.asp">
			<font color="#FFFFFF">电影搜索: </font>
                        <input type="text" name=keyword size=14 maxlength="30" style="font-size:9pt;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000">
                        <input type="Image" src="images/ssearch.gif" tppabs="" align="absmiddle" width="20" height="20" title="查询" id=Image1 name=Image1>
                      
                    
			</td><td align=center><font color="#FFFFFF"><A HREF="addfilm.asp"><font color="#FFFFFF">添加影片</font></A></td>
          </tr>
        </table>
      </td>
    </tr>
	<tr></FORM>
	  <td>
	    <%
dim page
page=request("page")
PageSize = 18
dim rs,strSQL,news
if typeid="" then
strSQL ="SELECT * FROM film where title like '%"&keyword&"%'  ORDER BY dateandtime DESC"
else
strSQL ="SELECT * FROM film where title like '%"&keyword&"%' and typeid="&typeid&" ORDER BY dateandtime DESC"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,3,3
    rs.PageSize = PageSize
	totalfilm=rs.recordcount
    pgnum=rs.Pagecount
    if page="" or clng(page)<1 then page=1
    if clng(page) > pgnum then page=pgnum
    if pgnum>0 then rs.AbsolutePage=page

if rs.eof then
response.write "<font color='#ffffff' class='3dfont'>没有电影提供观看</font>"
else
%>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
              <tr bgcolor="#303430"> <form method=Post action="mimi.asp">
               [共<b><%=rs.pagecount%></b>页] [第<%=page%>页]  [<%=pagesize%>部/页]  [共<%=totalfilm%>部] <%if page=1 then%> [首 页] [上一页] <% else %> [<a href="mimi.asp?page=1&typeid=<%=typeid%>">首 页</a>] 
               [<a href="mimi.asp?page=<%=page-1%>&typeid=<%=typeid%>">上一页</a>]<%end if%><%if rs.pagecount-page<1 then%> [下一页] [尾 页]  <%else%> [<a href="mimi.asp?page=<%=page+1%>&typeid=<%=typeid%>">下一页</a>]  [<a href="mimi.asp?page=<%=rs.pagecount%>&typeid=<%=typeid%>">尾 页</a>] <%end if%> <input type='text' name='page' size=2 maxlength=10 style="font-size:9pt;color:#FFFFFF;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000" value="<%=page%>" align=center> <input style="border:1 solid black;FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal" type='submit'  value=' Goto '   size=2><INPUT TYPE="hidden" value="<%=typeid%>"></td>
             </tr>
			 </form>
           </table>
           <TABLE border=1 cellspacing=0 cellpadding=0 width=100% bordercolorlight=#303430 bordercolordark=#666666>

<%
count=0 
do while not (rs.eof or rs.bof) and count<rs.PageSize 
%> 
           
                       <TR>
                       	<TD style="padding-left:5pt"><a href="soft.asp?id=<%=rs("id")%>&typeid=<%=rs("typeid")%>" target="_blank"><%=rs("title")%></a></TD>
                       	<TD align=center><a
    href="editfilm.asp?id=<%=rs("id")%>">修改</a></TD>
                       	<TD align=center><a
    href="delete.asp?id=<%=rs("id")%>">删除</a></TD>
                       </TR>
                                  
<%rs.movenext 
count=count+1
loop 
end if%>     </TABLE>
             <table border="0" cellspacing="0" cellpadding="0" width="100%">
              <tr bgcolor="#303430"> <form method=Post action="mimi.asp">
               [共<b><%=rs.pagecount%></b>页] [第<%=page%>页]  [<%=pagesize%>部/页]  [共<%=totalfilm%>部] <%if page=1 then%> [首 页] [上一页] <% else %> [<a href="mimi.asp?page=1&typeid=<%=typeid%>">首 页</a>] 
               [<a href="mimi.asp?page=<%=page-1%>&typeid=<%=typeid%>">上一页</a>]<%end if%>
			   <%if rs.pagecount-page<1 then%> [下一页] [尾 页]  <%else%> [<a href="mimi.asp?page=<%=page+1%>&typeid=<%=typeid%>">下一页</a>]  [<a href="mimi.asp?page=<%=rs.pagecount%>&typeid=<%=typeid%>">尾 页</a>] <%end if%> <input type='text' name='page' size=2 maxlength=10 style="font-size:9pt;color:#FFFFFF;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000" value="<%=page%>" align=center> <input style="border:1 solid black;FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal" type='submit'  value=' Goto '   size=2><INPUT TYPE="hidden" value="<%=typeid%>"></td>
             </tr>
			 </form>
           </table>
		   
		   <%rs.close
set rs=nothing
%>
	  </td>
	</tr>
  </table></TD>
  </TR>
  </TABLE>
  
</center>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -