❶ 想在公司內部的區域網弄個可以看pdf格式的圖書的asp圖書館網站，求全站源碼
如果您希望在公司內部區域網搭建一個可以瀏覽PDF格式圖書的ASP圖書館網站，可以考慮從一些開源資源中尋找靈感。這類網站通常包括用戶注冊、登錄、圖書瀏覽和下載等功能。在選擇開源項目時，建議查看項目的活躍度、代碼質量以及社區支持。
您可以在網路上找到一些開源的ASP圖書館系統，它們能夠滿足您的需求。例如，您可以訪問http://down.chinaz.com/query.asp?search_code=0&q=%CD%BC%CA%E9進行查詢，找到一些相關的開源項目。這些項目通常會提供詳細的安裝和配置指南，幫助您快速搭建起一個功能完備的ASP圖書館網站。
此外，您還可以考慮使用一些專門為PDF管理設計的開源軟體，如PDF.js或PDFObject等。這些工具可以幫助您更方便地展示和管理PDF文件，而無需從頭開始編寫代碼。不過，如果您希望擁有一個完整的圖書館系統，可能需要結合多個開源項目進行開發。
在搭建過程中，確保您的伺服器環境支持ASP.NET，並且已經安裝了必要的依賴庫。同時，為了保證網站的穩定性和安全性，建議定期更新代碼和依賴庫，並進行安全性檢查。
如果您在搭建過程中遇到任何問題，可以訪問開源項目的GitHub頁面或相關論壇尋求幫助。許多開源項目都有活躍的社區，您可以從中獲得寶貴的建議和支持。
最後，記得在公司內部區域網中正確配置防火牆和網路設置，以確保網站的安全性和穩定性。希望您的項目能夠順利進行，為公司員工提供一個便捷的電子圖書閱讀平台。
❷ 易語言區域網鬥地主源碼怎麼用！
用易語言的 客戶和 伺服器 發送文本信息 比如說發送「紅桃2:方片3」 然後接收端檢測發過來的一段文本 然後用分割文本 按照":"這個符號分割然後判斷 很麻煩的。。
❸ 怎麼樣製作區域網網站求高手說出具體教程！
1.找一張Windows XP安裝盤.放進光碟機
然後點控制面板-添加或刪除程序-添加/刪除windows組件,把IIS那項前面的勾點上,並且進入其子項檢查web站點點那項是否選中,沒選就選上,然後點下一步直至完成就行了.
2安裝好後就是配置web站點,網上可以找到很多這方面的教程,你搜搜就可以了.
3下載你需要的網站的源碼然後修改成你要的功能和樣子
4，根據第2步，選擇到你存放網站的路徑下，設置網站首頁
5，別人地址欄輸入你的ip就可以打開網站了，如果要想讓大家輸入區域網網址，那你還需要搭建dns伺服器，到時候就可以輸入一個域名來打開網站了。
❹ 區域網在線掃描 IP,MAC java源代碼
1.得到區域網網段，可由自己機器的IP來確定 （也可以手動獲取主機IP-CMD-ipconfig /all）
2.根據IP類型，一次遍歷區域網內IP地址
JAVA類，編譯之後直接運行便可以得到區域網內所有IP,具體怎樣使用你自己編寫相應代碼調用便可
代碼如下：：
package bean;
import java.io.*;
import java.util.*;
public class Ip{
static public HashMap ping; //ping 後的結果集
public HashMap getPing（）{ //用來得到ping後的結果集
return ping;
}
//當前線程的數量， 防止過多線程摧毀電腦
static int threadCount = 0;
public Ip（） {
ping = new HashMap（）；
}
public void Ping（String ip） throws Exception{
//最多30個線程
while（threadCount>30）
Thread.sleep（50）；
threadCount +=1;
PingIp p = new PingIp（ip）；
p.start（）；
}
public void PingAll（） throws Exception{
//首先得到本機的IP，得到網段
InetAddress host = InetAddress.getLocalHost（）；
String hostAddress = host.getHostAddress（）；
int k=0;
k=hostAddress.lastIndexOf（「.」）；
String ss = hostAddress.substring（0,k+1）；
for（int i=1;i <=255;i++）{ //對所有區域網Ip
String iip=ss+i;
Ping（iip）；
}
//等著所有Ping結束
while（threadCount>0）
Thread.sleep（50）；
}
public static void main（String[] args） throws Exception{
Ip ip= new Ip（）；
ip.PingAll（）；
java.util.Set entries = ping.entrySet（）；
Iterator iter=entries.iterator（）；
String k;
while（iter.hasNext（））{
Map.Entry entry=（Map.Entry）iter.next（）；
String key=（String）entry.getKey（）；
String value=（String）entry.getValue（）；
if（value.equals（「true」））
System.out.println（key+「-->」+value）；
}
}
class PingIp extends Thread{
public String ip; // IP
public PingIp（String ip）{
this.ip=ip;
}
public void run（）{
try{
Process p= Runtime.getRuntime（）。exec （「ping 」+ip+ 「 -w 300 -n 1」）；
InputStreamReader ir = new InputStreamReader（p.getInputStream（））；
LineNumberReader input = new LineNumberReader （ir）；
//讀取結果行
for （int i=1 ; i <7; i++）
input.readLine（）；
String line= input.readLine（）；
if （line.length（） <17 || line.substring（8,17）。equals（「timed out」））
ping.put（ip,「false」）；
else
ping.put（ip,「true」）；
//線程結束
threadCount -= 1;
}catch （IOException e）{}
}
}
}
❺ VB編寫的區域網聊天工具源代碼
用VB做聊天程序的方法
---- 所謂"聊天"是指兩個程序能夠發送數據給對方。這個程序涉及到數據通訊的知識，彷彿很復雜，不過，由於VB給我們提供了一個Winsock控制項，問題就變得很簡單了。
---- 先編寫"聊天（主機）"程序。在窗體里添加Winsock控制項，並設置其Protocol屬性為1－SckUDPProtocol，其他屬性為預設值。接著添加兩個標簽和兩個文本框，設置兩個標簽的標題屬性分別為"接收窗"和"發送窗"；兩個文本框的標題屬性為空。最後編寫代碼：
---- 1."聊天（主機）"
Private Sub Form-Load()
′設置網路地址
Winsock1.LocalPort=1024
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1999
End Sub
Private Sub Text1-Change()
′發送用戶輸入的內容
Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1-DataArrival
(Byval bytesTotal As Long)
Dim rec As String
′接收對方數據並在文本框內顯示
Winsock1.GetData rec, vb String
Text2.Text=rec
End Sub
---- 2."聊天（副機）"
Private Sub Form_Load()
′設置網路地址
Winsock1.LocalPort=1999
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1024
---- 其他部分程序與（主機）相同。最後將兩個程序存檔，並編譯成執行（.Exe）文件。現在就可以使用這個程序進行對話了。
---- 七.文本框中文本的某一特定字元或字元串同時高亮顯示的方法
---- 由於普通TextBox控制項不支持不連續字元串的同時高亮顯示，所以我們選擇RichTextBox控制項。單擊工程（Project）選單項，在彈出的下拉選單中單擊組件（Components）選單項，從彈出的對話框中選擇Microsoft Rich Textbox Control 5.0復選框，確定載入RichTextBox控制項。
---- 新建（New）一個工程，在窗體（Form）上添加一個RichTextBox控制項和兩個Command（按鈕）控制項，都採用系統默認的Name屬性值；設置RichTextBox的Text屬性值為空，Command1和Command2的Caption屬性值分別設為"輸入文本"和"選擇字元串"。最後，添加如下VB代碼：
Private Sub Command1-Click()
Dim str As String
Dim Text As String
str=〃輸入文本〃
Text=InputBox(str)
RichTextBox1.Text=Text
End Sub
Private Sub Command2-Click()
Dim str As String
Dim Text As String
Dim Position As Integer
Dim Lenth As Integer
str=〃輸入要高亮顯示的字元串〃
Text=InputBox(str)
If Text 〈〉 〃〃 Then
Position=InStr(RichTextBox1.Text, Text)－1
Lenth=Len(Text)
RichTextBox1.SelStart=Position
RichTextBox1.SelLength=Lenth
RichTextBox1.SelColor=RGB(255,0,0)
Do While InStr(Position＋Lenth＋
1, RichTextBox1.Text, Text) 〈〉 0
Position=InStr(Position＋Lenth＋
1, RichTextBox1.Text, Text)－1
RichTextBox1.SelStart=Position
RichTextBox1.SelLength=Lenth
RichTextBox1.SelColor=RGB(255,0,0)
Loop
End If
End Sub
---- 按F5執行程序，單擊"輸入文本"按鈕，在彈出的對話框中輸入一些文本，確定後，剛剛輸入的文本將顯示在RichTextBox中；再單擊"選擇字元串"按鈕，在彈出的對話框中輸入你希望高亮顯示的字元串，確定後，RichTextBox中相應的字元串將以紅色高亮顯示。
---- 八.編程實現Windows 95/98操作系統熱啟動的方法
---- 要利用程序實現系統的重新啟動，可以在你的程序中調用API函數來實現。建一個子函數：（以VB為例）
Declare Function SystemParametersInfo Lib 〃
user32〃 Alias -
〃SystemParametersInfo〃 (ByVal uAction As Long,
ByVal uParam As Long,
ByVal lpvParam As Any, ByVal
fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X=SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Call DisableCtrlAltDelete(true) ′禁止熱啟
Call DisableCtrlAltDelete(false) ′允許熱啟
---- 九.在Windows 95/ 98啟動後自動啟動程序的方法
---- 我們都知道在Windows 95/98的"開始"→"程序"選單下有一"啟動"選單項，當每次啟動Windows 95或Windows 98時，系統都會自動啟動放在"啟動"選單欄里的可執行程序。
---- 但目前有好多軟體，像解霸五、ICQ，以及大部分實時偵測病毒的軟體等等，安裝後，並沒有放在"啟動"選單里，也能在啟動操作系統時自動啟動。怎麼實現的呢？
---- 其實只要知道Windows注冊表的一些知識，這個問題就不能稱之為問題了。用滑鼠單擊"開始"，打開開始選單，再單擊"運行"，出現一對話框，然後輸入"regedit"，確定後，會打開系統注冊表編輯器，找到HKEY-LOCAL-MACHINE? SOFTWARE?Microsoft?Windows?CurrentVersion?Run，加入你的程序的入口，就可以了。如果不知道怎麼加，就參考一下已經存在的鍵值。
---- 十. 如何把數據文件輸出到Text控制項中？如果數據量比較大，窗體滿屏也不夠大，怎麼解決？
---- 有一個比較簡單的方法，就是把數據放到一個文本框（Text）里，並在其中加上水平和垂直滾動條。具體實現步驟為：先在窗體（Form）里加入一個文本框，採用默認名Text1；然後，設置文本框Text1的屬性：Text屬性設置為空，MultiLine屬性設置為True，ScrollBars屬性設置為3－Both；接著添加如下VB代碼：
Private Sub Form-Load()
Dim Handle As Integer
Dim FileName As String
On Error GoTo ErrExit
begin:
′輸入要顯示的數據文件的名稱
FileName=InputBox＄(〃Input Filename〃,
〃Open File〃)
On Error GoTo FileErr
Handle=FreeFile
Open FileName For Input As ＃Handle
′把數據文件中的數據輸出到文本框中
Text1.Text=Input＄(LOF(Handle), Handle)
Close ＃Handle
Exit Sub
FileErr:
Dim ErrNum As Integer
If Err.Number=53 Then
ErrNum=MsgBox(〃File not exist〃,
vbOKCancel, 〃Error Information〃)
If ErrNum=1 Then
GoTo begin
Else
Exit Sub
End If
End If
MsgBox Err.Description, , 〃file open failed〃
ErrExit:
Exit Sub
End Sub
′使文本框充滿整個窗體
Private Sub Form-Resize()
Text1.Left=0
Text1.Top=0
Text1.Width=Form1.Width－100
Text1.Height=Form1.Height－400
End Sub
---- 通過這樣的處理，不僅能解決問題，而且用戶還可以在文本框中對數據進行編輯。
---- 十一.關聯文件列表框、目錄列表框和驅動器列表框的方法
---- 想做一個對話窗體，包含驅動器列表框、目錄列表框和文件列表框，並能實現三者的同步操作，怎麼做？這都是我們在實際應用中經常會遇到的問題，在VB中解決這個問題非常簡單，可以通過Path屬性的改變引發Change事件來實現。例如：
Sub Dir1-Change()
File1.Path=Dir1.Path
End Sub
---- 該事件過程使窗體上的目錄列表框Dir1和文件列表框File1產生同步。因為目錄列表框Path屬性的改變將產生Change事件，所以在Dir1-Change事件過程中，把Dir1.Path賦給File1.Path，就可以產生同步效果。類似地，增加下面的事件過程，就可以使三種列表框同步操作：
Sub Drive1-Change()
Dir1.Path=Drive1.Drive
End Sub
---- 該過程使驅動器列表框和目錄列表框同步，前面的過程使目錄列表框和文件列表框同步，從而使三種列表框同步，問題即可解決。
❻ 如何搭建區域網內部論壇(要新版)
分沒有 簡單的說
1找台電腦做伺服器
2.在伺服器上安裝IIS及相應論壇要求安裝的JVM之類的
3.在網上找個論壇源碼 安裝
4.在其他電腦上輸入IP訪問論壇