我在用frontpage做网页。

网页里有一个超链接。我希望点到它时先读取日期,如果是x月之前,打开x_0.htm,如果是x月y日,打开x_y.htm,如果是x月份之后,打开x_30.htm,怎么编辑?... 网页里有一个超链接。我希望点到它时先读取日期,如果是x月之前,打开x_0.htm,如果是x月y日,打开x_y.htm,如果是x月份之后,打开x_30.htm,怎么编辑? 展开
 我来答
anbert
2006-12-18 · TA获得超过333个赞
知道小有建树答主
回答量:630
采纳率:0%
帮助的人:601万
展开全部
就不用JavaScript...... ^^

先切换到 HTML模式,

在<body>的下一行插入这些代码:

  <a href="" onClick="this.href=getsrc();">看看哦.~~</a>
  <BR>
  <a href="" onClick="this.href=getsrc(); alert('你将进入:'+this.href)">再看看哦.~~</a>
  <SCRIPT LANGUAGE="VBScript">
  <!--  
    Function getSrc()
        Dim x, y
        Dim thedate
        Dim url
        x = 12  '设成哪月?
        y = 25  '设成哪天?
        url = "http://www.baidu.com/" '那几个页面放在哪里?注意,后面那个"/"不要丢了。。。
        '或者 如果那三个文件放在本地的话,就写成类似这样:  url = "file:///C:/文件夹/文件夹2/"
        thedate = CDate(CStr(Year(Now)) + "-" + CStr(x) + "-" + CStr(y))                        
        dif = DateDiff("d", thedate, Now)
        If dif < 0 Then
            url = url + CStr(x) + "_0.htm"  '地址1      
        ElseIf dif = 0 Then
            url = url + CStr(x) + "_" + CStr(y) + ".htm"    '地址2
        Else
            url = url + CStr(x) + "_31.htm" '地址3
        End If

        getSrc = url
    End Function
  //-->
  </SCRIPT>
Aminta_CCCP
2006-12-18 · 超过22用户采纳过TA的回答
知道答主
回答量:114
采纳率:0%
帮助的人:56.3万
展开全部
肯定要用JAVASCRIPT
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
纵横线智能化
2006-12-18 · TA获得超过1858个赞
知道大有可为答主
回答量:3615
采纳率:0%
帮助的人:1357万
展开全部
用Javascript
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
plause
2006-12-18 · TA获得超过906个赞
知道小有建树答主
回答量:254
采纳率:0%
帮助的人:0
展开全部
<a href="#" onclick="return function ()
{
var x = 12; // 这里你改成你想要的 x
var now = new Date();
var m = now.getMonth() + 1;
var d = now.getDate();

if (m < x) window.open(x + '_0.htm');
else if (m == x) window.open(x + '_' + d + '.htm');
else window.open(x + '_30.htm');

return false;
}">点击链接</a>

如果你不想在新窗口中打开,
只要把上面有 window.open(...) 的地方全换为 window.location.href = ...
//...表示字符串, 你要对应的替换
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式