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 + -
显示快捷键?