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)