rm.asp

来自「后台地址：login.asp 管理员 帐户：admin 密码：admi」· ASP 代码 · 共 40 行

<!--#include file="Conn.asp"-->
<%
if request("From")="" then
error="JavaScript:alert('错误：读取地址时出错!');"
else

set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from Sql_Radio where id="&request("From"),conn1,1,2
if not rs.eof then
rs("Rad_Click")=rs("Rad_Click")+1
rs.update
end if

set rsurl=conn1.execute( "select Rad_Url from Sql_Shows where Rad_ID="&request("From")&"")
if not rsurl.eof then
if rs("Rad_Type")="media" then
Url="<ASX version =""3.0""><Title>"&rs("Rad_Title")&"</Title>"
do while not rsurl.eof
Url=Url&"<Entry><Title>"&rs("Rad_Title")&"</Title><Author>www.23mn.net</Author><Copyright>23mn网络电视</Copyright><ref href="""&rsurl("Rad_Url")&"""/></Entry>"
rsurl.movenext 
loop
Url=Url&"</ASX>"
Response.Write(Url) 
elseif rs("Rad_Type")="real" then
do while not rsurl.eof
Response.Write(rsurl("Rad_Url"))
rsurl.movenext 
loop
end if
else
down="JavaScript:alert('错误：读取地址时出错!');"
end if
rs.close
set rs=nothing
rsurl.close
set rsurl=nothing
conn1.close
set conn1=nothing
end if
%>