📄 per_videoview.asp
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<%
Dim SQL,Rs,i,RealName,Perid,Tmp
Perid = Replace_Text(Request.QueryString("Perid"))
SQL = "Select RealName,Nc_Video,Video_Date,Video_EndDate,Video_Flag,Video_File From [pH_Person_Info] Where Perid='"&Perid&"'"
Set Rs = Conn.Execute(SQL)
If Rs.Eof Then
Response.Write("没有找到指定的用户！")
Response.End()
End if
Tmp = Rs.GetRows()
Rs.Close:Set Rs = Nothing
RealName = Tmp(0,0)
Nc_Video = Tmp(1,0)
Video_Date = Tmp(2,0)
Video_EndDate = Tmp(3,0)
Video_Flag = Tmp(4,0)
Video_File = Tmp(5,0)
If Nc_Video <> True Then
Response.Write("该用户暂时没有制作视频简历！")
Response.End()
End if
If DateDiff("d",Video_EndDate,Date()) > 0 Then
Response.Write("该用户的视频简历已经过期！暂时不能显示...")
Response.End()
End if
If Video_Flag = 2 Then
Response.Write("该用户已经完全屏蔽视频简历！暂时不能显示...")
Response.End()
Elseif Video_Flag = 1 Then
If Not IsArray(Session("Company")) Then
Response.Write("该用户将视频简历设置成对会员开放！登录系统后才能被显示...")
Response.End()
End if
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Css/Css.css" type=text/css rel=stylesheet>
<title><%= Cls_WebName %> -- 视频简历</title>
</head>
<body>
<br>
<br>
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f9f9f9">
<tr>
<td height="25" bgcolor="eeeeee"> <b><%= RealName %></b> -- 视频简历</td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td><TABLE borderColor=#e8e8e8 width=300
align=center border=10>
<TBODY>
<TR>
<TD bgColor=#999999> <OBJECT height=280 width=400 align=middle
classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6
VIEWASTEXT>
<PARAM NAME="URL" VALUE="../Uploadfiles/VideoFile/<%= Video_File %>">
<PARAM NAME="rate" VALUE="1">
<PARAM NAME="balance" VALUE="0">
<PARAM NAME="currentPosition" VALUE="0">
<PARAM NAME="defaultFrame" VALUE="1">
<PARAM NAME="playCount" VALUE="1">
<PARAM NAME="autoStart" VALUE="1">
<PARAM NAME="currentMarker" VALUE="0">
<PARAM NAME="invokeURLs" VALUE="-1">
<PARAM NAME="baseURL" VALUE="">
<PARAM NAME="volume" VALUE="50">
<PARAM NAME="mute" VALUE="0">
<PARAM NAME="uiMode" VALUE="full">
<PARAM NAME="stretchToFit" VALUE="0">
<PARAM NAME="windowlessVideo" VALUE="0">
<PARAM NAME="enabled" VALUE="-1">
<PARAM NAME="enableContextMenu" VALUE="-1">
<PARAM NAME="fullScreen" VALUE="0">
<PARAM NAME="SAMIStyle" VALUE="">
<PARAM NAME="SAMILang" VALUE="">
<PARAM NAME="SAMIFilename" VALUE="">
<PARAM NAME="captioningID" VALUE="">
</OBJECT></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="f2f2f2"><a href="<%= Cls_WebUrl %>" target="_blank"><%= Cls_WebName %></a>
<font color="#333333">版权所有</font></td>
</tr>
</table>
</body>
</html>
<%
Call CloseDB
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -