syscode_vid.asp

后台登陆admin.asp

<%

'****************************************************
if guestvid<>"yes" and UserLogined<>True then
call guesterror()
response.end
end if

dim vid_id,vidcat_id
dim founderr,errmsg,RsHxcms

if request.querystring("vid_id")<>"" then
    if not isInteger(request.querystring("vid_id")) then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
    end if
	vid_id=CLng(request("vid_id"))
else
	vid_id=0
end if

if request.querystring("vidcat_id")<>"" then
  if not isInteger(request.querystring("vidcat_id")) then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
  end if
  vidcat_id=CLng(request("vidcat_id"))
else
  vidcat_id=0
end if

if vid_id>0 then
   sql="select * from vid where vid_id="&vid_id
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,1,3
	if rs.bof and rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>你要找的影视不存在，或者已经被管理员删除！</li>"
	else	
		start="影视中心 - "&rs("title")&""
                vidcat_id=CLng(rs("vidcat_id"))
                rs("hits")=rs("hits")+1
		rs.update
	end if
end if

'=================================================
if FoundErr=True then
	Call HxErrMsg()
	response.end
end if

'=================================================
'过程名：main_vid
'作  用：显示影视位置导航
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub main_vid()
if vidcat_id>0 then
  Response.Write "&nbsp;&nbsp;您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='vid.asp'>精彩影视</a>" & vbCrLf
  sql="select * from vidcat where vidcat_id="&vidcat_id
  set rs3=conn.execute(sql)
  if rs3.eof then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
  End IF
  if rs3("sid")<>"0" then
     sql="select * from vidcat where vidcat_id="&rs3("sid")
     set rs4=conn.execute(sql)
     Response.Write " >> <a href=""vid.asp?vidcat_id="&rs4("vidcat_id")&""">"&rs4("vidcat_name")&"</a>" 
     rs4.close
     set rs4=nothing
  end if
  Response.Write " >> <a href=""vid.asp?vidcat_id="&rs3("vidcat_id")&""">"&rs3("vidcat_name")&"</a>" 
  rs3.close
  set rs3=nothing 
else
  Response.Write "&nbsp;&nbsp;您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='vid.asp'>精彩影视</a>" & vbCrLf
end if
end sub

