sql_edit_radio.asp
来自「后台地址：login.asp 管理员 帐户：admin 密码：admi」· ASP 代码 · 共 1,045 行 · 第 1/3 页
ASP
1,045 行
rs.close
set rs=nothing
%>
</select>
</font></b> </td>
</tr>
<tr>
<td width="12%" height="23" align="center" bgcolor="#FFFFFF" class="td">目标数据</td>
<td height="23" colspan="3" valign="center" bgcolor="#FFFFFF" class="td">
<b><font color="#FFFFFF">
<select name="Rad_Class" class="input" id="select4">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Class order by ID asc"
rs.open sql,conn1,1,1
do while not rs.eof
%>
<option value="<%=rs("Class")%>"><%=rs("Class")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</font></b></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td"></td>
<td height="25" colspan="3" valign="center" bgcolor="#FFFFFF" class="td">
<input type="Submit" name="Submit" value="确定更新">
<input type="Button" name="Submit" value="返回上页" onClick="history.go(-1)">
</td>
</tr>
</form>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<form name="form1" method="post" Action="Sql_Save_Radio.asp?Type=UpDate" onSubmit="return checkdel('批量生成文件！该操作将占用服务器一定资源！')">
<tr >
<td bgcolor="799AE1"height="26" colspan="4" align="center" class="font">
<div align="right">
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><b><font color="#FFFFFF">电影批量生成</font></b></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td width="12%" height="25" align="center" bgcolor="#FFFFFF" class="td">开始编号</td>
<td width="92%" height="25" colspan="3" valign="bottom" bgcolor="#FFFFFF" class="td">
<input name="B_ID" type="text" id="B_ID" size="30"> </td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td">结束编号</td>
<td height="25" colspan="3" valign="bottom" bgcolor="#FFFFFF" class="td"><input name="E_ID" type="text" id="E_ID" size="30"></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td"></td>
<td height="25" colspan="3" valign="center" bgcolor="#FFFFFF" class="td">
<input type="Submit" name="Submit" value="确定生成">
<input type="Hidden" name="Action" value="Movie">
<input type="Button" name="Submit" value="返回上页" onClick="history.go(-1)">
</td>
</tr>
</form>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
</td>
</tr>
</table>
<%end if%>
<%if request("Action") = "List" then%>
<%
filename="../"&request("ID")&".html"
if request("body")<>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.write request.form("body")
fout.close
set fout=nothing
set fso=nothing
end if
%>
<div align="center">
<table border="0" width="100%" cellspacing="1">
<tr>
<td align="center">
<form name="form1" method="post" Action="">
<textarea name="body" cols="80%" rows="20"><!--#include file="../List.asp"--></textarea><br><br>
<input type="submit" name="Submit" value="生成频道" style="float: right"></form>
</form>
</td>
</tr>
</table>
</div>
<%end if%>
<%if request("Action") = "Class_Add" then%>
<% If request("Submit") <> "" Then
sql1="insert into Sql_Class(Class)values('"&server.HTMLEncode(request("Add_Class"))&"')"
conn1.execute(sql1)
%>
<script language="JavaScript">
<!--
parent.navigate("Sql_Index.asp")
//-->
</script>
<%end if%>
<%end if%>
<%if request("Action") = "Class_Manage" then%>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<tr bgcolor="799AE1" >
<td height="26" colspan="4" align="center" class="font">
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><b><font color="#FFFFFF">电影分类管理</font></b></td>
</tr>
</table></td>
</tr>
<tr align="center">
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">编号</td>
<td width="20%" height="23" bgcolor="#FFFFFF" class="td">分类名称</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">编辑</td>
<td width="70%" height="23" align="left" bgcolor="#FFFFFF" class="td"> 删除</td>
</tr >
<%
Set rc=Server.CreateObject("ADODB.Recordset")
sql="Select * from Sql_Class order by ID desc"
rc.open sql,conn1,1,1
rc.pagesize=20
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not rc.eof and not rc.bof then
rc.absolutepage=Page
end if
count=rc.pagesize
do while not rc.eof and count>0%>
<TR align="center" bgcolor="#e4edf9" onmouseover="this.bgColor='#dedede'" onmouseout="this.bgColor='#e4edf9'" style="CURSOR:default">
<td width="5%" height="23" class="font"><%=rc("ID")%></td>
<td width="20%" height="23" align="left" class="font"><%=rc("Class")%></td>
<td width="5%" height="23"><a href="Sql_Edit_Radio.asp?Action=Class_Edit&ID=<%=rc("ID")%>"><img src="Images/Sql_Edit.gif" width="12" height="12" border="0"></a></td>
<td width="70%" height="23" align="left" class="font"> <a href="Sql_Delect.asp?ID=<%=rc("ID")%>&Type=Movie_Class&Rad_Class=<%=rc("Class")%>" onClick="return checkdel('删除该分类并清除所有属于该分类的数据！');"><img src="Images/Sql_Del.gif" width="13" height="13" border="0" align="absmiddle" style="CURSOR: hand"></a>
（若删除<font color="#FF0000">[<%=rc("Class")%>]</font>分类，其所有信息将会全部更新为<font color="#FF0000">预处理</font>分类）
</td>
</tr>
<%
rc.movenext
count=count-1
loop
%>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<tr >
<td width="100%"height="24" align="right" class="font">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="pa" method="post" Action="">
<tr>
<td height="20" align="right" valign="middle" class="font">共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息
分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页
当前第<font color="#FF2D00"><%=Page%></font>页 <img src="Images/Sql_Up.gif" width="11" height="11" align="absmiddle">
<a href="?Page=1&Action=Manage">首页</a>
<%if Page>1 then%>
<a href="?Page=<%=Page-1%>&Action=Manage">上页</a>
<%else%>
上页
<%end if%>
<%if Page < rc.pagecount then %>
<a href="?Page=<%=Page+1%>&Action=Manage">下页</a>
<%else%>
下页
<%end if%>
<a href=?Page=<%=rc.pagecount%>&Action=Manage>尾页</a> <img src="Images/Sql_Next.gif" width="11" height="11" align="absmiddle">
<input name="Page" type="text" class="put" id="Page" value="<%=Page%>" size="3">
<input name="Submit3" type="submit" class="button" value="转到该页">
</td>
</tr>
</form>
</table></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="10"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<tr >
<td height="26" colspan="2" align="center" bgcolor="799AE1" class="font">
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><b><font color="#FFFFFF">添加电影分类</font></b></td>
</tr>
</table></td>
</tr>
<form name="Class_Add" method="post" Action="Sql_Edit_Radio.asp" onSubmit="return Check()">
<script language=javascript>
function Check()
{if (window.document.Class_Add.Add_Class.value == "")
return false;
}
</script>
<tr>
<td width="10%"height="25" align="center" bgcolor="#FFFFFF" class="td">
分类名称 </td>
<td align="left" bgcolor="#FFFFFF" class="td">
<input name="Add_Class" type="text" class="input" size="20"></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td"> </td>
<td align="left" bgcolor="#FFFFFF" class="td">
<input type="submit" name="Submit" value="确定添加">
<input type="hidden" name="Action" value="Class_Add">
<input type="button" name="Submit" value="返回上页" onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="10"></td>
</tr>
</table></td>
</tr>
</table>
<%end if
if request("Action") = "Class_Edit" then%>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<%
sql="Select * from Sql_Class where ID = "&request("ID")
set rc1=conn1.execute(sql)
%>
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<tr >
<td height="26" colspan="2" align="center" bgcolor="799AE1" class="font">
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><b><font color="#FFFFFF">编辑分类</font></b></td>
</tr>
</table></td>
</tr>
<form name="Add1" method="post" Action="" onSubmit="return checkdel('修改该分类并同步更新属于该分类的数据')">
<tr>
<td width="10%"height="25" align="center" bgcolor="#FFFFFF" class="td">
分类名称 </td>
<td align="left" bgcolor="#FFFFFF" class="td">
<input name="Class" type="text" class="input" id="Class" value="<%=rc1("Class")%>" size="30">
<input name="Old_Class" type="hidden" id="Old_Class" value="<%=rc1("Class")%>">
</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td">注 意</td>
<td align="left" bgcolor="#FFFFFF" class="td">若修改该分类，所有属于该分类的信息将会同步更新为修改后的分类</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td"> </td>
<td align="left" bgcolor="#FFFFFF" class="td">
<input type="submit" name="Submit1" value="确定修改">
<input type="button" name="Submit1" value="返回上页" onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="10"></td>
</tr>
</table></td>
</tr>
</table>
<% If request("submit1") <> "" Then
sql="UpDate Sql_Radio set Rad_Class = '"&server.HTMLEncode(request("Class"))&"' where Rad_Class = '"&request("Old_Class")&"'"
conn1.execute(sql)
sql="UpDate Sql_Class set Class = '"&server.HTMLEncode(request("Class"))&"' where ID = "&request("ID")
conn1.execute(sql)
%>
<script language="JavaScript">
parent.navigate("Sql_Index.asp")
</script>
<%end if%>
<%end if%>
<!--#include file="Sql_Conn_Close.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?