1、急：ASP 獲取用戶的ip埠
<%
response.write Request.ServerVariables("REMOTE_ADDR")'獲取IP 地址
response.write "<br>"
response.write Request.ServerVariables("REMOTE_PORT")'獲取埠號
%>
暈,我想樓主是不是沒弄清楚HTTP協議?HTTP協議是一種無狀態協專議,也就是說這次瀏屬覽時IE打開的是這個埠,但網頁一旦下載,鏈接即被關閉,即下次再打開時埠也就變了,要區分區域網里的每台機子可以使用Session,因為SessionID因是保存在COOKIE里的,IIS為每個瀏覽者生成的SessionID都不一樣,所以它是唯一的，可以用於區分每個不同的用戶。
Session.SessionID返回當前瀏覽者的SessionID，可以設置COOKIE，把COOKIE的有效期設置一年，只要客戶端用戶不清除COOKIE，那麼COOKIE就一直有效，對於IP，目前絕大多數都是動態IP，所以要長期用它來驗證客戶端身份不現實，也很難實現，而大多數都是用COOKIE來完成，自己生成一個唯一的編號，然後保存到客戶Cookie中
2、asp如何控制外網對伺服器埠的訪問
我只對資料庫存在的IP段授權訪問3936這個埠,是什麼意思？
有3種方法
1.通過路由來設定
2.通過IIS來設定，IIS安全里有設置IP訪問
3.通過ASP代碼來實現。用訪問的IP段來實現控制IP訪問
方法：首先在資料庫建立IP段表fangwen_ip。。設2個文本欄位 一個是起始IP fangwen_starip，另個是結束IP fangwen_stopip
之後在index.asp放入如下代碼，通過後轉入登錄的頁面
<%
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
end if
arr=split(userip,".")
IPNUMS=int(arr(0))*16777216+int(arr(1))*65536+int(arr(2))*256+int(arr(3))-1
ipsql="select * from fangwen_ip"
set iprs=conn.execute(ipsql)
if not iprs.eof and not iprs.bof then
do while not iprs.eof
starip=iprs("fangwen_starip")
stopip=iprs("fangwen_stopip")
sip=split(starip,".")
ks_ip=int(sip(0))*16777216+int(sip(1))*65536+int(sip(2))*256+int(sip(3))-1
eip=split(stopip,".")
js_ip=int(eip(0))*16777216+int(eip(1))*65536+int(eip(2))*256+int(eip(3))-1
if IPNUMS>ks_ip and IPNUMS<js_ip then
response.redirect "進入登陸頁，自己設"
else
response.write "<font color=red size=4><b>對不起，您不該來這里，請走吧！</b></font>"
end if
iprs.movenext
loop
else
response.redirect "進入登陸頁，自己設"
end if
iprs.close
set iprs=nothing
%>
以上是我寫的，僅供參考。ASP代碼已測試，可以用
3、asp檢測埠狀態
用ASP久了，就會感到有個很郁悶的地方：ASP不像其他腳本語言那樣能訪問Socket。所以或許你用過PHP、Perl等實現的埠掃描器，惟獨沒見過ASP的。嘿嘿，所以今天本文的目的就是利用「曲線救國」的策略實現ASP埠掃描器。Only for enjoy！
所謂曲線，呵呵，當然是利用其他的訪問網路的組件，那麼ASP有哪些組件可以訪問網路呢？
第一個很容易想到，對，就是XMLHTTP。這個組件是以HTTP協議訪問網路，當然可以用作埠掃描。但存在一個很難解決的問題：如果某埠打開且不是HTTP埠，那麼XMLHTTP將會一直掛起，執著的等待返回HTTP數據。掃描就不能進行下去了。只好排除這個「曲線」了。
第二個組件也就是我們要利用的，嘿嘿，很常見哦，伺服器上都有的，那就是ADODB.Connection。這個組件就是用於進行資料庫連接的。當資料庫是MSSQL的時候，Web Server就會訪問SQL Server的1433埠……對，就是這里了，只要我們改動埠號，再根據返回的錯誤描述就可以判斷該埠的狀態。
下面是一個普通的連接MSSQL的字元串例子：
Provider=SQLOLEDB.1;Data Source=127.0.0.1;User ID=sa;Password=;
默認情況下埠是1433，下面是自己定義埠為1444的例子：
Provider=SQLOLEDB.1;Data Source=127.0.0.1,1444;User ID=sa;Password=;
根據埠的狀態將得到幾種結果：
埠開放且非SQL埠 ·[ConnectionOpen (PreLoginHandshake()).]一般性網路錯誤。請檢查網路文檔。
埠開放且為SQL埠 ·不返回錯誤（用戶名密碼正確）或者用戶』sa』登陸失敗（用戶名密碼不正確）
埠關閉 ·[ConnectionOpen (Connect()).]SQL Server 不存在或拒絕訪問
呵呵，現在就好辦了，只需要判斷一下Error.Description就搞定。為了提高掃描速度，需要把Connection的ConnectionTimeout屬性設為1，廢話了，呵呵，具體看代碼就是。
經過測試，lake2版ASP埠掃描器速度一般，就相當於一個單線程的掃描器。但是由於其腳本特性，在webshell上或許比其他類型的掃描器有更高的價值哦^_^
4、小旋風asp伺服器的埠號在哪改？
一般默認是80埠 1！不要改就好 啊！！
把路由器映射一下就好了1！！
5、如何用ASP獲取瀏覽器的名稱，版本號及伺服器的埠號
操作系統：
<%=Request.ServerVariables("OS")%>
伺服器名稱:
<%=Request.ServerVariables("SERVER_NAME")%>
伺服器IP：
<%=Request.ServerVariables("LOCAL_ADDR")%>
CPU數量:
<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>個
服務埠:
<%=Request.ServerVariables("SERVER_PORT")%>
Webserver及版本:
<%=Request.ServerVariables("SERVER_SOFTWARE")%>
腳本解釋引擎:
<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服務協議及版本:
<%=Request.ServerVariables("SERVER_PROTOCOL")%>
腳本超時時間:
<%=Server.ScriptTimeout%>秒
網站物理路徑:
<%=request.ServerVariables("APPL_PHYSICAL_PATH")%>
<%
Dim BrowseMsg,BrowseVersion,SystemVersion
BrowseMsg=Request.ServerVariables("HTTP_USER_AGENT")
'+++++++++++一個基本判別操作系統的函數+++++++++++
Function SystemCheck()
if inStr(BrowseMsg,"Windows 98") then
SystemCheck="Windows 98"
else if inStr(BrowseMsg,"Windows NT 4.0") then
SystemCheck="Windows NT 4.0"
else if inStr(BrowseMsg,"Windows NT 5.0") then
SystemCheck="Windows NT 2000"
else
SystemCheck="未知類型"
end if
end if
end if
end Function
'由於時間的原因我沒有寫判定win95和windows xp的語句，感興趣的網友可以
'自行添加：)
'+++++++++++結束+++++++++++
if inStr(BrowseMsg,"MSIE") then
SystemVersion=CInt(Mid(BrowseMsg,inStr(BrowseMsg,"MSIE")+5,1))
response.write "您的瀏覽器的版本是 IE"&BrowseVersion&"<BR>"
response.write "您的操作系統是 "&SystemCheck()
end if
%>
6、黑風asp伺服器怎麼解決80埠被佔用問題
在程序運行CMD中使用命令netstat -n -a -o 查看80埠被哪個PID程序所佔用，然後使專用windows任務管理器查看具體屬PID對應的具體程序。（任務管理器默認沒有顯示PID列，需在選擇列中列出)；一般80埠被把System進程所佔用，即為操作系統自帶的IIS的默認網站。可以在控制面板->所有程序中查看是否以安裝IIS，如果已安裝而不需要可以刪除，否是在默認網站上點擊右鍵，將默認的80段口修改為其它的，比如8080等；
7、如何在asp中實現指定伺服器IP埠檢測？
ip=request.serverVariables("remote_host")
8、試編寫一ASP頁面，實現在瀏覽器中顯示輸出接受請求的伺服器的IP地址、伺服器的埠號、當前網頁的真實物理
服務來器的IP地址：自<%=Request.ServerVariables("LOCAL_ADDR")%>
伺服器埠號：<%=Request.ServerVariables("SERVER_PORT")%>
當前網頁的真實物理地址：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%>
9、如何解決在asp.NET開發伺服器的埠號
用記錄本打開web項目文件 *.csproj 為xml文檔
找到節點：DevelopmentServerPort
修改他的值，重新打開項目調試即可