Asp.net源码交流论坛 51aspx站务相关灌水/非技术
本站官方群聊天记录之一（2007.9.24-2008.3.7）
标题: 本站官方群聊天记录之一（2007.9.24-2008.3.7）
51aspx 
回复: 本站官方群聊天记录之一（2007.9.24-2008.3.7）
2007-11-29 15:22:58 51aspx小飞侠()
Request.ServerVariables.Get("HTTP_ACCEPT_LANGUAGE") ;
2007-11-29 15:23:29 Dennis lee()
ok
2007-11-29 15:23:34 Dennis lee()
ks
2007-11-29 15:23:39 Dennis lee()
Tks
2007-11-30 09:16:18 51aspx大哥()
51aspx V1.6上线测试了~~
1、主页的调用内容更丰富
2、增强了源码的Tags调用功能（可以根据源码的数量显示Tag的不同风格）
3、发帖时可以进行tags选择，也可以进行tag分类浏览
4、用户可以在线收藏源码
同时可以在控制面板中进行删除
5、实现了在线运行html代码功能
6、发帖时可以实现远程图片自动上传（目前只对注册用户有效）
http://bbs.51aspx.com
欢迎大家多提宝贵意见哦
测试稳定后，会陆续在51aspx上发布dnt开发整合过程
http://www.51aspx.com
2007-11-30 09:23:39 51aspx_网络生?)
[表情]
2007-11-30 10:00:11 Dennis lee()
[表情]
2007-11-30 17:54:47 51aspx||YOYO<<()
[表情]
2007-12-03 15:58:55 Dennis lee()
请教一个问题：根据判断用户IP，跳转到相应城市页面，怎么实现 搜了点资料，都说得很笼统
2007-12-03 16:00:21 51aspx_网络生?)
首先你得有个IP库
2007-12-03 16:00:26 Dennis lee()
有的
2007-12-03 16:01:18 51aspx_网络生?)
可以在IP库中新增个字段，用来存储城市前缀
2007-12-03 16:01:55 Dennis lee()
然后呢
2007-12-03 16:02:10 51aspx_网络生?)
判断当前用户IP与库中IP是否一至，一至的话，就把城市前缀读出来 以这种形式 *.域名.com
2007-12-03 16:02:38 Dennis lee()
有没有一些代码？ [表情]
2007-12-03 16:03:08 51aspx_网络生?)
这个不用了吧，你会判断IP吧。
2007-12-03 16:03:20 Dennis lee()
是
2007-12-03 16:05:44 51aspx_网络生?)
那就可以了呀，你IP会判断正确，那不就成功了吗，
if(ip核对成功)
{
cityname = dr[""];
Response.Redirect("[url=http://]http://"+cityname+"abc.com[/url]");
}
2007-12-03 16:06:11 Dennis lee()
Function getIpvalue(clientIP) '得到客户端 的IP转换成长整型，返回值getIpvalue
On Error Resume Next
Dim strIp, array_Ip
strIp=0
array_Ip = Split(clientIP,".")
If UBound(array_Ip)<>3 Then
getIpvalue=0
Exit Function
End If
For i=0 To 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Next
getIpvalue=strIp
If Err Then getIpvalue=0
End Function
clientIP=request.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="select top 1 City from [Ipaddress] where "&IpValue&" between Ip1 and Ip2"
Set RsIp=conn.execute(strSql)
If RsIp.bof and RsIp.eof then
UrlCity="未知"
Else
UrlCity=RsIp.Fields.Item("City").Value
End If
if instr(UrlCity,"广州")<>0 then response.Redirect("http://gz.***.com")
if instr(UrlCity,"深圳")<>0 then response.Redirect("http://sz.***.com")
if instr(UrlCity,"上海")<>0 then response.Redirect("http://sh.***.com")
2007-12-03 16:06:52 Dennis lee()
这样如何？
2007-12-03 16:07:04 51aspx_网络生?)
可以啊。
Request.ServerVariables.Get("HTTP_ACCEPT_LANGUAGE") ;
2007-11-29 15:23:29 Dennis lee()
ok
2007-11-29 15:23:34 Dennis lee()
ks
2007-11-29 15:23:39 Dennis lee()
Tks
2007-11-30 09:16:18 51aspx大哥()
51aspx V1.6上线测试了~~
1、主页的调用内容更丰富
2、增强了源码的Tags调用功能（可以根据源码的数量显示Tag的不同风格）
3、发帖时可以进行tags选择，也可以进行tag分类浏览
4、用户可以在线收藏源码
同时可以在控制面板中进行删除
5、实现了在线运行html代码功能
6、发帖时可以实现远程图片自动上传（目前只对注册用户有效）
http://bbs.51aspx.com
欢迎大家多提宝贵意见哦
测试稳定后，会陆续在51aspx上发布dnt开发整合过程
http://www.51aspx.com
2007-11-30 09:23:39 51aspx_网络生?)
[表情]
2007-11-30 10:00:11 Dennis lee()
[表情]
2007-11-30 17:54:47 51aspx||YOYO<<()
[表情]
2007-12-03 15:58:55 Dennis lee()
请教一个问题：根据判断用户IP，跳转到相应城市页面，怎么实现 搜了点资料，都说得很笼统
2007-12-03 16:00:21 51aspx_网络生?)
首先你得有个IP库
2007-12-03 16:00:26 Dennis lee()
有的
2007-12-03 16:01:18 51aspx_网络生?)
可以在IP库中新增个字段，用来存储城市前缀
2007-12-03 16:01:55 Dennis lee()
然后呢
2007-12-03 16:02:10 51aspx_网络生?)
判断当前用户IP与库中IP是否一至，一至的话，就把城市前缀读出来 以这种形式 *.域名.com
2007-12-03 16:02:38 Dennis lee()
有没有一些代码？ [表情]
2007-12-03 16:03:08 51aspx_网络生?)
这个不用了吧，你会判断IP吧。
2007-12-03 16:03:20 Dennis lee()
是
2007-12-03 16:05:44 51aspx_网络生?)
那就可以了呀，你IP会判断正确，那不就成功了吗，
if(ip核对成功)
{
cityname = dr[""];
Response.Redirect("[url=http://]http://"+cityname+"abc.com[/url]");
}
2007-12-03 16:06:11 Dennis lee()
Function getIpvalue(clientIP) '得到客户端 的IP转换成长整型，返回值getIpvalue
On Error Resume Next
Dim strIp, array_Ip
strIp=0
array_Ip = Split(clientIP,".")
If UBound(array_Ip)<>3 Then
getIpvalue=0
Exit Function
End If
For i=0 To 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Next
getIpvalue=strIp
If Err Then getIpvalue=0
End Function
clientIP=request.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="select top 1 City from [Ipaddress] where "&IpValue&" between Ip1 and Ip2"
Set RsIp=conn.execute(strSql)
If RsIp.bof and RsIp.eof then
UrlCity="未知"
Else
UrlCity=RsIp.Fields.Item("City").Value
End If
if instr(UrlCity,"广州")<>0 then response.Redirect("http://gz.***.com")
if instr(UrlCity,"深圳")<>0 then response.Redirect("http://sz.***.com")
if instr(UrlCity,"上海")<>0 then response.Redirect("http://sh.***.com")
2007-12-03 16:06:52 Dennis lee()
这样如何？
2007-12-03 16:07:04 51aspx_网络生?)
可以啊。
