📄 sysop.asp
字号:
<!--#Include file="config.asp" -->
<%
Response.Expires =0
Response.ExpiresAbsolute=time()
%>
<%
if session("upower")<2 then
%>
<html>
<body bgcolor=<%=bodybgcolor%> style="font-family:宋体;font-size:9pt" topmargin="0" leftmargin="0">
<p align=center><br><br><br><br><br><br>
<table class=p9 border="1" width="60%" bgcolor="#C0C0C0" cellspacing="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" >
<tr>
<td width="100%" bgcolor="#3399FF" height="20">
<font color=#FFFFFF> 提示信息</font>
<td>
</tr>
<tr>
<td width="100%" align=center><br><br>
<font color=red>
对不起,您不是管理员!
<br><br>
<input type="button" onclick="javascript:window.history.back()" value=" 返 回 " id=button1 name=button1 class="colorbtn">
<br><br>
</font>
</td>
</tr>
</table>
</p>
</body>
</html>
<%
Response.End
end if
call Croom
%>
<!--
'设置密码和帐号
If Request("name1")="" or Request("password1")="" then
Response.Write "身份无法确认，<a href=""login.asp"">返回！</a>"
Response.End
Else
Response.Write "验证身份...<br>"
If Request("name1")=username and Request("password1")=password then
Response.Write "ok..通过验证！"
sysop = True
Session("sysop")= sysop
call Croom
Else
Response.Write "Error!无法通过验证，请检查自己的身份！"
sysop = False
Session("sysop") = sysop
response.End
End If
Response.End
end if
-->
<%
Sub Croom()
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Language" CONTENT="zh-cn">
<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">
<link href="../ceocss.css" rel="stylesheet">
<TITLE>系统管理</TITLE>
<STYLE>
<!--
body { font-size: 9pt }
-->
</STYLE>
</HEAD>
<BODY bgcolor="<%=bodybgcolor%>">
<table class=p9 border="1" width="95%" bgcolor="#f5f5f5" cellspacing="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" >
<tr>
<td bgcolor="#3399FF" height="20" align="center">
<font color="#FFFFFF">会议室设置</font>
</td>
</tr>
<tr>
<td>
<P>请输入要增加的会议室名称，每一个会议室之间请使用 ,
逗号分割开来，之间不存在空格，头和尾不存在逗号，请不要使用中文的逗号。<BR>
示例：会议室一,会议室二</P>
<P><FONT COLOR="#FF0000">注意：如果不照规定格式输入，将发生系统错误！！</FONT></P>
<td>
</tr>
<tr>
<td>
<FORM METHOD="POST" ACTION="sysop1.asp">
<input type=hidden name='action' value='sysop'>
<P align=center>
<INPUT TYPE="text" NAME="cr" SIZE="100" STYLE="WIDHT:100% " VALUE="<%=OpenTextFile(Server.MapPath("."), "roomname.asp")%>" class=p9><BR>
<INPUT TYPE="submit" VALUE=" 提交 " NAME="B1" class="colorbtn">
<INPUT TYPE="button" VALUE=" 刷新 " NAME="refresh" class="colorbtn" onclick="javascript:window.location.reload()">
<INPUT TYPE="reset" VALUE=" 重写 " NAME="B2" class="colorbtn">
<INPUT TYPE="button" VALUE=" 返回 " NAME="back" class="colorbtn" onclick="javascript:window.history.back()">
</P>
</FORM>
</td>
</tr>
</table>
</BODY>
</HTML>
<%
End Sub
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -