Question

恳请各高手帮我把这ASP代码转成JS被HTML调用,可以吗??

<%

Sub PPst_Protect(User_level,IsOnly)

If (Not Isnumeric(User_level)) or (Not Isnumeric(IsOnly)) then
response.Write "你设置的查看本页面的会员级别参数不正确(可能不是数字)"
response.End()
End If

If User_level<0 or User_level>10 or IsOnly<0 or IsOnly>1 then
response.Write "你设置的查看本页面的会员级别参数不正确<br>参数1数字范围：0-10,I参数2数字范围：0-1"
response.End()
End If

Dim PPst_Cookies_UserName,PPst_Session_UserName,PPst_Cookies_Level,PPst_Session_Level

PPst_Cookies_UserName=request.cookies("PPst_UserName")
PPst_Session_UserName=Session("PPst_UserName")
PPst_Cookies_Level=request.cookies("PPst_Level")
PPst_Session_Level=Session("PPst_Level")

If request.cookies("PPst_UserName")="" or Session("PPst_UserName")="" then
response.Write "<center><br><br><li>你至少登陆后才能浏览本页面.."
response.Write "<br><br><a href=""javascript:history.go(-1)""><< 返回上一页</a>"
response.End()
Else
if IsOnly=0 or (IsOnly=1 and User_level=0)then
If Int(PPst_Cookies_Level)<User_level or Int(PPst_Session_Level)<User_level then
response.Write "<center><br><br><li>你的级别["&PPst_Cookies_Level&"]不够，必须达到此级别["&User_Level&"]才能浏览本页面"
response.Write "<br><br><a href=""javascript:history.go(-1)""><< 返回上一页</a>"
response.End()
End If
Elseif IsOnly=1 and User_level<>0 then
If (Int(PPst_Cookies_Level)<>User_level and Int(PPst_Cookies_Level)<>10) or (Int(PPst_Session_Level)<>User_level and Int(PPst_Session_Level)<>10)then
response.Write "<center><br><br><li>你的级别["&PPst_Cookies_Level&"]不够，只有此级别["&User_Level&"]的会员才能浏览本页面"
response.Write "<br><br><a href=""javascript:history.go(-1)""><< 返回上一页</a>"
response.End()
End If
End If
End if

End Sub
%>

恳请各高手帮我把这ASP代码转成JS被HTML调用,可以吗??
据说AJAX可以实现,可以改成AJAX吗?

Answer 1

楼上说的对，Session是其它程序不可代替的，它是ASP的专利，当然PHP也有类似的组件，但你说的AJAX和JS都没有这个能力。其实AJAX的工作原理是不断的交换页面信息，由于AJAX和JS本身都不具备Session的能力，最终过不了Session这一关，所以不可能真正的转换掉，转换反而是多此一举，让程序累赘而已。

当然你非要转换我也无话可说，无非是AJAX+ASP的方式来进行表层转换，核心还是要靠ASP。

Answer 2

不可以，你有使用到Session，该对象只能在服务器端得到