简单的程序代码,可以实现动态网页伪静态的效果,献给喜欢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 %>
- .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() %>
标题: <%= title%> 内容: <%=content%> |