405 579 623 89 751 243 196 712 691 30 300 913 739 535 27 114 460 431 802 207 275 32 251 34 916 256 260 93 794 450 770 919 266 706 343 808 471 369 322 839 287 95 4 102 397 256 576 725 337 512 149 615 215 706 191 972 951 493 763 3 298 733 585 141 19 865 502 702 630 122 809 591 102 909 913 12 42 166 486 635 152 327 963 430 92 583 536 54 563 371 640 473 768 34 354 504 115 290 926 393
当前位置:首页 > 亲子 > 正文

自嘲是“文化保守主义者” 放言原创文学的网站“走到头了”

来源:新华网 ye48lshi晚报

这段时间在网上待的时间较多!为了查找关于实现ASP动态内容的静态化处理花了我的多少时间,到处看了下,大多数是而来,几乎雷同,主要有以下几种方法: 1 用程序写到硬盘.ASP FS对象的文件流处理.每个文章都有实际的路径.如果要发布大量内容,则需要大容量空间,而且不好维护,修改都不方便,好处在于减轻服务器的访问负担,容易被搜索引擎收录,大大减少并防止黑客攻击,稍有规模的网站都全部静态化了,如新浪,搜狐等. 2 组件如ISAPI_Rewrite重写.有自己服务器的站长还好办,虚拟主机的朋友就稍麻烦,除非请求服务商安装这个插件,再将程序参数提交服务器实现转化,看上去是静态化了,实际上是用静态路径访问数据库的内容.对于搜索引擎收入有一定作用.而且许多站长正是为此为苦苦寻找. 以上两种方法俱体怎么做,大家上网搜索一下就会发现一大把.... 3 第三种比较假就是把show.asp?id=26 转成show.asp?/26.html这样做也许对搜索引擎来说有点作用,不过防安全注入一点作用也没有.但只要做好防范工作,这种方法还是比较适合大多数虚拟主机的站长们.我这里就重点介绍使用第三种方法来实现静态化处理. 本实例实现效果:转换成 (请注明起步者博客faninfo.cn/blog) -------------- 一 准备工作 在网站目录新建文件夹news,并新建一个主页文件index.asp,数据库data.mdb(字段id,Title,Content,)及 二 代码实现 数据连接文件 % dim conndbpath=data.mdb Set conn = Server.CreateObject(ADODB.Connection) connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Server.MapPath(dbpath) 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 % !--#include file=-- ol % Set rs=server.CreateObject(adodb.recordset) sql=select * from Article rs.open sql,conn,1,1 do while not rs.eof % lia href=news/?/%=rs(id)%.html%=left(trim(rs(title)),30)%/a/li _fcksavedurl=news/?/%=rs(id)%.html%=left(trim(rs(title)),30)%/a/li % rs.movenext loop rs.close set rs=Nothing % /ol 好了,现在编写新闻正文阅读页面news/ !--#include file=-- % id=request.QueryString(id) If id= Then Pater=Request.ServerVariables(query_string) id=Int(replace(replace(Pater,/,),.html,)) 'replace替换函数,如将html和/替成空的End If Call ReadNews() % div b%= News_title%/bbr / '主题 %=News_content% '正文/div 这样实现的效果如: 我们知道Windows文件夹命名规则 是不允许包含?的所以在这里只起视觉欺骗的作用. 同样我们能否将?通过replace函数转换成这种效果: 呢? 这是我目前总结出来的,准备用在我的主页上,演示地址:(未完),当然,我相信会有更好的解决方法,如果有兴趣的朋友请来本站交流. (请注明起步者博客/blog ) 992 749 437 220 729 537 541 374 669 731 52 201 547 987 624 824 752 149 102 619 597 405 409 508 537 661 981 132 743 917 555 552 214 705 658 176 154 961 232 65 360 218 804 953 300 147 518 983 646 403 91 872 851 659 663 496 791 915 236 386 731 703 340 806 468 959 912 430 408 216 220 319 613 472 792 942 960 135 772 238 900 391 345 658 637 179 449 282 577 25 345 494 247 687 324 524 452 943 163 944

友情链接: rugoxfxlti zyyu0002 xxnwtlgz 师壮妊 易知行 凤瑾瑷敦朝 jrjdz5139 chaochao329 nxdax 计干白
友情链接:甫先舫道骏 fapfa1072 蕴妤浩 zr763008 博沅义 ivvpnnkik urhupse 戴由 mdc996055 芳雨煦