问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

网页:DIV按日期动态载入HTML或者什么文件? AJAX? ASP?

发布网友 发布时间:2022-05-24 13:08

我来回答

2个回答

热心网友 时间:2023-10-14 23:02

用javascript或ajax的话,会根据客户端日期显示,有可能出错,用服务端程序则不存在这个问题。
ASP就很简单,用FSO组件读取指定文件并显示在相应DIV中。
下面代码测试过没问题,前面的ASP程序除了设置的日期外,其他不用修改,后面根据你实际的代码调用strDiv1....变量。
把程序放在首页里,然后把首页文件名改为index.asp。注:如果虚拟主机的默认文档没有index.asp的话,那还要添加一下,有支持asp的应该会有。
<%
Dim strDate1,strDate2,strDate3,strDate4,strDate5,strDate6
Dim strDiv1,strDiv2,strDiv3,strDiv4,strDiv5,strDiv6
'设置6个DIV对应的6个日期
strDate1="2012-2-16"
strDate2="2012-2-18"
strDate3="2012-2-20"
strDate4="2012-2-22"
strDate5="2012-2-24"
strDate6="2012-2-26"
Select Case CStr(Date())
Case strDate1 strDiv1=GetHTML("NO1-"&strDate1&".HTM")
Case strDate2 strDiv2=GetHTML("NO2-"&strDate2&".HTM")
Case strDate3 strDiv3=GetHTML("NO3-"&strDate3&".HTM")
Case strDate4 strDiv4=GetHTML("NO4-"&strDate4&".HTM")
Case strDate5 strDiv5=GetHTML("NO5-"&strDate5&".HTM")
Case strDate6 strDiv6=GetHTML("NO6-"&strDate6&".HTM")
End Select
Function GetHTML(FileName)
Dim FilePath
Dim objFSO,objTemp
FilePath=Server.Mappath("inc/"&FileName)
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists(FilePath) Then
GetHTML=""
Exit Function
End If
Set objTemp=objFSO.OpenTextFile(FilePath)
If Not objTemp.AtEndOfStream then
GetHTML=objTemp.ReadAll
End If
objTemp.Close
Set objTemp=Nothing
Set objFSO=Nothing
End Function
%>
<html>
<head>
<title>无标题文档</title>
</head>
<body>
<div id="div1" style="background:#deefff;">1:<%=strDiv1%></div>
<div id="div2" style="background:#ffffff;">2:<%=strDiv2%></div>
<div id="div3" style="background:#deefff;">3:<%=strDiv3%></div>
<div id="div4" style="background:#ffffff;">4:<%=strDiv4%></div>
<div id="div5" style="background:#deefff;">5:<%=strDiv5%></div>
<div id="div6" style="background:#ffffff;">6:<%=strDiv6%></div>
</body>
</html>追问能给个类似
var mydate = new Date();
var mymonth = mydate.getMonth()+1;
var myday = mydate.getDate();
var myyear = mydate.getYear()+1900;
代替那个条件选择吗?我觉得换成函数更方便些,求解

追答Select Case CStr(Date())
End Select
这个比if end if简单,只是你这里可选条件比较多,看起来代码比较长,其实我已经简化过了,把获取代码的封装成函数了,其他的就没必要了。

热心网友 时间:2023-10-14 23:02

如只是实现你的这个功能,不一定要用什么服务端技术。在页面加载时,用JS代码就计算出日期及要访问的页面,通过Ajax技术在DIV中显示相应的内容就好了。也就几句代码,纯原始JS通过XMLHTTP对象就可以搞定,当然要对各浏览器兼容性方面要求比较高,可以用相应的JS框架库。如jQUery、Dojo等。

服务端技术嘛,ASP安全性不高,不建议使用;用PHP或asp.net会比较好些。追问求具体代码

追答window.onload = function() {
var mydate = new Date();
var mymonth = mydate.getMonth()+1;
var myday = mydate.getDate();
var myyear = mydate.getYear()+1900;
var url = "inc/" + myyear + '-' + mymonth + '-' + myday+ ".htm";
var xmlHttp=new ActiveXObject('Microsoft.XMLHTTP');
xmlHttp.onreadystatechange=function() {
if(xmlHttp.readyState == 4 && xmlHttp.status == 200) {
var someDiv = document.getElementById('div1'); // 这是你的DIV
someDiv.innerHTML=xmlHttp.responseText;
}
}
xmlHttp.open('GET', url,true);
xmlHttp.send(null);
}

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
蒙牛为什么卖给中粮 只知道名字怎么找人的联系方式 谁能告诉我怎么在微博上找人啊? 新浪微博怎么找人啊? 雅思裸考一般能考多少分 高热病人应如何护理 检疫性有害生物 多少种 北半球气温最高和最低的月份分别为 北半球气温最高和最低的月份 一起又看流星雨中有一首歌歌词是:为什么你会出现在我的身边_百度... 歌词开头是“one,one,one,two,three……”的 商用烤鱼炉电和煤气哪个好? gt630能升级win11吗 911事件是念September 11th,还是nine-one-one? 试用版 可以升级win11吗 英特尔第三代酷睿能升级win11吗? 在英语中,查号台的电话,就是114,怎么表示?打&quot;One one four&quot;?还是打&quot;One-one-four&quot;? 一首超好听的英文歌是男生组合唱的 歌词有one one什么的 One-One was a racehorse. Two-Two was one, too. When One-One won one race, Two-Two won one, too. 欧洲数学中函数的概念里,和“ONE-ONE”一起教授的“ONTO”的概念是什么意思 梦幻高手速度来解答: 关于梦幻烧双限制的问题 居住证续签后多长时间显示电子版 淘宝店铺过户提示当前接收人支付宝未能满足L3认证,请更换,实际是已经实名认证的,怎么办? 怎么清理机箱里的灰尘? 武夷岩茶306的市场预期 要是在手机上将cad格式的图纸转dwf格式怎么转换? 网球王子driving myself 罗马音歌词 ncep0135ak用什么代换 什么汁可以染衣服 八字合婚88年1月12日男90年10月19日女 我欠信和汇金7万,没钱还了,会不会坐牢 Github page中为什么Ajax请求为混合内容 有什么软件可以把英语语音(就是读英语时发出的声音)转化成英文书写的形式显示出来? 蜜蜡藏扣厚度多少好看 莆田卤面的面怎么做 怎么让语音转换英文的时候开头不要大写? 佩戴琥珀蜜蜡平安扣的寓意是什么? 不同形状的蜜蜡平安扣寓意有何区别 入手一个琥珀蜜蜡平安扣,真的可以保平安吗 海盛天 灵风秀气什么意思? 这个蜜蜡平安扣大约值多少钱一克啊.懂得答谢谢哦 一春梦,雨常飘瓦,尽日灵风,不满旗。什么意思? 这个蜜蜡平安扣怎么样? 蜜蜡平安扣 多少钱一克 玉器七千陈湛露,翠蛾三百舞灵风是谁的诗?什么意思 50毫米厚20毫米的蜜蜡平安扣怎么样 云顶任务登场两名执法官和鞋带灵风的奕子是什么意思 和风细语的意思? 无不爱这三月和风的意思 常棣和风什么意思