帮改下网页代码！

代码如下：我现在想一点下载链接就直接可下载，但现在却出现没有登陆。高手帮我改下。

<%

dim founderr,errmsg
errmsg=""
founderr=false
call chkparam()
if founderr then
call diserror()
response.end
else
if guestsoft="yes" then

softdowncount
call geturl()
else
if session("userlogin")<>"" then
softdowncount
call geturl()
else
Response.Write ("<script>alert(' 错误!\n\n您还没有登陆或登陆超时，请先登陆。');javascript:window.close();</script>")
Response.end
end if
end if

end if

sub chkparam()
if request.querystring("soft_id")<>"" then
if not isInteger(request.querystring("soft_id")) then
founderr=true
errmsg=errmsg+"<br>"+"<li>非法的文件ID参数。"
end if

帮改下网页代码！ 网页代码 网页代码，，， 网页代码~ 网页打开窗口网页代码 网页滚动代码 网页模版代码 求网页代码 网页的代码 动态网页标题代码