文件超链接组件 用来建立易于维护的索引站点 文件超链接组件使用方法 (1)建立超链接数据文件,*txt (2)建立显示链接的页面,*asp 语法 Set对象名= Server CreateObject(“ MSWC nextlink”) 文件超链接组件的方法 产东学技木取业学院
文件超链接组件 • 用来建立易于维护的索引站点 • 文件超链接组件使用方法 (1) 建立超链接数据文件， *.txt (2) 建立显示链接的页面，*.asp • 语法： – Set 对象名=Server.CreateObject(“MSWC.nextlink”) • 文件超链接组件的方法
文件超链接组件 % The Subj=Server HTMLEncode (Request Form('subject )) If The Subj=" THEN The Subj="无标题 The Post="<HTML><HEAD><TITLE>"&The Subj&"</TITLE></HEAD><BODY> The Post= The Pos&"发表日期:"&NOW&"<Hr ThePost= The Post& Server HTMLEncode(Request Form("Posting)) The Post=The Post&"<|-#INCLUDE file="news. inc"--> The Post=The Post&"</BODY></HTML> Set mylinks= Server Create Object(MSWC NextLink") TheName="item"&mylinks. GetlistCount("news.txt)+1&".asp TheNamePath=Server Mappath(The Name) response. write thnamepatl Set My FileObj=Server CreateObject( Scripting. File Systemobject") Set MyOutStream=MyFileObj Create TextFile(The Name Path MyOut Stream Write ThePost MyOut Stream Close TheNews=Server MapPath("news. txt") Set MyNews=My FileObj Open TextFile(TheNews, 8, TRUE) MyNews. Write Line The Name&vb Tab& The Subj MyNews. Close % 产东学技木取业学院
文件超链接组件 <% TheSubj=Server.HTMLEncode(Request.Form("subject")) If TheSubj ="" THEN TheSubj="无标题" ThePost="<HTML><HEAD><TITLE>"&TheSubj&"</TITLE></HEAD><BODY>" ThePost=ThePost&"发表日期："&NOW&"<Hr>" ThePost=ThePost&Server.HTMLEncode(Request.Form("Posting")) ThePost=ThePost&"<!-- #INCLUDE file=""news.inc"" -->" ThePost=ThePost&"</BODY></HTML>" Set mylinks=Server.CreateObject("MSWC.NextLink") TheName="item"&mylinks.GetlistCount("news.txt")+1&".asp" TheNamePath=Server.Mappath(TheName) response.write thnamepath Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject") Set MyOutStream=MyFileObj.CreateTextFile(TheNamePath) MyOutStream.Write ThePost MyOutStream.Close TheNews=Server.MapPath("news.txt") Set MyNews=MyFileObj.OpenTextFile(TheNews,8,TRUE) MyNews.WriteLine TheName&vbTab&TheSubj MyNews.Close %>
建立超链接数据文件( ink. txt)的注意事项 每行只写一个链接地址及其描述,它们之 间用TAB键分开 链接地址可以是完整的网址或相对路径 链接地址前不要加上http:/∥ 产东学技木取业学院
建立超链接数据文件(link.txt)的注意事项 • 每行只写一个链接地址及其描述，它们之 间用TAB键分开 • 链接地址可以是完整的网址或相对路径 • 链接地址前不要加上http://