movieajax.asp

一款不错的影音视频网站源代码。asp的程序。后台有自动采集功能

<!--#include file="../../inc/conn.asp"-->
<!-- #include file="function.asp" -->
<%call login_check()
Response.Charset="GB2312"
Select Case Trim(Request("action"))
Case "movietj"
	Call movietj()
Case "moviery"
	Call moviery()
Case "lz"
	Call movielz()
Case "zt"
	Call moviezt()
Case "movienamejc"
	Call movienamejc()
end Select

sub movietj()
conn.execute("update "&web_dbtop&"movie set movietj="&Trim(Request.QueryString("value"))&" where id="&Trim(Request.QueryString("id"))&"")
if Trim(Request.QueryString("value"))=0 then
Response.Write"<a href=""javascript:movietj('action=movietj&id="&Request.QueryString("id")&"&value=1','tj"&Request.QueryString("id")&"')""><img src=""images/icon_02.gif"" border=""0"" /></a>" 
else 
Response.Write"<a href=""javascript:movietj('action=movietj&id="&Request.QueryString("id")&"&value=0','tj"&Request.QueryString("id")&"')""><img src=""images/icon_01.gif"" border=""0"" /></a>"
end if
end sub

sub moviery()
conn.execute("update "&web_dbtop&"movie set moviery="&Trim(Request.QueryString("value"))&" where id="&Trim(Request.QueryString("id"))&"")
if Trim(Request.QueryString("value"))=0 then
Response.Write"<a href=""javascript:movietj('action=moviery&id="&Request.QueryString("id")&"&value=1','ry"&Request.QueryString("id")&"')""><img src=""images/icon_02.gif"" border=""0"" /></a>" 
else 
Response.Write"<a href=""javascript:movietj('action=moviery&id="&Request.QueryString("id")&"&value=0','ry"&Request.QueryString("id")&"')""><img src=""images/icon_01.gif"" border=""0"" /></a>"
end if
end sub

sub movielz()
if Request.QueryString("show")=1 then
Response.Write"连载至<input name=""ajaxcontent"" type=""text""  size=""10"">集 <input type=""button"" value=""确定"" onclick=""ajaxsubmit('"&Request.QueryString("id")&"','"&Request("action")&"');"" class=inputbut> <input type=""button"" value=""取消"" onclick=""closew();"" class=inputbut>"
elseif Request.QueryString("show")=2 then
conn.execute("Update "&web_dbtop&"movie set movielz=1,lzcontent='"&Trim(Request.QueryString("ajaxcontent"))&"' where id="&Request.QueryString("id"))
Response.Write"lz"&Request.QueryString("id")&"$<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&Request.QueryString("id")&"')""/>"
elseif Request.QueryString("show")=3 then
conn.execute("Update "&web_dbtop&"movie set movielz=0 where id="&Request.QueryString("id"))
Response.Write"lz"&Request.QueryString("id")&"$<img src=""images/icon_02.gif"" border=""0"" style=""cursor: pointer;"" onClick=""setday('lz','"&Request.QueryString("id")&"')""/>" 
end if
end sub

sub moviezt()
if Request.QueryString("show")=1 then
call showselect("feature","featurename","ajaxcontent","请选择专题","")
Response.Write" <input type=""button"" value=""确定"" onclick=""ajaxsubmit('"&Request.QueryString("id")&"','"&Request("action")&"');"" class=inputbut> <input type=""button"" value=""取消"" onclick=""closew();"" class=inputbut>"
elseif Request.QueryString("show")=2 then
conn.execute("Update "&web_dbtop&"movie set moviefeature=1,featureid="&Trim(Request.QueryString("ajaxcontent"))&" where id="&Request.QueryString("id"))
Response.Write"zt"&Request.QueryString("id")&"$<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&Request.QueryString("id")&"','"&Request("action")&"')""/>"
elseif Request.QueryString("show")=3 then
conn.execute("Update "&web_dbtop&"movie set moviefeature=0 where id="&Request.QueryString("id"))
Response.Write"zt"&Request.QueryString("id")&"$<img src=""images/icon_02.gif"" border=""0"" style=""cursor: pointer;"" onClick=""setday('zt','"&Request.QueryString("id")&"')""/>" 
end if
end sub

sub movienamejc()
Set rs = conn.execute("select id from "&web_dbtop&"movie where moviename='"&Trim(Request.QueryString("moviename"))&"'")
if not rs.eof then
Response.Write"已有此影片 id:"&rs("id")
else
Response.Write"<img src=""images/right.gif"" border=""0"">" 
end if
rs.close
set rs = nothing
end sub

call connclose()%>