发布时间：2019-01-18 23:54   您所在的位置： 网站首页 > 新闻资讯 > 行业动态

简单的程序代码，可以实现动态网页伪静态的效果，献给喜欢SEO的朋友们。把http://www.***.com/product_more.asp?name=煤粉取样器
替换成http://www.***.com/product_view.asp?/煤粉取样器.html。不需要通过iis+ISAPI_Rewrite做基于IIS的url rewrite

一、数据库很简单使用你网站原本的数据库就行了。

二、Config.asp 网站配置文件
ASP/Visual Basic代码

<%  
'数据库链接  
db="data.mdb"  “你原来数据库的路径
Set conn = Server.CreateObject("ADODB.Connection")  
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)  
conn.open connstr
    If Err Then 
        err.Clear  
        Set conn = Nothing 
        Response.Write "数据库连接出错，请检查连接字串。"  

        Response.End 
    End If
'定义新闻阅读界面的读取
Dim  title, content,keytitle,keysm,bigpic
Sub ReadNews()  
set rs1=server.createobject("adodb.recordset")  
  sql1="select * from product where name='"& name&"'" 
rs1.open sql1,conn,3,3  
    title=rs1("title")  
     content=rs1("content")  
  keytitle=rs1("keytitle")
keysm=rs1("keysm")
bigpic=rs1("bigpic")
rs1.close  
set rs1=Nothing 
End Sub   
%>
三、index.asp
ASP/Visual Basic代码

  

  
<%  
Set rs=server.CreateObject("adodb.recordset")  
sql="select * from Article" 
rs.open sql,conn,1,1  
do while not rs.eof  
%>  

1. .html"><%=left(trim(rs("name")),30)%>  
   <%  
   rs.movenext  
   loop  
   rs.close  
   set rs=Nothing 
   %>  
   

 
四、Product_view.asp

ASP/Visual Basic代码

  
<%  
id=request.QueryString("name")  
If id="" Then   
server_v40=Request.ServerVariables("QUERY_STRING")  
id=Int(replace(replace(server_v40,"/",""),".html",""))  
End If   
Call ReadNews()  
%>  

本文章由新概念互动原创，如没特殊注明，转载请注明来自：http://www.jianzhan0.com/dongtai/22593.html

上一篇：如何提高网站权重的秘密

下一篇：上海网站设计公司带您从SNS网站看网络病毒营销