?? meeting.asp
字號:
<HTML>
<HEAD>
<TITLE>電子會議!</TITLE>
<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>
<CENTER>
<BODY BGCOLOR="#FFFFFF">
<br><br><br><br>
<!-- <A HREF="http://go.163.com/~yup">Yup Studie</A> -->
<%
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>" & strName & ": </font>" & strComment
Application(strTotalCount) = ItemNum
Application(strIPID) = strIP
Else
Application(strTotalCount) = Application(strTotalCount) -1
Application(strMeetingID) = Application(strMeetingID) & "<BR><font color=red>" & strName & ": </font>" & strComment
End if
Application.UnLock()
End if
%>
<table width=100%>
<tr valign=top>
<td width=350>
<FORM ACTION="" METHOD = POST>
<br>
<center>
<table width=320>
<tr height=35>
<td width=150>
<font color = "#800040"><Strong>會議名</Strong></font>
</td>
<td width=125>
<INPUT TYPE = TEXT class=text size=16 name = Meeting value = <%=strMeeting%>></td>
<td width=45><img src="help.gif" width=15 height=12 alt="會議的名稱或主題"><br>
</td>
</tr>
<tr height=35>
<td>
<font color = "#800040"><Strong>密 碼</Strong></font>
</td>
<td>
<INPUT TYPE = password class=text size=16 name = Password value = <%=strPassword%>></td><td width=20><img src="help.gif" width=15 height=12 alt="設(shè)定會議的密碼"><br>
</td>
</tr>
<tr height=35>
<td>
<font color="#800040"><Strong>姓 名</Strong>
</td>
<td>
<input size=16 name=name class=text value="<% = strName %>"></td><td width=20><img src="help.gif" width=15 height=12 alt="你的性名"><br>
</td>
</tr>
<tr height=35>
<td class=little>
<font color="#800040">檢查IP地址 </font>
</td>
<td>
<INPUT TYPE=RADIO NAME="SHOWIP" value="1" class=white> <img src="help.gif" width=15 height=12 alt="Show the ip address of the conferrees"></td><td width=20><br>
</td>
</tr>
</table>
</center>
<hr size=1px width=300 align=left>
<br>
<table width=300>
<tr>
<td width=10>
</td>
<td>
<textarea name="comment" value="" rows=4 cols=36 style="border:1px solid black ;"></textarea><br>
<input type="submit" value="送出信息" style="border:1px solid white; width:272">
</td>
</tr>
</table>
<br>
</FORM><br><br>
</td>
<TD width=14><IMG alt="" border=0 height=1 src="spacer.gif" width=14></TD><TD bgColor=#003399 vAlign=top width=1><IMG alt="" border=0 height=7 src="spacer.gif" width=1></TD><TD width=18><IMG alt="" border=0 height=1 src="spacer.gif" width=18></TD>
<td>
<%
If nShowIP <> 1 Then
Response.Write("")
Application.Lock()
Response.Write("<Strong>會議內(nèi)容區(qū) ")
Response.Write(Application(strTotalCount))
Response.Write("</Strong><br><br>")
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><br>")
Response.Write("<SELECT>")
Response.Write(Application(strIPID))
Response.Write("</SELECT><BR>")
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>
</CENTER>
</BODY>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -