找个ASP源代码

Dim Sum As Integer

Dim I As Integer

I=1

So While I<=10

Sum=Sum+I

I=I+1

Loop

Text1Text=Sum

End Sub

此句So While I<=10中 I是小于10或等于10吗怎么判断等于10是否成立

2)Private Sub Command1_Click()

Dim Sum As Integer

Dim I As Integer

I=1

Do

Sum=Sum+I

I=I+1

Loop While I<=10

Text1Text=Sum

End Sub

3)Private Sub Command1_Click()

Dim Sum As Integer

Dim I As Integer

I=1

Do

Sum=Sum+I

I=I+1

Loop Until I>10

Text1Text=Sum

End Sub

首先确认一下你的iis能够正常使用吗？如果不行则先配置iis网站服务器之后再考虑运用asp文件的问题，如果iis配置正常，则直接将文件解压缩到C:\Inetpub\)>

在局域网里搭建一个web服务器，固定该机的内网IP，要win2003系统,XP的不行，因为IIS连接数有限制，搭建好，把程序放上去，其他电脑直接输入这台服务器的IP地址就可以访问了。

如果要外网登陆，要先把局域网的路由器映射到这台服务器上，一般是在路由器里设置DMZ主机，然后填上服务器的内网IP。

外网访问时是要输入外网的IP，可以上IP138查询到。

如果你们宽带是固定IP的话申请个域名指向这个IP就行了，如果不是固定IP，就需要使用动态域名，现在常用的是 “花生壳”

IPHostEntry

ip=DnsGetHostByName(textBox1Text);

//textBox1Text是客户端主机名

IPAddress[]

ipp=ipAddressList;

for(int

i=0;i<=ippLength-1;i++)

{

listBox1ItemsAdd(ipp[i]ToString());

}

to:客户端系统时间

监听一下13号端口

:)

accSock=sockAccept();//用于接收客户端的连接请求,返回套接字对象

if(accSockConnected)

{

IPAddress

ipAddress=IPAddressParse(((IPEndPoint)accSockRemoteEndPoint)AddressToString());

IPAddress

Port=IPAddressParse(((IPEndPoint)accSockRemoteEndPoint)PortToString());

//获取客户端的IP地址

湖北新蓝海是一家专注于网络营销

网络推广的领头企业

，已为武汉健民、华工激光、江西仁和等多家知名企业提供网络营销外包服务。详情请到各大搜索引擎中搜索“湖北新蓝海”

以上就是关于找个ASP源代码全部的内容，包括:找个ASP源代码、asp源码怎么使用（在线等）、asp网站源代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！