'=================================================
'过程名：top_vid
'作  用：热门排行
'参  数：n-调用条数,nn-显示长度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:    www.ynsky.com.cn
'=================================================
sub top_vid(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("SELECT top "&n&" * FROM vid ORDER by hits DESC,vid_id DESC")
do while not RsHxcms.eof
Response.Write "<tr><td height=22 class=table-xia><font color=#FF0000>·</font><a href='showvid.asp?vid_id="&RsHxcms("vid_id")&"' Title='影片名称："&RsHxcms("title")&"&#13&#10观看次数："&RsHxcms("hits")&"&#13&#10上传时间："&RsHxcms("dateandtime")&"' "& nnn &">"&gotTopic(RsHxcms("title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>当前没有影片！</td></tr>"
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：best_vid
'作  用：推荐影片
'参  数：n-调用条数,nn-显示长度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:    www.ynsky.com.cn
'=================================================
sub best_vid(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("SELECT top "&n&" * FROM vid where isbest = 1 order by vid_id desc")
do while not RsHxcms.eof
Response.Write "<tr><td height=22 class=table-xia><font color=#FF0000>·</font><a href='showvid.asp?vid_id="&RsHxcms("vid_id")&"' Title='影片名称："&RsHxcms("title")&"&#13&#10观看次数："&RsHxcms("hits")&"&#13&#10上传时间："&RsHxcms("dateandtime")&"' "& nnn &">"&gotTopic(RsHxcms("title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>没有推荐影片！</td></tr>"
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：class_vid
'作  用：影片分类——纵排
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub class_vid()
dim i
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
sql="select * from vidcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<tr><td>" & vbCrLf
if request("vidcat_id")=cstr(rs1("vidcat_id")) then
response.write "&nbsp;<font color=""#FF0000"">·"&rs1("vidcat_name")&"</font>" & vbCrLf
else
response.write "&nbsp;<font color=""#FF0000"">·</font><a href='vid.asp?vidcat_id="&rs1("vidcat_id")&"'>"&rs1("vidcat_name")&"</a>" & vbCrLf
end if
response.write "</td><td>&nbsp;</td></tr><tr>" & vbCrLf
sql="select * from vidcat where sid="&rs1("vidcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
i=0
do while not rs2.eof
response.write "<td width=""50%"">" & vbCrLf
if request("vidcat_id")=cstr(rs2("vidcat_id")) then
response.write "&nbsp;&nbsp;&nbsp;<font color=""#FF0000"">├ "&rs2("vidcat_name")&"</a></font>" & vbCrLf
else
response.write "&nbsp;&nbsp;&nbsp;<a href='vid.asp?vidcat_id="&rs2("vidcat_id")&"'>├ "&rs2("vidcat_name")&"</a>" & vbCrLf
end if
response.write "</td>" & vbCrLf
if i=1 then response.write "</tr><tr>" & vbCrLf
if i>1 then 
		i=1
	else
		i=i+1
	end if
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：class1_vid
'作  用：影片分类——横排
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub class1_vid()
sql="select * from vidcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
if request("vidcat_id")=cstr(rs1("vidcat_id")) then
response.write "<font color=""#FF0000"">〖"&rs1("vidcat_name")&"〗</font><BR>"
else
response.write "<a href='vid.asp?vidcat_id="&rs1("vidcat_id")&"'>〖"&rs1("vidcat_name")&"〗</a><BR>"
end if
sql="select * from vidcat where sid="&rs1("vidcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if request("vidcat_id")=cstr(rs2("vidcat_id")) then
response.write "&nbsp;&nbsp;<font color=""#FF0000"">├ "&rs2("vidcat_name")&"</a></font>"
else
response.write "&nbsp;&nbsp;<a href='vid.asp?vidcat_id="&rs2("vidcat_id")&"'>├ "&rs2("vidcat_name")&"</a>"
end if
rs2.movenext
loop
response.write "<BR>"
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
end sub

'=================================================
'过程名：search_vid
'作  用：显示影片搜索表单
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub search_vid()
Response.Write "<form name='form2' method='post' action='vid.asp'><div align=center><input type='radio' name='select' value='title' checked>影片名称&nbsp;<input type='radio' name='select' value='dog'>领衔主演<BR><input type='radio' name='select' value='content'>剧情简介&nbsp;<input type='radio' name='select' value='review'>影视评论<br><input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onfocus=""this.value=''"" class='input'>&nbsp;<input type='submit' name='search'  value='搜索' onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'""></div></form>" & vbCrLf
end sub

'=================================================
'过程名：displayList_vid
'作  用：带分页功能的影片列表—图片显示
'参  数：nn-标题长度,popvidnum-热门点击数,Hxperpage-每页显示条数
'        ImgWidth   ----图片宽度
'        ImgHeight  ----图片高度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:    www.ynsky.com.cn
'=================================================
sub displayList_vid(nn,Hxperpage,ImgWidth,ImgHeight,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Dim CurPage,Url_Add
Url_Add="?"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
    Response.End
  end if
end if
dim mtyid,hx01,hx66010
mtyid=cint(vidcat_id)
set hx01=conn.execute("select vidcat_id,vidcat_name,sid from vidcat order by vidcat_id")
do while not hx01.eof
if mtyid=hx01("sid") then
hx66010=hx66010+" or vidcat_id="&hx01("vidcat_id") '显示页所需变量vid.asp
end if
hx01.movenext
loop
hx01.close
set hx01=nothing
if request.querystring("vidcat_id")<>"" then
   sql="select * from vid where vidcat_id="&vidcat_id&hx66010&" order by istop desc,vid_id DESC"
   Url_Add=Url_Add&"vidcat_id="&vidcat_id&"&"
elseif request("keyword")<>"" and (request("select")="title" or request("select")="dog" or request("select")="content" or request("select")="review") then
   sql="select * from vid where "&request("select")&" like '%"&Jencode(checkspace(request("keyword")))&"%'order by istop desc,vid_id DESC"
   Url_Add=Url_Add&"select="&request("select")&"&keyword="&Server.URLEncode(request("keyword"))&"&"
else
sql="select * from vid order by istop desc,vid_id DESC"
end if