📄 sql_edit_radio.asp
字号:
<a href="?Page1=<%=Page1+1%>&Rad_Class=<%=request("Rad_Class")%>&Key=<%=request("key")%>">下页</a>
<%else%>
下页
<%end if%>
<a href=?Page1=<%=rc.pagecount%>&Rad_Class=<%=request("Rad_Class")%>&Key=<%=request("key")%>>尾页</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>
</tr>
</form>
</table>
<%end if%>
</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>
<%end if%>
<%end if%>
<%if request("Action") = "Search" 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="form1" method="post" Action="Sql_Edit_Radio.asp?Action=Manage">
<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">
<font color="#FFFFFF">电影</font><font color="#FFFFFF">搜索</font></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="Key" type="text" id="Key" size="30"> </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">
<font color="#FFFFFF">
<select name="Rad_Class" class="input" id="select2">
<option value="" selected>所有分类</option>
<%
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></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="Manage">
<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") = "Edit" then%>
<%sql="select * from Sql_Radio where ID = "&request("ID")
set rc = conn1.execute(sql)
%>
<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>
<script language="JavaScript">
function Check()
{
if (window.document.form1.Rad_Title.value == "" )
{alert("系统提示：\n信息标题请勿空！！")
return false;
}
}
</script> <table width="98%" border="0" align="center" cellpAdding="0" cellspacing="1" class="table">
<form name="form1" method="post" Action="Sql_Save_Radio.asp?Type=Edit&ID=<%=rc("ID")%>" onSubmit="return Check()">
<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" value=<%=rc("Rad_Title")%>>
<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">
<option value="<%=rc("Rad_Class")%>" selected><%=rc("Rad_Class")%></option>
<%
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
if rc("Rad_Class") = rs("Class") then
else%><option value="<%=rs("Class")%>"><%=rs("Class")%></option><%end if%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
<%if rc("True_Index") = "Yes" then
response.write("<input name=True_Index type=checkbox id=True_Index value=Yes checked>")
else
response.write("<input name=True_Index type=checkbox id=True_Index value=Yes>")
end if
%>
推荐 </td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">
电台<span lang="zh-cn">格式</span></td>
<td width="90%" height="25" valign="bottom" bgcolor="#FFFFFF" class="td">
<input type="radio" name="Rad_Type" value="real" <%if rc("Rad_Type")="real" then%> checked <% end if%>>
<img border="0" src="Images/real.gif">
<input type="radio" name="Rad_Type" value="media" <%if rc("Rad_Type")="media" then%> checked <% end if%>>
<img border="0" src="Images/media.gif">
<input type="radio" name="Rad_Type" value="other" <%if rc("Rad_Type")="other" then%> checked <% end if%>>
<img border="0" src="Images/other.gif">
</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" value="<%=rc("Rad_City")%>">
<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">
<%
set rt=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Shows where Rad_ID="&request("ID")&" order by ID asc"
rt.open sql,conn1,1,1
if rt.eof then
Response.Write "对不起,暂无收录任何图片..."
else
no=rt.recordcount
dim c
for c=1 to no
%><input name="Rad_Url<%=c%>" type="text" class="input" id="Rad_Url" size="60" value="<%=rt("Rad_Url")%>"> 第 <font color="FF6600"><%=c%></font> 个 <a href="Sql_Delect.asp?id=<%=rt("id")%>&Type=Movie_Class"> <font color="#FF6600">删除</font></a>
<%
rt.movenext
next
end if
rt.close
set rt=nothing
%></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">
<iframe width="350" height="22" noresize border="0" frameborder="0" scrolling="no" framespacing="0" src="Sql_Addurl.asp?Rad_ID=<%=request("id")%>&Action=Add_Rad_Url" name="I1"></iframe>
</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"><%=(rc("Rad_Body"))%></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") = "Make" 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">
<%if request("Submit") <> "" and request("B_ID") <> "" and request("E_ID") <> "" then
sql="UpDate Sql_Radio set Rad_Class = '"&request("Rad_Class")&"' where ID >= "&request("B_ID")&" and ID <= "&request("E_ID")
conn1.execute(sql)
response.redirect "Make_Images.asp?Action=Admin"
end if%>
<form name="form1" method="post" Action="" 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 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="select2">
<%
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">
<%
if request("Submit2") <> "" then
sql="UpDate Sql_Radio set Rad_Class = '"&request("Rad_Class")&"' where Rad_Class = '"&request("B_Rad_Class")&"'"
conn1.execute(sql)
response.redirect "Make_Images.asp?Action=Admin"
end if
%>
<form name="form1" method="post" Action="" 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">
<b><font color="#FFFFFF">
<select name="B_Rad_Class" class="input" id="select5">
<%
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -