flashspecialadd.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 72 行

ASP
72
字号
<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!-- #include file="../Inc/Head.asp" -->
<%
   set rs1=server.createobject("adodb.recordset")
   set rs=server.createobject("adodb.recordset")
   
%>

<script Language="JavaScript">
function Form_Validator(theForm) 
{ 
	if (theForm.SpecialClass.value == "") 
	{ 
		alert("请选择所属分类"); 
		theForm.SpecialClass.focus(); 
		return (false); 
	} 
	
	if (theForm.SpecialName.value == "") 
	{ 
		alert("专辑名称必须填写"); 
		theForm.SpecialName.focus(); 
		return (false); 
	} 
	return (true); 
} 
</script> 


	<form name="Special_add" method="post" action="flashSpecialSave.asp?action=add" onsubmit="return Form_Validator(this)">
      <table width="60%" border="0" cellspacing="1" cellpadding="2" bgcolor="#ffffff" align="center">
        <tr> 
          <td width="30%">专辑类别:</td>
          <td > 
            <select name="SpecialClass" size="1"  >
              <option value="" selected>请选择专辑类别</option>
              <%
			  sql1="select classID,className from flashclass"
			  rs1.open sql1,conn,1,1
			  do while not rs1.eof
			  response.Write "<option  value="&rs1("classID")&">"&rs1("className")&"</option>"
			  rs1.movenext
			  loop
			  rs1.close
			   %> 
            </select>
          </td>
        </tr>
             <tr> 
          <td width="30%">专辑名称:</td>
          <td > 
            <input type="text" name="SpecialName" size="30" maxlength="50">
          </td>
        </tr>
	
          <td width="30%">封套图片:</td>
          <td > 
            <input type="text" name="SpecialPic" size="30" maxlength="255">
          </td>
        </tr>
    
         <tr><td height="20"></td></tr>
        <tr>    
          <td colspan="2" align="center">    
            <input type="submit" name="Submit" value="提·交">      
          </td>   
        </tr>   
      </table>   
	 </form>   
<!-- #include file="../Inc/Foot.asp" -->

⌨️ 快捷键说明

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