600字范文,内容丰富有趣,生活中的好帮手!
600字范文 > ASP程序实现网页伪静态页源代码

ASP程序实现网页伪静态页源代码

时间:2023-08-17 05:06:18

相关推荐

ASP程序实现网页伪静态页源代码

很简单的教程,献给喜欢SEO的朋友们。把http://www.***.cn/article.asp?logID=26 替换成http://www.***.cn/article.asp?/a26.html。不需要通过iis+ISAPI_Rewrite做基于IIS的url rewrite 一、数据库很简单使用ACCESS,Data.mdb建立一个表Article,三个字段:ID,Title,Content;自动编号、标题、文章内容。 二、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 News_title,News_content Sub ReadNews() set rs1=server.createobject("adodb.recordset") sql1="select id,title,content from article where id="& ID rs1.open sql1,conn,3,3 News_title=rs1("title") News_content=rs1("content") rs1.close set rs1=Nothing End Sub %> 三、Default.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("title")),30)%> <% rs.movenext loop rs.close set rs=Nothing %> 四、Article.asp ASP/Visual Basic代码 <% id=request.QueryString("id") If id="" Then server_v40=Request.ServerVariables("QUERY_STRING") id=Int(replace(replace(server_v40,"/",""),".html","")) End If Call ReadNews() %> 标题:<%= News_title%>

内容: <%=News_content%> 这个教程已经能实现最基本的功能,具体大家就想怎么应用就八仙过海,各显神通了!

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。