⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 calling.asp

📁 88852大型门户网V4.5免费完整版,可以做一个综合网站。
💻 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>&nbsp;&nbsp;      " & 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="Calling.asp">
  <div align="center"> 
    <table width="100%" border="0" cellspacing="0">
      <tr>
        <td>
          <div align="center">发出邀请:</div>
        </td>
      </tr>
    </table>
    <table width="100%" border="0">
      <tr> 
        <td colspan="2"> 
          <div align="right"></div>
          <div align="center">
            <select name="Receiver" class="botton">

              <% For I = 0 To (Application("TotalUsers") - 1) %> 
              <option value="<%= Application("OnlineUser")(I) %>"> <%= Application("OnLineUser")(I) %></option>
              <% Next %> 
            </select>
          </div>
        </td>
      </tr>
      <tr> 
        <td colspan="2"> 
          <div align="center"> 
            <input  class="buttonface" type="TEXT" name="InputMsg" size="20">
          </div>
        </td>
      </tr>
    </table>
    <input  class="botton"  type="SUBMIT" value="传送" name="SUBMIT">
    <input  class="botton" type="RESET" value="清除" name="RESET">
   
  </div>
  </FORM>          
  </BODY>          
</HTML>          
       
       
     
     

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -