asp的另类url传值

 
你是否已经看厌烦了类似这样的网页地址 www.xxxx.cn/news.asp?id=1205 ?
下面我们来尝试另一种给页面递交id的办法:

先让页面包含以下FUNCTION
程序代码 程序代码
===========================================================
'函数名称:readQ
'功能描述:另类的获取url递交参数
'作  者:GIDOT
'参数说明:numLi为所要选取的第几个参数。
'修改日期:20-aug-2007
'例  程:response.write(readQ(2))
'----------------------------------------------------------
function readQ(numLi)
     dim tem1,wrong,stopforwrong
    
     wrong = 2 '当遇到错误后是否报警,2为警告框1为返回null0为不报警。
     stopforwrong = 1 '出现错误后是否立即停止下面的asp程序继续执行,1为制止,0为忽略。

     if ubound(split(request.querystring,","))+1 < numLi or numLi <= 0 then
         if wrong = 1 then readQ ="null"
         if wrong = 2 then response.write("<script>alert(""本页没有第"& numLi &"个参数。"");</script>")
         if stopforwrong then response.end()
     else
         readQ =split(request.querystring,",")(numLi-1)
     end if
end function
'------------------------------------------------------------





好了,假设现在的页面是news.asp?id=123

那么传统的获取id方法是
<%
Dim id
id = request.querystring("id")
%>
那么变量id的值则成为"123"

现在,你把上面的代码改成:
<%
Dim id
id = readQ(1)
%>
那么你便可以使用这个地址来获取id了:
news.asp?123


不知各位客观是否明白了readQ的用法。下面我再举一个例子:

假设一个页面http://www.neted.cn/news.asp?id=54&admin=87
我们要用另一个方法访问这个页面的文章:
http://www.neted.cn/?news,54,87

第一步:修改根目录的index.asp或者default.asp文件
·让页面包含function readQ
·页首位置增加判断<%if readQ(1) = "news" then Server.Transfer("news.asp")%>

第二步:修改news.asp
·让页面包含function readQ
·将
程序代码 程序代码
id=request.querystring("id")
admin=request.querystring("admin")
更改成以下方式:
程序代码 程序代码
id=readQ(2)
admin=readQ(3)
阅读更多
文章标签: asp url function null
个人分类: Program
上一篇如何关闭visual studio 2005 的调试器
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