📄 calltwo.asp
字号:
<%
'读取传送信息的时间
strHour = Hour(Time())
If Len(strHour) = 1 then strHour = "0" & strHour
strMinute = Minute(Time())
If Len(strMinute) = 1 then strMinute="0" & strMinute
strTime = "" & strHour & "时" & strMinute & "分"
'读取信息内容
MyMsg = Request("InputMsg")
If MyMsg <> "" Then
Receiver = Request("Receiver")
UserMsg = Receiver & "Msg"
Application.Lock
' Application(UserMsg) = "[" & Receiver & "]" & Session("rName") & "于" & strTime & "传送信息给您：<BR>" & MyMsg
Application(UserMsg) = " <a href=onemam.asp?bname=" & Session("rName") & " target=_blank>" & Session("rName") & "</a>于" & strTime & "传送信息给您：<BR> " & MyMsg
' target="_blank"
Application.Unlock
Response.Redirect "Sendmsg.asp"
END IF
%>
<HTML><HEAD><TITLE>在线传讯</TITLE>
<style type="text/css">
<!--
.link1 { color: #FFFFFF}
.link2 { color: #FF0000}
.link3 { color: #006600}
.big1 { font-size: 14px; text-align: justify; vertical-align: 1%; line-height: 18px}
.title { font-size: 14px; background-color: #CCFFCC; font-weight: bold}
.botton { color: #000066; background-color: #FFCC99; font-size: 12px; cursor: hand;}
-->
</style>
<link rel="stylesheet" href="../3508.css">
</HEAD>
<BODY bgcolor="#ffffdf">
<FORM ACTION="Calltwo.asp">
<div align="center">
<table width="100%" border="0" cellspacing="0">
<tr>
<td>
<div align="left">收讯者：
<select name="Receiver">
<% For I = 0 To (Application("TotalUsers") - 1) %>
<option value="<%= Application("OnlineUser")(I) %>"> <%= Application("OnLineUser")(I) %></option>
<% Next %>
</select>
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<table width="100%" border="0" cellspacing="0" bgcolor="#acc4b0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td>
<div align="center">
<textarea name="InputMsg" cols="50" rows="4"></textarea>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td>
<div align="right">
<input class="botton" type="SUBMIT" value="传送信息" name="SUBMIT">
<input class="botton" type="RESET" value="重新输入" name="RESET">
</div>
</td>
</tr>
</table>
</div>
<BR>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -