📄 sql_save_radio.asp
字号:
<!--#include file="Sql_Conn_Open.asp"-->
<!--#include file="Sql_Check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息接受页</title>
<link href="Images/Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
dim dtime,filename1,sql1,rs1
function fsow(filename)
set mfo=Server.CreateObject("Scripting.FileSystemObject")
set rtf=mfo.OpenTextFile(server.mappath(filename),1)
body=rtf.readall
fsow=body
end function
set rt=server.CreateObject("ADODB.RecordSet")
sql="select Sql_Show from Sql_Moban where ID=1"
set rt=conn.Execute (sql)
Sql_Show=rt("Sql_Show")
%>
<%if request("Type") = "Add" then%>
<%
Rad_Title=request.form("Rad_Title")
Rad_Class=request.form("Class")
Rad_Body=request.form("Rad_Body")
Rad_Date=request.form("Rad_Date")
Rad_Type=request.form("Rad_Type")
Rad_City=request.form("Rad_City")
True_Index=request.form("True_Index")
No=request.form("No")
Rad_Date=Date()
if request("True_Index") = "" then
True_Index = "No"
else
True_Index = "Yes"
end if
set rs=Server.createObject("adodb.recordset")
strsql="select * from Sql_Radio"
rs.open strsql,conn1,1,3
rs.Addnew
rs("Rad_Title")=Rad_Title
rs("Rad_Class")=Rad_Class
rs("Rad_Body")=Rad_Body
rs("True_Index")=True_Index
rs("Rad_Date")=Rad_Date
rs("Rad_Type")=Rad_Type
rs("Rad_City")=Rad_City
rs.UpDate
rs.close
set rc=Server.createObject("adodb.recordset")
sql="select * from Sql_Radio where Rad_Title = '"&Rad_Title&"' and Rad_Date = '"&Rad_Date&"'"
rc.open sql,conn1,1,3
Rad_ID = rc("ID")
set Rs_Url=server.createobject("adodb.recordset")
sql="select * from Sql_Shows"
Rs_Url.open sql,conn1,1,3
for i=1 to No
Rs_Url.addnew
Url=trim(request.form("Rad_Url"&i&""))
Rs_Url("Rad_ID")=Rad_ID
Rs_Url("Rad_No")=No
Rs_Url("Rad_Url")=Url
Rs_Url.UpDate
next
Rs_Url.close
set Rs_Url=nothing
response.write"<iframe width=""100%"" height=""35"" src=""Sql_Save_Radio.asp?Type=UpDate&B_ID="&Rad_ID&""" frameborder=""no"" border=""0"" marginwidth=""0"" marginheight=""0"" scrolling=""no""></iframe>"
%>
<script language="JavaScript">
<!--
var message;
message="防盗发布成功！"
window.alert(message);
self.navigate("Sql_Edit_Radio.asp?action=Add")
//-->
</script>
<%end if%>
<%if request("Type") = "Edit" then%>
<%
Rad_Title=request.form("Rad_Title")
Rad_Class=request.form("Class")
Rad_Body=request.form("Rad_Body")
Rad_Date=request.form("Rad_Date")
Rad_Type=request.form("Rad_Type")
Rad_City=request.form("Rad_City")
True_Index=request.form("True_Index")
Rad_Date=Date()
if True_Index = "" then
True_Index = "No"
else
True_Index = "Yes"
end if
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Sql_Radio where ID="&request("ID")
rs.open sql,conn1,1
Rad_ID = rs("ID")
sql="UpDate Sql_Radio set Rad_Title = '"&Rad_Title&"',Rad_Class = '"&Rad_Class&"',Rad_Date = '"&Rad_Date&"',Rad_Type = '"&Rad_Type&"',Rad_City = '"&Rad_City&"',True_Index = '"&True_Index&"' where ID = "&request("ID")
conn1.execute(sql)
dim b
b=0
set rc=server.createobject("adodb.recordset")
sql1="select * from Sql_Shows where Rad_ID="&clng(request("ID"))&""
rc.open sql1,conn1,1,3
do while not rc.eof
b=b+1
rc("Rad_Url")=request.form("Rad_Url"&b&"")
rc.UpDate
rc.movenext
loop
rc.close
set rc=nothing
response.write"<iframe width=""100%"" height=""35"" src=""Sql_Save_Radio.asp?Type=UpDate&B_ID="&Rad_ID&""" frameborder=""no"" border=""0"" marginwidth=""0"" marginheight=""0"" scrolling=""no""></iframe>"
%>
<script language="JavaScript">
<!--
var message;
message="更新成功！"
window.alert(message);
self.navigate("Sql_Edit_Radio.asp?action=Manage")
//-->
</script>
<%end if%>
<%'以下为批量生成程序
if request("Type") = "UpDate" then%>
<%
Rad_Menu=Rad_Menu&" <table cellSpacing=0 cellPadding=0 border=0 width=700>"&chr(13)
Rad_Menu=Rad_Menu&" <tr>"&chr(13)
sql="select * from Sql_Class"
set rc=server.createobject("adodb.recordset")
rc.open sql,conn1,1,1
if rc.EOF then
response.write " <td width=""100%"" align=""center"">没有栏目</td>"&chr(13)
else
do while NOT rc.EOF
Rad_Menu=Rad_Menu&" <td width=""1%"" align=""center""><img height=""13"" src=""../../images/head_line.gif"" width=""10""></td><td width=""6%"" align=""center""><a href=""../../Radio/Class.asp?Class="&rc("class")&""" title="""&rc("Sql_Title")&"""><b>"&rc("class")&"</b></a></td>"&chr(13)
rc.movenext
loop
end if
rc.close
set rc=nothing
Rad_Menu=Rad_Menu&" </tr>"&chr(13)
Rad_Menu=Rad_Menu&" </table>"&chr(13)
B_ID=request("B_ID")
E_ID=request("E_ID")
set ru=Server.CreateObject("ADODB.Recordset")
sql="Select * from Sql_Radio where ID = "&request("B_ID")&""
ru.open sql,conn1,1,1
If Ru.Eof And Ru.Bof then
else
Rad_ID = ru("ID")
if ru("Rad_Type")="real" then
Rad_GS="1"
elseif ru("Rad_Type")="media" then
Rad_GS="2"
else
Rad_GS="3"
end if
if ru("Rad_Class")="广播" then
Rad_Action="No"
elseif ru("Rad_Class")="电视" then
Rad_Action="Yes"
else
Rad_Action="No"
end if
sql="select * from Sql_Shows where Rad_ID="&Rad_ID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn1,1,1
if rs.eof then
Rad_Url=Rad_Url&"<img height=""16"" src=""../../images/Play_"&Rad_GS&".gif"" width=""16""> 暂无收录任何电影"
else
No=rs.recordcount
dim c
for c=1 to No
Rad_Url=Rad_Url&"<img height=""16"" src=""../../images/Play_"&Rad_GS&".gif"" width=""16""><a href=""../../Radio/Play"&Rad_GS&".asp?From="&ru("ID")&"&No="&No&""" Title="""&ru("Rad_Title")&""" target=""Play"">"&ru("Rad_Title")&"("&c&")</a>"&chr(13)
rs.movenext
next
end if
rs.close
set rs=nothing
okfile=Sql_Show
file1=server.mappath("../Show/")
dim NewsFile
NewsFile = "23mn_"&""&ru("ID")&".html"
file2=file1&"\"&NewsFile
if vartype(ru("Rad_Date")) = 1 then
Rad_Date = Date()
else
Rad_Date = ru("Rad_Date")
end if
okfile = replace(okfile,"Rad_ID",Rad_ID)
okfile = replace(okfile,"Rad_No",Rad_No)
okfile = replace(okfile,"Rad_Menu",Rad_Menu)
okfile = replace(okfile,"Rad_Class",ru("Rad_Class"))
okfile = replace(okfile,"Rad_Title",ru("Rad_Title"))
okfile = replace(okfile,"Rad_Type",ru("Rad_Type"))
okfile = replace(okfile,"Rad_GS",Rad_GS)
okfile = replace(okfile,"Rad_Url",Rad_Url)
okfile = replace(okfile,"Rad_Body",Rad_Body)
okfile = replace(okfile,"Rad_Date",Rad_Date)
okfile = replace(okfile,"Rad_Action",Rad_Action)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file2,true)
fout.writeline okfile
fout.close
sql="UpDate Sql_Radio set Rad_Date = '"&Rad_Date&"' where ID = "&ru("ID")
conn1.execute(sql)
end if
%>
<br><%=file2%>生成成功....<br>
<%
call NextID
Sub NextID()
If Clng(B_ID) < Clng(E_ID) Then
Response.Write "<script language=javascript>location.href='Sql_Save_Radio.asp?Type=UpDate&B_ID=" & B_ID+1 & "&E_ID=" & E_ID & " ';</script>"
Else
Response.Write "开始 I D：" & B_ID & "<br>" & "结束 I D：" & E_ID & "<br><font color=red size=4><b>生成完毕！</b></font>"
End If
End Sub
%>
<%end if%>
<!--#include file="Sql_Conn_Close.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -