登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

面包会有的

... ...

 
 
 

日志

 
 

自动关闭窗口的代码  

2008-03-25 14:45:43|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


<!--#include file="const.asp"-->
<%
CheckTeacher
Dim ServerIP
Dim ConfID,strParam

ConfID=Request.QueryString("ConfID")              '读取会议ID 在  T_ConfInfo 里
Call ConnectionDatabase()
%>
<%
Sql = "Select * From T_ConfUsers Where ConfId="&ConfId &" And UserId="&Session("UserId")
Response.write sql
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs = MyByyear.Execute(Sql)
If Rs.Eof And Rs.Bof Then
 '如果没有,则加入该用户到此表,同时,在教师的会员面板有管理该房间成员的列表,包括审核、权限设置、删除等。
 Sql = "Insert Into T_ConfUsers (ConfId,UserID,UserRight,isAccept) Values ("&ConfId&","&Session("UserId")&",1,0)"
 MyByYear.Execute(sql)
 FoundErr = True
 ErrMsg = ErrMsg + "<li>Sorry!已发送申请,请等待审核,在未通过审核前不能进入该房间!</li>"
 
 
 
Else
 If Rs("IsAccept")=0 Then
  FoundErr = True
  ErrMsg = ErrMsg + "<li>Sorry!您的申请还未被通过,请耐心等待,或通过其它方式联系该名教师!</li>"
  
  
 End If
End If
If Founderr = True Then
 Session("UserTime") = Now()
 Response.Redirect("showerr.asp?action=error&message=" & Server.URLEncode(ErrMsg) & "")
 Response.end
End If
%>

<!--脚本嵌入组件  这个ProcRun组件在安装的时候自动组册了  这里是引用的意思-->
<OBJECT id=ProcRun1 style="display:none;LEFT: 0px; TOP: 0px" classid="clsid:7AE3437A-CAD8-4E66-A58B-DDE9BCAF6B61" VIEWASTEXT>
 <PARAM NAME="_Version" VALUE="65536">
 <PARAM NAME="_ExtentX" VALUE="2646">
 <PARAM NAME="_ExtentY" VALUE="1323">
 <PARAM NAME="_StockProps" VALUE="0"></OBJECT>


<%
'通过调用数据库里的  congfName  confId  userName   userPassword  传这下面的这个变量里。
ServerIP=Request.ServerVariables("LOCAL_ADDR")   '定义ServerIP 变量的值

set rs=conn.Execute("select * from T_ConfInfo where ConfID=" & ConfID)
'ConfName=rs("ConfName")                        '读取会议名称用户ID等等
%>


<%
strParam = "'" & ServerIP & " " & """" & rs("ConfName") & """" & " " & rs("ConfID") & " " & """" & Session("UserName") & """" & " " & """" & Session("UserPassword") & """" & "'"
'Response.write strParam
%>


<script language=javascript>
function LoginConference()
{
ret = false;
try
{
//alert(<%=strParam%>);
ret = ProcRun1.StartConf(<%=strParam%>);
}
catch(e)
{
ret = false;
}
if (!ret)
{
alert("请下载并安装视频会议客户端!");
window.location.href = "/download/client.exe";
}
//alert(strParam);
}
</script>

<input type=button value="进入" onclick="LoginConference()">
<head>
<title>进入视频房间(本窗口为过渡窗口,稍后会自动关闭,也可在登陆房间后直接关闭)</title>
</head>
<body onload="LoginConference()">
</Body>
<%
'=====================================================================
' 函数名称:
' 作用概要:教师会员权限检测
'=====================================================================
'
'=====================================================================
Sub CheckTeacher()
  If Session("UserName") = "" Or Session("UserType") <> "1" Or Session("UserId") = "" Or Session("RealName") = "" Then
  'Response.Write "教师会员验证失败,请重新登陆!"
  response.write"<script language=javascript>window.location.replace('/login.asp?Action=Login');</script>"
 Else
  
 End If
End Sub
%>
<script language="javascript">
<!--
setTimeout('window.close();',5000);
-->
</script>

  评论这张
 
阅读(712)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018