傳圣(測試版)說明
本軟件適用于裝有IP/TCP協議的電腦.
主要功能:電腦間傳送大型文件.(如電影等)
主要特點:
1.采用了多線程技術,速度明顯高于同類軟件.
2.支持多文件同時傳送.
3.支持段點繼傳,也就是說文件可分N次傳送.
4.分服務端和客戶端,服務器支持多客戶.
5.在傳送過程中可實實對話,有聊天功能.
6.為了提高效率,本軟件做得短小精悍,兩文件總共只有100K,直截運行,不用安裝.
7.麻雀雖小,但五臟俱全,功能多,操作方便.
使用方法:
在服務端加入要傳文件,客戶端輸入服務端IP地址(服務端運行后會顯示),點擊連接,即會顯示服務端文件,雙擊即可下載!
現在是測試版,歡迎多提意義.
注意:
文件下載后自己動存在客房端軟件的目錄下!!
zmpapaya@hotmail.com
http://h2osky.126.com
趙明
2002.8.21
標簽：
TCP
傳送
軟件
電腦
上傳時間：
2017-01-02
上傳用戶：LIKE
asp實現限制一個ip只能訪問一次的方法
<%
'/////////////////////////////////////////////////////
'// //
'//作用：一個IP地址只允許訪問本頁一次 //
'//引用：<!-- #include file="Check_Ip.asp" --> //
'// //
'/////////////////////////////////////////////////////
'Response.Charset = 936 '設置輸出編碼為簡體中文
'Response.Buffer = false '關閉緩沖區
Dim Fso,ts,IpList,Cfs
'設置Cookies函數
Function SetCookie()
Response.Cookies("IsBrow") = "Brow"
Response.Cookies("IsBrow").Expires = Date+365
End Function
'記錄IP地址函數
Function WriteIp(FileName, IpAddress)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true)
ts.WriteLine IpAddress
ts.Close
Set ts = Nothing
Set Fso = Nothing
End Function
'讀取IP地址函數
Function ReadIpList(FileName)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FileExists(Server.MapPath(FileName)) Then
CreateFile("Iplist.txt")
Exit Function
End If
Set ts = Fso.OpenTextFile(Server.MapPath(FileName))
Iplist = ts.ReadAll
ts.Close
Set ts = Nothing
Set Fso = Nothing
ReadIpList = Iplist
End Function
'創建文件函數
Function CreateFile(FileName)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName))
Cfs.Close
Set Cfs = Nothing
Set Fso = Nothing
End Function
'關閉當前IE窗口函數(注:IE6下通過,其他瀏覽器未測試)
Function CloseWindow()
'Response.Write "<script>window.location='javascript:window.opener=null;window.close();'</script>"
Response.Redirect "http://www.baidu.com"
End Function
Ip = Request.ServerVariables("REMOTE_ADDR") '獲取瀏覽者IP地址
Cookie = Request.Cookies("IsBrow") '獲取當前Cookies
'Response.Write Cookie
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then
Response.Write "本站不允許使用代理訪問"
Response.End()
Else
If Cookie = "Brow" Then
CloseWindow()
Else
If Instr(ReadIpList("Iplist.txt"),Ip) <>0 Then
CloseWindow()
Else
WriteIp "Iplist.txt" , Ip
End If
SetCookie()
End If
End If
%>
標簽：
asp
訪問
上傳時間：
2016-07-14
上傳用戶：helei0915
