movienews.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<!--#include file="head.asp" -->
<%
dim founderr,piccat1,iii,totalcs,reid
iii=0
reid=request.querystring("id")
founderr=false
if request.querystring("id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
%>
	<table border="0" cellpadding="0" cellspacing="0" width="996" height="20" bgcolor="#EFEFE7">
		<tr>
			<td>
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="996" height="31" background="images/movie_daohang_Bg.gif">
					<tr>
						
              <td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;<span style="letter-spacing: 3px">首页 &gt;&gt; <a href='movie.asp'>全部视频</a> 
                &gt;&gt; 
                <% 
    sql="select * from a125_m_news where id="&request.querystring("id")
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    pic_name= rs("pic_name")
    sql="select piccat_id,piccat_name from a125_movie where piccat_id="&rs("piccat_id")
    set rs1=conn.execute(sql)
    Response.Write " <a href=""movie.asp?piccat_id="&rs1("piccat_id")&""">"&rs1("piccat_name")&"</a>" 
    rs1.close 
   piccat1= rs("piccat_id")
%>
                &gt;&gt; 
                <% Response.Write ""&rs("pic_name")&"" %>
                </span></td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
	<table border="0" cellpadding="0" cellspacing="0" width="996" height="5" bgcolor="#EFEFE7">
		<tr>
			<td></td>
		</tr>
	</table>

	<table border="0" cellpadding="0" cellspacing="0" width="996" height="10" bgcolor="#EFEFE7">
		<tr>
			<td>
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="996" height="48" bgcolor="#FFFFFF" style="border: 1px solid #CECFCE">
					<tr>
						<td valign="top">
<!--主要内容开始-->



                  <table width=420 height=360 align="center" cellspacing="0" cellpadding="0">
                        <tr><td valign="top">                        
                              <div align="center"><BR>

<%
	typeWord=replace(rs("pic_ext"),".","")
	typeWord=replace(typeWord," ","")
	movieurl=rs("pic_pic")
	Response.Write "<font color='red' size='4'>"&rs("pic_name")&"</font><BR><BR>"
  select case typeWord
	case "swf"
%>

<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' width='420' height='360'><param name=movie value='<%=movieurl%>'><param name=quality value=high><embed src='<%=movieurl%>' quality=high type='application/x-shockwave-flash' width='420' height='360'></embed></object>
<%case "rm","rmvb"%>
<OBJECT ID=video1 CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" HEIGHT=420 WIDTH=360>
<param name="_ExtentX" value="9313">
<param name="_ExtentY" value="7620">
<param name="AUTOSTART" value="0">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="SRC" value="<%=movieurl%>";;>
<param name="CONTROLS" value="ImageWindow">
<param name="CONSOLE" value="Clip1">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000"><embed SRC type="audio/x-pn-realaudio-plugin" CONSOLE="Clip1" CONTROLS="ImageWindow" HEIGHT="288" WIDTH="352" AUTOSTART="false">
</OBJECT>
<%case "wmv"%>
<object id="NSPlay" width=420 height=360 classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715" standby="Loading Microsoft Windows Media Player components..." type="application/x-oleobject" align="center" hspace="5">
<param name="AutoRewind" value=0>
<param name="FileName" value="<%=movieurl%>">
<param name="ShowControls" value="1">
<param name="ShowPositionControls" value="1">
<param name="ShowAudioControls" value="1">
<param name="ShowTracker" value="0">
<param name="ShowDisplay" value="0">
<param name="ShowStatusBar" value="0">
<param name="ShowGotoBar" value="0">
<param name="ShowCaptioning" value="0">
<param name="AutoStart" value="0">
<param name="Volume" value="-2500">
<param name="AnimationAtStart" value="0">
<param name="TransparentAtStart" value="0">
<param name="AllowChangeDisplaySize" value="1">
<param name="AllowScan" value="0">
<param name="EnableContextMenu" value="0">
<param name="ClickToPlay" value="0">
</object>
<%case "mpg","mpeg"%>
<object classid="clsid:05589FA1-C356-11CE-BF01-00AA0055595A" id="ActiveMovie1" width="420" height="360">
<param name="Appearance" value="0">
<param name="AutoStart" value="-1">
<param name="AllowChangeDisplayMode" value="-1">
<param name="AllowHideDisplay" value="0">
<param name="AllowHideControls" value="-1">
<param name="AutoRewind" value="-1">
<param name="Balance" value="0">
<param name="CurrentPosition" value="0">
<param name="DisplayBackColor" value="0">
<param name="DisplayForeColor" value="16777215">
<param name="DisplayMode" value="0">
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="-1">
<param name="EnablePositionControls" value="-1">
<param name="EnableSelectionControls" value="0">
<param name="EnableTracker" value="-1">
<param name="Filename" value="<%=movieurl%>" valuetype="ref">
<param name="FullScreenMode" value="0">
<param name="MovieWindowSize" value="0">
<param name="PlayCount" value="1">
<param name="Rate" value="1">
<param name="SelectionStart" value="-1">
<param name="SelectionEnd" value="-1">
<param name="ShowControls" value="-1">
<param name="ShowDisplay" value="-1">
<param name="ShowPositionControls" value="0">
<param name="ShowTracker" value="-1">
<param name="Volume" value="-480">
</object>

<%case "flv"%>
<embed src=http://blog.qiter.com/attachments/Qt_FlvPlayer/FlvPlayer/uume/flvplayer.swf?id=<%=movieurl%>" type="application/x-shockwave-flash" wmode="transparent" quality="high" width="450" height="380" autostart="true"></embed>

<%case "mov"%>
<embed controller="true" width="420" height="360" src="<%=movieurl%>" border="0" pluginspage="http://www.apple.com/quicktime/download/indext.html"></embed>

<%case "qt"%>
<embed src='<%=movieurl%>' width=420 height=360 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>"

<%case "avi"%>
<object id="video" width="420" height="360" border="0" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">
<param name="ShowDisplay" value="0">
<param name="ShowControls" value="1">
<param name="AutoStart" value="1">
<param name="AutoRewind" value="0">
<param name="PlayCount" value="0">
<param name="MovieWindowHeight" value="360">
<param name="MovieWindowWidth" value="420">
<param name="FileName" value="<%=movieurl%>">
<embed width="420" height="360" border="0" showdisplay="0" showcontrols="1" autostart="1" autorewind="0" playcount="0" moviewindowheight="240" moviewindowwidth="320" filename="<%=movieurl%>" src="<%=movieurl%>">
</embed> 
</object>
<%case "no"
Response.Write rs("pic_pic") 
case else%>
 <table width='420' height="360" border='0' cellspacing='1' align='center' class='lanyubg'>
               <tr>
                     <td>
<% Response.Write "视频格式不对,不支持该后缀" %>
                </td>
                  </tr>
</table>  

<%end select%>                             
                   
</div>
</td></tr></table>

<br>

            <table width='700' border='0' cellspacing='1' align='center' class='lanyubg'>
               <tr>
                     <td>
<% Response.Write "视频简介："&rs("pic_desc")&"" %>
                </td>
                  </tr>
                          </table>                       
<hr align="right" size="1">

            <table width='900' border='0' cellspacing='1' align='center' class='lanyubg'>
               <tr>
               
                     <td height='48' Valign='TOP' style="LINE-HEIGHT: 150%;padding: 5;" align="left">
<%
if RS("department")<>"" then
    InfoSql="select * from HX_Department where WS_Did="&RS("department")
    Set InfoRs=Conn.Execute(InfoSql)
    DepartmentName=Infors("WS_DepartmentName")
    Infors.close
    set Infors=nothing
   else
    DepartmentName="" 
end if   
  Select case switch_author
    case "1"
    response.write "录入：<font color=""#FF0000"">"&RS("author")&"</font>   "
    case "2"
    response.write "录入：<font color=""#FF0000"">"&DepartmentName&"</font>   "
    case "3"
    response.write "录入：<font color=""#FF0000"">"&DepartmentName&"&nbsp;&nbsp;"&RS("author")&"</font>   "
    Case else 
    End Select
    Response.Write "   浏览指数："&rs("pic_count")&" 上传时间："&rs("pic_date")&""
 rs.close     
%> 
</td> <td height='48' Valign='TOP' style="LINE-HEIGHT: 150%;padding: 5;" align="right">
跳转<select name="page" size="1" onChange="window.open(this.value);" >
<% 
    sql="select * from a125_m_news where piccat_id="&piccat1
    set rs2=server.createobject("adodb.recordset")
    rs2.open sql,conn,1,1
    do while not rs2.eof
iii=iii+1
if request("id")=cstr(rs2("id")) then 
Response.Write "<option value='movienews.asp?id="&rs2("id")&"' selected>第"&iii&"部</option> " & vbCrLf
else
Response.Write "<option value='movienews.asp?id="&rs2("id")&"' >第"&iii&"部</option> " & vbCrLf
end if

    rs2.movenext
    loop
totalcs=iii 
rs2.close   
%>
</select>
本类别共<%=totalcs%>部        
        
          </td>
                </tr>
                       </table>
<!-- 主要内容结束 -->
						</td>
					</div>
		</tr>
				</table>
			</td>
		</tr>
	</table>


<!--#include file="Foot.asp" -->

<SCRIPT language=javascript>
document.title="<%=pic_name%>--<%=a125_title%>";
</SCRIPT>
<% 
rs.open "select * from a125_m_news where id="&reid,conn,3,2
   rs("pic_count")=rs("pic_count")+1
   rs.update
   rs.close 
%>