📄 default.asp
字号:
<!--#Include File="Config.asp"-->
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Language" CONTENT="en-us">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="GENERATOR" CONTENT="Microsoft FrontPage 4.0">
<META NAME="ProgId" CONTENT="FrontPage.Editor.Document">
<TITLE><%=Title%></TITLE>
<STYLE>
<!--
tr { font-family: 宋体; font-size: <%=Textsize%> }
.pt9 { font-size: 9pt }
-->
</STYLE>
<script language="javascript">
function uenter(roomid){
if (document.frmuEnter.userid.value == "")
alert("请填写登陆信息，点击会议室名称即可进入！");
else
window.open ("enter.asp?UserName="+document.frmuEnter.userid.value+"&CRNAME="+roomid+"","","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=790,Height=550,top=0,left=0");
}
</SCRIPT>
</HEAD>
<body class="p9" bgcolor=<%=bodybgcolr%>>
<p> </p><FORM METHOD="POST" ACTION="enter.asp" TARGET="_blank">
<DIV ALIGN="center">
<TABLE BORDER="1" BORDERCOLORLIGHT="#cccccc" CELLSPACING="0" CELLPADDING="0" BORDERCOLORDARK="#FFFFFF" WIDTH="70%" class="p9" bgcolor="#C0C0C0">
<TR>
<TD WIDTH="750" align="center" class="p9" bgcolor="#3399FF" height="20"><font color="#FFFFFF">自建会议室</font></TD>
</TR>
<TR>
<TD width="100%" class="p9">
<p align="center">会议室名称<INPUT TYPE="text" NAME="roomname" SIZE="11" VALUE="会议室1" class="p9"></p>
</TD>
<INPUT TYPE="hidden" NAME="sf" VALUE="sf">
</TR>
<TR>
<TD width="100%" class="p9">
<p align="center">用户名称 <INPUT TYPE="text" NAME="name" SIZE="11" class="p9"></p>
</TD>
</TR>
<TR>
<TD WIDTH="750">
<p align="center"><INPUT TYPE="submit" VALUE="确定登陆" NAME="B1" class="colorbtn"><INPUT TYPE="reset" VALUE="全部重写" NAME="B2" class="colorbtn"></p>
</TD>
</TR>
</TABLE>
</DIV>
</FORM>
<FORM NAME="frmuEnter">
<p> </p>
<div align="center">
<center>
<TABLE BORDER="1" WIDTH="70%" BORDERCOLORLIGHT="#cccccc" CELLSPACING="0" CELLPADDING="0" BORDERCOLORDARK="#FFFFFF" class="p9" bgcolor="#C0C0C0" height="129">
<TR>
<TD WIDTH="100%" bgcolor="#3399FF" height="18" class="p9">
<p align="center"><font color="#FFFFFF">用户登录</font></p>
</TD>
</TR>
<TR>
<TD WIDTH="100%" class="p9" height="23">
<p align="center">用户名<INPUT TYPE="text" NAME="userid" SIZE="14" class="p9"></p>
</TD>
</TR>
<TR>
<TD WIDTH="100%" class="p9" height="24">
<p align="center">请直接输入自己名称，然后点击要进入的会议室。<A HREF="#"><BR>
</A></p>
</TD>
</TR>
<TR>
<TD class="p9" height="12">会议室列表</TD>
</TR>
<TR>
<TD class="p9" height="42">
<%
Dim i
Function OpenTextFile(PathInfo, FileIn)
On Error Resume Next
Dim FileObject, InStream
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile (PathInfo & "\" & FileIn, 1, False, False)
OpenTextFile = Instream.ReadALL
InStream.Close
Set InStream = Nothing
If Err Then
OpenTextFile = "错误号#" & Err.number & VbCrlf
OpenTextFile = OpenTextFile & Err.description
Err.Clear
End If
End Function
rooms = split( Replace(OpenTextFile(Server.MapPath("."), "roomname.asp"),VbCrlf,""),",")
dim x
x=0
For i = 0 to UBound(rooms)
x= x +1
If x =>4 Then
x=0
%><br>
<% else%>
<INPUT TYPE="radio" ONCLICK="uenter('<%=rooms(i)%>')"><%=rooms(i)%>
<%
End If
next%>
</TD>
</TR>
</TABLE>
</center>
</div>
</FORM>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -