先发一个我以前写的一个小函数

功能相当于，asp里的urlrewrite的后台开关，可以和isapi_rewrite配合起来使用

预览地址：http://l.huayecai.com/myworks/rewrite.asp

Code:

<%    
'**************************************************       
'函数名：urlrewrite(str)    
'作  用：静态化地址    
'参  数：str地址    
'返回值：静态化后的链接     
'**************************************************    
Function urlRewrite(str)    
if urlhtml=1 then    
  if instr(str,"?")>0 then    
   htmlname=split(str,"?")(0)    
   htmlname=split(htmlname,".")(0)    
   htmlscript=split(str,"?")(1)    
    if instr(htmlscript,"&")>0 then    
      htmlsc=split(htmlscript,"&")    
      urlRe=htmlname    
      for i=0 to ubound(htmlsc)    
      htmlpara=split(htmlsc(i),"=")(1)    
      urlRE=urlRE"-"&htmlpara    
      next    
      urlRE=urlRE".htm"   
    else    
      urlRE=htmlname"-"&split(split(str,"?")(1),"=")(1)".htm"   
    end if    
  else    
    urlRE=replace(str,".asp",".htm")    
  end if    
else    
UrlRE=str    
end if    
urlrewrite=urlre    
End function    
%>