[求助]有没有人能帮忙写个拥有简单功能的ASP页？

PALadinWIC 2010-09-28 04:08:44

功能可能比较简单，但是本人对ASP技术一窍不通，所以只有请教各位达人了。

建立一个ASP网页，该网页的功能是：

以A参数访问该网页：则该网页记录下来访者的IP地址，并保存且只保存最新的来访IP，如此反复。

以B参数访问该网页：则该网页跳转到保存的IP去，就是自动转发到http://[保存的IP]/。

...全文

142 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

liyan 2010-09-29

打赏
举报

要例程行，不会要个下载地址或是成品源码的东西行。
不能让别人替你作，这是程序员的自尊！
看着脑袋都痛，怎么都这样！

liyan 2010-09-29

打赏
举报

对了，谁替我挂QQ
对了，谁替我领钱！
靠，这个估计打破头！
替别人作的手贱！

liyan 2010-09-29

打赏
举报

哈哈哈！
有意思！
唉！
我有一个大型服务器软件，哪位给我作了！
等他发来，我再告诉他，我要的是UNIX版的，不要WIN64版的。
等他再发来，我要的是UNIX下。。。。。版的。
靠，我也给他四十分！

PALadinWIC 2010-09-28

打赏
举报

对ASP页面的访问不是会有带参数的那种吗，我的意思就是说，比如说abc.asp

如果我在浏览器上以 http://www.www.com/abc.asp?id=2 的方式来访问，则保存IP，如果以 http://www.www.com/abc.asp?id=1 的方式来访问，则跳转。

NiklausXu 2010-09-28

打赏
举报

A页面code:
<html>
<head>
<title></title>

<script type="text/javascript" >

function checknumber()
{
location.href="被访问页面.html";
}

</script>

</head>

<body>

<input type="button" name="start" value="跳转" id="startbutton" title="跳转" onClick="checknumber();"/>
</body>
</html>

被访问页面code：
<%
refPath = request.ServerVariables("HTTP_REFERER") '从网页的地址栏正常的获取地址
refArr = split(refPath, "/") '把完整的地址拆分放在split里面
refPage = refArr(UBound(refArr)) ’从split里得到这个数组的最后一维
if refPage = "bookAdd.asp" then ’判断是否从B页面跳转过来的
response.Redirect("session("UserId")") ’如果是就跳转到最后一个访问用户的页面
end if

dim d,c
Application.lock '锁定Application对象
Application("d")=Application("d")+1
c=Application("d")
Application.Unlock '解除Application对象的锁定

Session("UserId")=refPath ’把每次来访的用户地址都保存起来，Session只会保存最后一次的记录

%>
<html>
<head></head>
<body>

<font size='6'><i>你是第<%=c%>位来访者</i></font>

</body>

B页面的代码跟A页面代码一样！

response.Redirect("session("UserId")") 这样跳转我也没试过，如果不能的话你可以跟上面一样用Split把它拆分获取到地址。

自己手写不知道是不是你想的那种效果，可能有些小的break自己再调下吧！