创建一个ASP通用分页类(14)

Private Function GetURL()
  
Dim strurl,str_url,i,j,search_str,result_url
  search_str
="page="
  strurl
=Request.ServerVariables("URL")
  Strurl
=split(strurl,"/")
  i
=UBound(strurl,1)
  str_url
=strurl(i)'得到当前页文件名
  str_params=Request.ServerVariables("QUERY_STRING")
  
If str_params="" Then
  result_url
=str_url &

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3613.html