亲亲宝宝

介绍一个asp伪静态的程序实现方法

链接地址采用如下规则

hxxp://www.kalayang.com/weblog/article.asp?/< %=rs("id")% >.html

文章页面读取时采用如下代码获得文章ID

server_v40=Request.ServerVariables(“QUERY_STRING”)

id=Int(replace(replace(server_v40,”/”,””),”.html”,””))

另一好方法：利用404错误转向来实现

比如网站地址都为 hxxp://www.kalayang.com/weblog/article.asp?id=310

写程序时候写成 hxxp://www.kalayang.com/weblog/article/310.html
其实并不存在 hxxp://www.kalayang.com/weblog/article/310.html这个页面

用户要点击这个超连接的话，就会自动调用404错误页面

只要把404错误页面定义为asp页面就可以了。

其中加入获得 article.asp?id=310页面的id 310，然后利用程序 获取该页面的内容并显示

Domain=Request.ServerVariables(“HTTP_HOST”)
sourceUrl=Request.ServerVariables(“QUERY_STRING”)
URL=Replace(sourceUrl,”404;http://”&Domain,””)

filename=URL

func =Replace(URL,”/”,””,InstrRev(URL,”/”),1)

func=mid(func,1,4)
If func=”inde” Then
requerUrl=Replace(URL,”.html”,”.asp”)
ElseIf func =”list” Then
requerUrl=Replace(URL,”.html”,””)
requerUrl=Replace(requerUrl,”/”,””,1,1)
requerUrl=Replace(requerUrl,”_”,”.asp?classid=”,1,1)
requerUrl=Replace(requerUrl,”_”,”&page=”,1,1)
ElseIf func =”view” Then
requerUrl=Replace(URL,”.html”,””)
requerUrl=Replace(requerUrl,”/”,””,1,1)
requerUrl=Replace(requerUrl,”_”,”.asp?id=”,1,1)
requerUrl=Replace(requerUrl,”_”,”&page=”,1,1)
End If
requerUrl =”http://” + Domain + requerUrl
filename=server.mapPath(filename)
getHTTPPage requerUrl,filename ‘根据请求生成静态页面

response.Redirect(sourceUrl)