📄 make.asp

📁 1、采用4.5修改而成。 2、添加了求片区
💻 ASP
字号:
<!--#include file="conn.asp"--><!-- #include file="check.asp" --><%
'====================================================================
'=              Copyright (c) 2005-2007,马克 斯(QQ448265)开发             =
'=                      All rights reserved.                        =
'=------------------------------------------------------------------=
'=                     文件名称：make.asp                   =
'=                     摘    要：后台—生成选项                 =
'=------------------------------------------------------------------=
'=                     用   途：免费电影系统                         =
'=                     最后更新：2007-07-10                         =
'====================================================================
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>静态生成</title>
<LINK href="admin.css" type=text/css rel=stylesheet>
</head>
<BODY style="MARGIN: 0px" scroll=no>
<%select case request("action")
	case "make_top"
		call make_top()
	case "make_bottom"
		call make_bottom()
	case else
		call main()
	end select
sub main()
%>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TR>
    <TD>
    <IFRAME style="Z-INDEX: 2; VISIBILITY: inherit; WIDTH: 100%; HEIGHT: 130px" name="make_top" src="?action=make_top" frameBorder=0 scrolling=yes>
    </IFRAME></TD></tr>
   <tr><TD>
      <IFRAME style="Z-INDEX: 1; VISIBILITY: inherit; WIDTH: 100%; HEIGHT: 490px" name="make_bottom" src="?action=make_bottom" frameBorder=0 scrolling=yes>
    </IFRAME></TD></TR></TABLE>
</BODY></HTML>
<%
end Sub
Sub make_top
%>
<table width="100%" border="0" cellspacing="1" cellpadding="4" class="tableBorder">
  <tr>
    <th><strong>生成HTML选项</strong></td>
  </tr>
  <tr>
    <td class="forumRowHighlight"><table width="100%" border="0" cellspacing="0" cellpadding="4">
     <form name="form3" method="post" action="make_type.asp" target="make_bottom"> <tr>
        <td>
          <strong>生成分类页：</strong>按类别生成：<select name="class_id">
<%Call zt_type_all%>
          </select>
                <input type="submit" name="Submit" value="生成" />&nbsp;&nbsp;&nbsp;<input type="button" value="生成全部分类页HTML" onClick="javascript:window.open('make_type.asp?action=make_type_all&Page=1','make_bottom');">
        
        </td>
      </tr>
</form>
    </table><table width="100%" border="0" cellspacing="0" cellpadding="4">
      <form name="form2" method="post" action="make_view.asp" target="make_bottom"><tr>
        <td>
          <strong>生成内容页：</strong>按类别生成：<select name="class_id">
<%Call zt_type_all%>
          </select>
                <input type="submit" name="Submit" value="生成" />&nbsp;&nbsp;&nbsp;<input type="button" value="生成全部内容页HTML" onClick="javascript:window.open('make_view.asp?action=make_view_all','make_bottom');">
            </td>
      </tr></form>
    </table><%If maxz_18="1" Then %><table width="100%" border="0" cellspacing="0" cellpadding="4">
      <form name="form1" method="post" action="make_play.asp" target="make_bottom"><tr>
        <td>
          <strong>生成播放页：</strong>按类别生成：<select name="class_id">
<%Call zt_type_all%>
          </select>
                <input type="submit" name="Submit" value="生成" />&nbsp;&nbsp;&nbsp;<input type="button" value="生成全部播放页HTML" onClick="javascript:window.open('make_play.asp?action=make_play_all','make_bottom');">
            </td>
      </tr></form>
    </table><%End If %></td>
  </tr>
</table>
<%End Sub 

Sub make_bottom
%>

<%
End Sub 

Sub zt_type_all
set rs=server.createobject("adodb.recordset")
sql="SELECT zt_typeid,zt_typename FROM zt_type order by zt_n"
rs.Open sql,conn,1,1
do while not rs.eof
%>
            <option value="<%=rs("zt_typeid")%>"><%=rs("zt_typename")%></option>
<%  
rs.movenext  
loop 
rs.Close
set rs=nothing
End Sub 
%>
⌨️ 快捷键说明

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