ASP编程：依据会见者IP显现或跳转到区域分站
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。依据IP来判别,就会依据会见者的IP主动跳转到会见者地点乡村的区域分站参考代码以下:
Functionlookaddress(sip)
Dimstr1,str2,str3,str4
Dimnum
Dimirs
IfIsNumeric(Left(sip,2))Then
Ifsip="127.0.0.1"Thensip="192.168.0.1"
str1=Left(sip,InStr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str2=Left(sip,InStr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=Left(sip,InStr(sip,".")-1)
str4=Mid(sip,InStr(sip,".")+1)
IfIsNumeric(str1)=0OrIsNumeric(str2)=0OrIsNumeric(str3)=0OrIsNumeric(str4)=0Then
Else
num=cdbl(str1)*16777216+cdbl(str2)*65536+cdbl(str3)*256+cdbl(str4)-1
sql="selecttimezonefromIPaddresswherestartip<="&num&"andendip>="&num
Setirs=conn.Execute(sql)
Ifirs.EOFAndirs.BOFThen
lookaddress="0"
Else
DoWhileNotirs.EOF
lookaddress=irs(0)
irs.MoveNext
Loop
EndIf
irs.Close
Setirs=Nothing
EndIf
Else
lookaddress="0"
EndIf
EndFunction
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Ifuserip=""Thenuserip=Request.ServerVariables("REMOTE_ADDR")
visitflag=lookaddress(userip)
ifvisitflag=""then
Response.Write("window.location.href=http:/www.goimage.cn;")
elseifvisitflag="010"
Response.Write("window.location.href=http:/bj.goimage.cn;")
endif
数据库布局：
表名：IPaddress
startip:肇端IP
endip:停止IP
country:地点地位
timezone:德律风区号（这里依据德律风区号做判别，分站能够做到县级）
因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
页:
[1]