📄 meeting.asp
字号:
<HTML>
<HEAD>
<TITLE>电子会议!</TITLE>
<link rel="stylesheet" href="../css/css.css" type="text/css">
<style>
<!--
body {font-family:verdana,arial; font-size:14px; }
td {font-family:verdana,arial; font-size:14px; }
input.text {border:1px solid black; font-size:14px; background:#fcf0fc}
td.little {font-size:12px}
-->
</style>
</HEAD>
<BODY>
<CENTER>
<br><br>
<%
const ItemNum=20
nShowIP=Request.Form("ShowIp")
strName=Request.Form("Name")
strComment=Request.Form("comment")
strMeeting=Request.Form("Meeting")
strPassword=Request.Form("Password")
strDate=MID(Now(),1,8)
strMeetingID = strMeeting & strPassword & strDate & "Meet"
strTotalCount = strMeeting & strPassword & strDate & "Count"
strIPID = strMeeting & strPassword & strDate & "ID"
strIP = "<OPTION>" & Request.ServerVariables("REMOTE_ADDR") & "-" & CStr(Now()& "<BR>")
Application.Lock()
Application(strIPID)= Application(strIPID)& strIP
Application.UnLock()
If Len(strComment) > 0 Then
if strName="" then strName="NONAME"
Application.Lock()
If Application(strTotalCount) = 0 Then
Application(strMeetingID) = "<BR><font color=red><b>" & strName & ": </b></font>" & strComment
Application(strTotalCount) = ItemNum
Application(strIPID) = strIP
Else
Application(strTotalCount) = Application(strTotalCount) -1
Application(strMeetingID) = Application(strMeetingID) & "<BR><font color=red><b>" & strName & ": </b></font>" & strComment
End if
Application.UnLock()
End if
%>
<table width=98% class="borderon">
<tr valign=top>
<td width=232 valign="top">
<FORM ACTION="" METHOD = POST>
<br>
<center>
<table width=100%>
<tr height=35>
<td width=64 align="right">
会议名:
</td>
<td width=122>
<INPUT TYPE = TEXT size=16 name = Meeting value = <%=strMeeting%>></td>
<td width=26 align="center"><img src="help.gif" width=15 height=12 alt="会议的名称或主题">
</td>
</tr>
<tr height=35>
<td align="right" width="64">
密 码:
</td>
<td width="122">
<INPUT TYPE = password size=16 name = Password value = <%=strPassword%>></td><td width=26 align="center"><img src="help.gif" width=15 height=12 alt="设定会议的密码">
</td>
</tr>
<tr height=35>
<td align="right" width="64">
姓 名:
</td>
<td width="122">
<input size=16 name=name value="<% = strName %>"></td><td width=26 align="center"><img src="help.gif" width=15 height=12 alt="你的性名">
</td>
</tr>
<tr height=35>
<td class=little align="right" width="64">
检查IP:
</td>
<td width="122">
<INPUT TYPE=RADIO NAME="SHOWIP" value="1" class=white> </td><td width=26 align="center"><img src="help.gif" width=15 height=12 alt="Show the ip address of the conferrees">
</td>
</tr>
</table>
</center>
<br>
<center>
<table width=100%>
<tr>
<td>
<p align="center">
<textarea name="comment" value="" rows=4 cols=25 style="border:1px solid black ;"></textarea><br>
<br>
<input type="submit" value="送 出 信 息" style="width:200">
</p>
</td>
</tr>
</table>
</center>
<br>
</FORM><br>
</td>
<td width="623">
<table border="0" cellpadding="7" cellspacing="0" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="6" cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<%
If nShowIP <> 1 Then
Response.Write("")
Application.Lock()
Response.Write("<Strong>会议内容区 ")
Response.Write(Application(strTotalCount))
Response.Write("</Strong>")
Response.Write(Application(strMeetingID))
Application.UnLock()
Else
If len(strMeeting)>0 Then
Application.Lock()
Response.Write("<Strong>Comments Clears at ")
Response.Write(Application(strTotalCount))
Response.Write("</Strong>")
Response.Write("<SELECT>")
Response.Write(Application(strIPID))
Response.Write("</SELECT>")
Response.Write(Application(strMeetingID))
Application.UnLock()
Else
Application.Lock()
Response.Write("")
Response.Write("<Strong>Comments Clears at ")
Response.Write(Application(strTotalCount))
Response.Write("</Strong><br>")
Response.Write("<font style=font-size:12px color=red>Show IP addresses only")
Response.Write("works for private meetings that have")
Response.Write("been given a name.</font>")
Response.Write("<br>")
Response.Write(Application(strMeetingID))
Application.UnLock()
End if
End if
%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -