📄 sql_edit_radio.asp
字号:
<!--#include file="Sql_Conn_Open.asp"-->
<!--#include file="Sql_Check.asp"-->
<html>
<head>
<title>后台管理页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
<script language="javaScript">
function checkdel(test)
{
return confirm("系统提示:\n此操作不可逆，是否确定"+test+"!!");
}
</script>
<SCRIPT>
<!--
function showtb(tbnum)
{
whichEl = eval("tbtype" + tbnum);
if (whichEl.style.display == "none")
{
eval("tbtype" + tbnum + ".style.display=\"\";");
}
else
{
eval("tbtype" + tbnum + ".style.display=\"none\";");
}
}
-->
</SCRIPT>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="98%" border="0" align="center" cellpAdding="0" cellspacing="0">
<tr>
<td height="35" background="Images/Sql_top_bg.gif"> <%if request("Action") = "List" then%>电视：[<a href="Sql_Edit_Radio.asp?Action=List&ID=List1">国内</a>-<a href="Sql_Edit_Radio.asp?Action=List&ID=List2">港台</a>-<a href="Sql_Edit_Radio.asp?Action=List&ID=List3">国外</a>] 电台：[<a href="Sql_Edit_Radio.asp?Action=List&ID=List4">国内</a>-<a href="Sql_Edit_Radio.asp?Action=List&ID=List5">港台</a>-<a href="Sql_Edit_Radio.asp?Action=List&ID=List6">国外</a>]<%end if%> </td>
</tr>
</table>
<%if request("Action") = "Add" 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">
<form name="myform" method="post" Action="Sql_Save_Radio.asp?Type=Add">
<tr >
<td bgcolor="799AE1"height="26" colspan="2" align="center" class="font">
<div align="right">
<table width="99%" border="0" align="right" cellpAdding="0" cellspacing="0">
<tr>
<td class="font"><font color="#FFFFFF">发布电影</font></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">信息标题</td>
<td width="90%" height="25" valign="bottom" bgcolor="#FFFFFF" class="td">
<input name="Rad_Title" type="text" class="input" id="Rad_Title" size="52">
<font color="#FF0000">* </font></td>
</tr>
<tr>
<td width="10%" height="23" align="center" bgcolor="#FFFFFF" class="td">信息属性</td>
<td width="90%" height="23" valign="bottom" bgcolor="#FFFFFF" class="td">
<select name="Class" class="input" id="Class">
<%
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>
<input name="True_Index" type="checkbox" id="True_Index" value="Yes">
推荐 </td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">
信息格式</td>
<td width="90%" height="25" valign="bottom" bgcolor="#FFFFFF" class="td">
<input type="radio" value="real" checked name="Rad_Type"><img border="0" src="Images/real.gif">
<input type="radio" value="media" name="Rad_Type"><img border="0" src="Images/media.gif">
<input type="radio" value="other" name="Rad_Type"><img border="0" src="Images/other.gif">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">
城市属于</td>
<td width="90%" height="25" valign="bottom" bgcolor="#FFFFFF" class="td">
<input name="Rad_City" type="text" class="input" id="Rad_City" size="20">
<font color="#FF0000">* </font></td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">
电台地址</td>
<td width="90%" height="25" valign="bottom" bgcolor="#FFFFFF" class="td">
<script language="javascript">
function setid()
{
str='';
if(!window.myform.No.value)
window.myform.No.value=1;
for(i=1;i<=window.myform.No.value;i++)
{
str+=' 广播地址 <input type="text" name="Rad_Url'+i+'" size=45 value="'+window.myform.Url_Show.value+''+i+'"> 第 '+i+' 个<BR>';
}
window.upid.innerHTML=str+'<br>';
}
</script>
<input type="text" name="Url_Show" value="" size="45"> 集数
<input type="text" name="No" value="1" size="3">
<input type="button" name="Button" onclick="setid();" value="设定"></td>
</tr>
<tr>
<td colspan="2" id="upid" width="95%" bgcolor="#FFFFFF" class="td"></td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">信息内容</td>
<td width="90%" height="25" valign="bottom" bgcolor="#FFFFFF" class="td"><textarea name="Rad_Body" cols="70" rows="15">0</textarea> </td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">
</td>
<td width="90%" height="25" 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>
<%end if%>
<%if request("Action") = "Manage" then%>
<%
if request("Del_Sub") = "删除所选信息" then
for each movedata in request("movedata")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(server.mappath("..\Html\Radio\23mn_"&movedata&".html")) then
fso.DeleteFile server.mappath("..\Html\Radio\23mn_"&movedata&".html")
sql="delete From Sql_Radio where ID="&movedata&""
conn1.execute sql
else
sql="delete From Sql_Radio where ID="&movedata&""
conn1.execute sql
end if
next
end if
if request("Move") = "确定" then
for each movedata in request("movedata")
sql="UpDate Sql_Radio set Rad_Class = '"&request("Class")&"' where ID="&movedata&""
conn1.execute sql
next
end if
Set rc=Server.CreateObject("ADODB.Recordset")
if request("Rad_Class") = "" then
sql="Select * from Sql_Radio where Rad_Title like '%"&request("Key")&"%' order by ID desc"
rc.open sql,conn1,1,1
else
sql="Select * from Sql_Radio where Rad_Class = '"&request("Rad_Class")&"' and Rad_Title like '%"&request("Key")&"%' order by ID desc"
rc.open sql,conn1,1,1
end if
rc.pagesize=20
dim Page1
Page1 =1
if request("Page1") <> "" then
Page1=cint(request("Page1"))
end if
if not rc.eof and not rc.bof then
rc.absolutepage=Page1
end if
count=rc.pagesize
if rc.bof 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" 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" bgcolor="#FFFFFF">
<td height="50" bgcolor="#FFFFFF" class="td"><b>没有找到您要的信息：（</b></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>
<%else%>
<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="5">
<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="" onSubmit="return checkdel('操作选定数据');">
<tr bgcolor="799AE1" >
<td height="26" colspan="8" 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="50%" height="23" bgcolor="#FFFFFF" class="td">[信息分类] 信息标题</td>
<td width="10%" height="23" bgcolor="#FFFFFF" class="td">发布日期</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">阅读</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">推荐</td>
<td width="5%" bgcolor="#FFFFFF" class="td">选中</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">编辑</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">删除</td>
</tr >
<%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 height="23" class="font"><%=rc("ID")%></td>
<td width="50%" height="23" align="left" class="font"> [<%=rc("Rad_Class")%>]
<%=rc("Rad_Title")%></td>
<td height="23" class="font"> <%=rc("Rad_Date")%> </td>
<td height="23" class="font"><%=rc("Rad_Click")%></td>
<td height="23" class="font">
<%if rc("True_Index") = "Yes" then
Response.Write("<b><font color=#FF0000>√</font></b>")
else
Response.Write("")
end if
%>
</td>
<td><input name="movedata" type="checkbox" id="movedata" value="<%=rc("ID")%>"></td>
<td height="23"><a href="Sql_Edit_Radio.asp?ID=<%=rc("ID")%>&Action=Edit"><img src="Images/Sql_Edit.gif" width="12" height="12" border="0"></a></td>
<td height="23"><a href="Sql_Delect.asp?ID=<%=rc("ID")%>&File_Name=23mn_<%=rc("ID")%>.html&Type=Movie_Files" onClick="return checkdel('删除该数据');"><img src="Images/Sql_Del.gif" width="13" height="13" border="0" style="CURSOR: hand"></a></td>
</tr>
<%
rc.movenext
count=count-1
loop
%>
<tr bgcolor="799AE1" >
<td height="26" colspan="8" align="center" class="font"><table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><b><font color="#FFFFFF">将</font><font color="#FFFFFF">所选信息移动到
<select name="Class" class="input" id="Class">
<%
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>
<input name="Move" type="submit" class="button" id="Move" value="确定">
<input name="Del_Sub" type="submit" class="button" id="Del_Sub" value="删除所选信息" >
<input name="CheckAll" type="checkbox" onclick="mm(this)">
全选</font></b></td>
</tr>
</table></td>
</tr>
</form>
</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">
<%if request("Rad_Class") = "" then%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="Pa" method="post" Action="">
<td width="70%" 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"><%=Page1%></font>页 <img src="Images/Sql_Up.gif" width="11" height="11" align="absmiddle">
<a href="?Action=Manage&Key=<%=request("key")%>&Page1=1">首页</a>
<%if Page1>1 then%>
<a href="?Action=Manage&Key=<%=request("key")%>&Page1=<%=Page1-1%>">上页</a>
<%else%>
上页
<%end if%>
<%if Page1 < rc.pagecount then %>
<a href="?Action=Manage&Key=<%=request("key")%>&Page1=<%=Page1+1%>">下页</a>
<%else%>
下页
<%end if%>
<a href=?Action=Manage&Key=<%=request("key")%>&Page1=<%=rc.pagecount%>>尾页</a> <img src="Images/Sql_Next.gif" width="11" height="11" align="absmiddle">
<input name="Page1" type="text" class="put" id="Page1" value="<%=Page1%>" size="3">
<input name="Submit" type="submit" class="button" value="转到该页">
</td>
</form>
</tr>
</table>
<%else%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="Pa" method="post" Action="Sql_Edit_Radio.asp">
<tr>
<td height="20" align="right" valign="middle" class="font"><font color="#ffffff">系统开发：j111</font>共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息
分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页
当前第<font color="#FF2D00"><%=Page1%></font>页 <img src="Images/Sql_Up.gif" width="11" height="11" align="absmiddle">
<a href="?Page1=1&Rad_Class=<%=request("Rad_Class")%>&Key=<%=request("key")%>">首页</a>
<%if Page1>1 then%>
<a href="?Page1=<%=Page1-1%>&Rad_Class=<%=request("Rad_Class")%>&Key=<%=request("key")%>">上页</a>
<%else%>
上页
<%end if%>
<%if Page1 < rc.pagecount then %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -