songspecialadd.asp
来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 140 行
ASP
140 行
<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!--#include file="char.inc"-->
<!-- #include file="../Inc/Head.asp" -->
<%
set rs1=server.createobject("adodb.recordset")
set rs=server.createobject("adodb.recordset")
Sql="select * from songclass"
Rs.open Sql,conn,1,1
Do while not Rs.eof
Class_Name=Rs("Class_Name")
Class_id=Rs("Class_id")
Sql1="select * from songclass2 where class_id="&class_id
Rs1.open Sql1,conn,1,1
Do while not Rs1.eof
i=i+1
Nclass_id=Rs1("Nclass_id")
NClass_Name=Rs1("NClass_name")
if request("Class_Nclass")=Class_id&","&NClass_id then
k=" selected"
else
k=""
end if
Class_Type=Class_Type&"<option "&k&" value="&Class_id&","&NClass_id&">"&Class_Name&"──→"&NClass_Name&"</option>"
Rs1.movenext
loop
Rs1.close
Rs.movenext
loop
Rs.close
if request("Class_Nclass")<>"" then
Class_array=split(request("Class_Nclass"),",")
end if
%>
<script Language="JavaScript">
function Form_Validator(theForm)
{
if (theForm.Class_Nclass.value == "")
{
alert("请选择所属分类");
theForm.Class_Nclass.focus();
return (false);
}
if (theForm.Special_Name.value == "")
{
alert("专辑名称必须填写");
theForm.Special_Name.focus();
return (false);
}
if (theForm.Special_Order.value == "")
{
alert("请选择专辑索引");
theForm.Special_Order.focus();
return (false);
}
return (true);
}
</script>
<form name="Special_add" method="post" action="songSpecialSave.asp?action=add" onsubmit="return Form_Validator(this)">
<table width="70%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#ffffff">
<tr>
<td width="30%">专辑类别:</td>
<td >
<select name="Class_Nclass" size="1" >
<option value="">请选择专辑类别</option>
<%=Class_Type%>
</select>
</td>
</tr>
<tr>
<td width="30%">专辑名称:</td>
<td >
<input type="text" name="Special_Name" size="30" maxlength="50">
</td>
</tr>
<tr>
<td width="30%">专辑索引:</td>
<td >
<select size="1" name="Special_Order">
<option value="">--</option>
<option value="A">A</option>
<option value="B">B</option>
<option value="C">C</option>
<option value="D">D</option>
<option value="E">E</option>
<option value="F">F</option>
<option value="G">G</option>
<option value="H">H</option>
<option value="I">I</option>
<option value="J">J</option>
<option value="K">K</option>
<option value="L">L</option>
<option value="M">M</option>
<option value="N">N</option>
<option value="O">O</option>
<option value="P">P</option>
<option value="Q">Q</option>
<option value="R">R</option>
<option value="S">S</option>
<option value="T">T</option>
<option value="U">U</option>
<option value="V">V</option>
<option value="W">W</option>
<option value="X">X</option>
<option value="Y">Y</option>
<option value="Z">Z</option>
</select>
</td>
</tr>
<tr>
<td width="30%">封套图片:</td>
<td >
<input type="text" name="Special_image" size="30" maxlength="255">
</td>
</tr>
<tr>
<td width="30%">发行公司:</td>
<td >
<input type="text" name="Special_Company" size="30" maxlength="50">
</td>
</tr>
<tr>
<td width="30%">发行时间:</td>
<td >
<input type="text" name="Special_time" size="30" maxlength="50">
</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 + -
显示快捷键?