❶ 想在公司内部的局域网弄个可以看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访问论坛