自动关闭窗口的代码

最新推荐文章于 2021-06-03 05:57:31 发布

wmnmtm

最新推荐文章于 2021-06-03 05:57:31 发布

阅读量366

点赞数

本文链接：https://blog.csdn.net/wmnmtm/article/details/82923999

版权

<%
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
%>

<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
%>

<input type=button value="进入" οnclick="LoginConference()">
<head>
<title>进入视频房间(本窗口为过渡窗口,稍后会自动关闭,也可在登陆房间后直接关闭)</title>
</head>
<body οnlοad="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">

</script>

wmnmtm

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
自动关闭窗口的代码

&lt;!--#include file="const.asp"--&gt;&lt;%CheckTeacherDim ServerIPDim ConfID,strParamConfID=Request.QueryString("ConfID") '读取会议ID 在 T_ConfInfo 里Call ConnectionDatabase()%&gt;&lt;%Sql ...
复制链接

扫一扫