| 站 内 搜 索 |
|
|
|
 |
|
|
|
|
ASP程序实现网页伪静态页源代码
来源:居家理财网 等级:默认等级
发布于2007-11-09 08:44 被读233次 【字体:大 中 小】〖 访问论坛
〗
|
|
很简单的教程,献给喜欢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代码
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset")
sql="select * from Article"
rs.open sql,conn,1,1
do while not rs.eof
%>
<li><a href="article.asp?/<%=rs("id")%>.html"><%=left(trim(rs("title")),30)%></a></li>
<%
rs.movenext
loop
rs.close
set rs=Nothing
%>
</ol>
四、Article.asp
ASP/Visual Basic代码
<!--#include file="config.asp"-->
<%
id=request.QueryString("id")
If id="" Then
server_v40=Request.ServerVariables("QUERY_STRING")
id=Int(replace(replace(server_v40,"/",""),".html",""))
End If
Call ReadNews()
%>
<div>
标题: <b><%= News_title%></b><br />
内容: <%=News_content%>
</div>
这个教程已经能实现最基本的功能,具体大家就想怎么应用就八仙过海,各显神通了!
来自: (您想天天免费看到如此及时全面的资讯吗?请点击此处将居家理财网加入您的收藏夹就可以了。点击此处将居家理财网设为您的上网首页。)
居家理财网--
www.jj86.com |
| |
※非常感谢您阅读本页!※※内容仅供参考,不构成任何行为依据※!暂无相关专题
上一篇:巧用CSS滤镜制作绚丽图片播放效果 下一篇:时间和日期的各种格式的特效代码
|
共有评论 0 条 网友评分 查看全部
|
|
| 版权申明 |
1、 发表文章作品必须依法行事;所有文章及相关评论仅代表作者本人观点,与本站立场无关。
2、 本站刊登该文章只为交流之用,无任何营利目的,如有侵犯或不妥,请直接与我们联系。
3、 原创文章或评论版权归本站和作者共有;转载的文章及其它作品,版权归原发表单位及作者所有。
4、 由于来自于网上部分文章无法查证原作者和出处,如署名或出处有误,请直接与我们联系。
5、 如果转载,务必注明作者与出处;从本站转载请标注:文章来源:居家理财网
论坛内容更精彩,欢迎参与讨论交流!
|
|