台灣最大程式設計社群網站
線上人數
909
 
會員總數:246138
討論主題:189722
歡迎您免費加入會員
討論區列表 >> ASP >> [ASP]IP位址如何讓他也可以顯示名字
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ASP]IP位址如何讓他也可以顯示名字
價值 : 0 QP  點閱數:1926 回應數:3
樓主

張世昌
初學者
8 3
24 2
發送站內信

線上飛鴿只能顯示IP位址如何讓他也可以顯示名字,幫幫忙啦?
搜尋相關Tags的文章: [ 顯示 ] , [ 顯示 ] , [ ip ] ,
本篇文章發表於2002-03-25 12:23
1樓
回應

Richard
檢舉此回應
可以設定請user登錄時,留下稱呼,用cookie保留住,秀在asp上
本篇文章回覆於2002-03-25 12:40
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

張世昌
檢舉此回應
語法是??????
列一下參考一下
本篇文章回覆於2002-03-25 12:42
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

張世昌
檢舉此回應
他語法是這樣........
<%
If Application("AdminItem") = "" Then
   Application("AdminItem") = "站長"
End IF
RefreshTime = 20        '每幾秒更新一次

Dim Temp()

NewUser = Request.ServerVariables("REMOTE_HOST")
zzz = NewUser & "show"
YYY = NewUser & "IP"
MsgUser = replace(zzz , "." , "_")
IPUser = replace(YYY , "." , "_")
Application.Lock

If Application(NewUser & "LastAccess") = Empty Then
  If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
  Redim Temp(Application("TotalUsers") + 1)
  No = 0
  For I = 0 To Application("TotalUsers") - 1
    Item = Application("OnLineUser")(I)
    If Item <> Session("UserName") And Item <> NewUser Then
      Temp(No) = Item
      No = No + 1
    Else
      Application(Item & "LastAccess") = Empty
    End If
  Next
  Session("UserName") = NewUser
  Temp(No) = Session("UserName")
  Application("TotalUsers") = No + 1
  Redim Preserve Temp(Application("TotalUsers"))
  Application("OnLineUser") = Temp
End If

Application(Session("UserName") & "LastAccess") = Timer

If RefreshTime < 10 Then RefreshTime = 10
IdleTime = RefreshTime * 3

ReDim Temp(Application("TotalUsers"))
No = 0
For I = 0 To Application("TotalUsers") - 1
  Item = Application("OnLineUser")(I)
  If Abs(Application(Item & "LastAccess") - Timer) < IdleTime Then
    Temp(No) = Item
    No = No + 1
  Else
    Application(Item & "LastAccess") = Empty
    Application(MsgUser) = Empty
  End If
Next

If No <> Application("TotalUsers") Then
  Redim Preserve Temp(No)
  Application("OnLineUser") = Temp
  Application("TotalUsers") = No
End If

OnLineUser = Application("OnLineUser")
TotalUsers = Application("TotalUsers")

Application.UnLock

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<meta HTTP-EQUIV="Refresh" CONTENT="<%=RefreshTime%>, URL=<%=Request.ServerVariables("PATH_INFO")%>?User=<%=Request("User")%>">
<script>
function OpenChat()
{
  window.open('callinmsg.asp?ToWhom=' + ToWhom.options[ToWhom.selectedIndex].value , "Chat" , "top=0,left=280,toolbar=0 ,location=0 ,directories=0 ,status=0 ,menubar=0 ,resizable=0, scrollbars=0,width=460,height=120")
}
</script>
<style type="text/css">
<!--
  a            { font-style: 細明體; text-decoration: none }
a:hover      { text-decoration: underline }
a.menu       { color: #FFFFFF; font-size: 12pt }
a.menu:hover { color: #0000FF; font-size: 12pt; background-color: #FFFFFF; 
               background-repeat: repeat; background-attachment: scroll; 
               background-position: 0% 50% }
a.dept       { color: #8B008B; font-size: 10pt }
a.dept:hover { color: #FF0000; font-size: 10pt }
.date        { color="#0000f0": 9pt }
.term        { color: #0000FF; font-size: 9pt }
-->
</style>

<base target="main">
</head>
<body bgcolor=#FF0000>
      <table border="0" width="100%" cellspacing="0" cellpadding="0"
      bgcolor="#FF0000">
        <tr>
          <td width="10%" align="center">
<center>
<select name="ToWhom" size=1 style="Font-Size:9pt;Font-Color=#808080" onChange="javascript:OpenChat()";>
  <option Value="" selected>站上人數 <%=TotalUsers%></option>
  <% For I = 0 To TotalUsers - 1 %>
  <% If OnLineUser(I) = Application("AdminIP") Then %>
  <option value="<%=OnLineUser(I)%>"><%=Application("AdminItem")%></option>
  <% Else %>
  <option value="<%=OnLineUser(I)%>"><%=OnLineUser(I)%></option>
  <% End If %>
  <% Next %>
</select>
</center>
          </td>
        </tr>
      </table>
<center>
  
</center> 
<%  
if Application(MsgUser) <> "" then  
   Application("showmsg") = Application(MsgUser) 
   Session("ReplyIP") = Application(IPUser) 
%> 
<script language=javascript>  
        popup = window.open('showmsg.asp', 'popupnav', 'width=460,height=120,resizable=0,scrollbars=no,menubar=0,topmargin=0,leftmargin=0,marginwidth=0,marginhight=0');  
</script>  
<%  
  Application(MsgUser) = Empty  
 end if %>  
</body>  
</html>  
本篇文章回覆於2002-03-25 12:45
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.