捷摄网

Hello, world!

关于ASP自动给文章中的关键词加链接的问题

 关于ASP自动给文章中的关键词加链接的问题



•VBScript code

•'关键词带连接Function LinkWord(word)    Dim KeyWord,Kurl,RstK,SqlK,MiddleWord,StartWord,LastWord,FinalWord,P
    SqlK="SELECT keyword_word,keyword_url FROM Lelv_w_KeyWord WHERE keyword_status=1"
    Set RstK=Server.CreateObject("Adodb.Recordset")'Conn.Execute(SqlK)    RstK.open SqlK,conn,1,1
    'response.write("<script language=javascript>alert('"&RstK.recordcount&"');</=script>")    'Do While Not RstK.Eof    IF Not(RstK.bof and RstK.eof) then '不为空    For P=1 to RstK.Recordcount  '循环替换    KeyWord=RstK("keyword_word")
    Kurl=RstK("keyword_url")    If RstK.Recordcount=1 then
    StartWord=Replace(""&word&"",""&KeyWord&"","<a href="""&Kurl&""">"&KeyWord&"</a>"[,0[,1[,0]]])
    FinalWord=StartWord    Exit For  '如果记录只有1条 StartWord=Replace(""&word&"",""&KeyWord&"","<a href="""&Kurl&""">"&KeyWord&"</a>",1,1)    Else      '如果记录不止一条    If p=1 then  '在第一条    StartWord=Replace(""&word&"",""&KeyWord&"","<a href="""&Kurl&""">"&KeyWord&"</a>")    'response.Write("<script language=javascript>alert('"&FinalWord&"');<script>")    MiddleWord=StartWord'传递    response.Write("<script language=javascript>alert('"&MiddleWord&"');</script>")    else      '不在第一条    LastWord=Replace(""&MiddleWord&"",""&KeyWord&"","<a href='"&Kurl&"'>"&KeyWord&"</a>")
    FinalWord=LastWord'传递     end if
    end if
    RstK.MoveNext    Next
    Response.Write(""&StartWord&"")    End if
    RstK.close    Set RstK=nothingEnd Function

Response.AddHeader实用经验

 

Response.AddHeader实用经验

1.文件下载,指定默认名
Response.AddHeader("content-type","application/x-msdownload"); // 限制类型
Response.AddHeader("Content-Disposition","attachment;filename=文件名.rar");// 下载后的文件名

2.刷新页面
Response.AddHeader (“REFRESH”, ”60;URL=newpath/newpage.asp”)
这等同于客户机端<META>元素:
<META HTTP-EQUIV=”REFRESH”, “60;URL=newpath/newpage.asp”>

3.页面转向
Response.Status = “302 Object Moved”
Response.Addheader “Location”, “newpath/newpage.asp”
这等同于使用Response.Redirect方法:
Response.Redirect “newpath/newpage.asp”

4.强制浏览器显示一个用户名/口令对话框
Response.Status= “401 Unauthorized”
Response.Addheader “WWW-Authenticate”, “BASIC”
强制浏览器显示一个用户名/口令对话框,然后使用BASIC验证把它们发送回服务器(将在本书后续部分看到验证方法)。

5.如何让网页不缓冲
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.Addheader "pragma","no-cache"
Response.Addheader "cache-control","private"
Response.CacheControl = "no-cache

javascript 获取当前 URL 参数的两种方法

 

javascript 获取当前 URL 参数的两种方法:

«1»
控制面板
您好,欢迎到访网站!
  [查看权限]
网站分类
最新留言
    网站收藏
    友情链接
    图标汇集
    • 订阅本站的 RSS 2.0 新闻聚合

    Powered By C-Blog 1.2

    Copyright 捷摄网. Some Rights Reserved.

    156ms