续
var otv = new Array (
'01','http://www.shotv.com/tvguide/schedule01.html',
'02','http://www.shotv.com/tvguide/schedule02.html',
'03','http://www.shotv.com/tvguide/schedule03.html',
'04','http://www.shotv.com/tvguide/schedule04.html',
'05','http://www.shotv.com/tvguide/schedule05.html',
'06','http://www.shotv.com/tvguide/schedule06.html',
'07','http://www.shotv.com/tvguide/schedule07.html',
'08','http://www.shotv.com/tvguide/schedule08.html',
'09','http://www.shotv.com/tvguide/schedule09.html',
'10','http://www.shotv.com/tvguide/schedule10.html',
'11','http://www.shotv.com/tvguide/schedule11.html',
'12','http://www.shotv.com/tvguide/schedule12.html',
'13','http://www.shotv.com/tvguide/schedule13.html',
'14','http://www.shotv.com/tvguide/schedule14.html'
)
var b = new Array (
'重庆','http://www.cctv.com/tvguide/program/21/%weeknum%.html',
'福建东南','http://www.cctv.com/tvguide/program/22/%weeknum%.html',
'北京四','http://www.cctv.com/tvguide/program/23/%weeknum%.html',
'北京一','http://www.cctv.com/tvguide/program/24/%weeknum%.html',
'广东','http://www.cctv.com/tvguide/program/25/%weeknum%.html',
'河北-1','http://www.cctv.com/tvguide/program/26/%weeknum%.html',
'河南','http://www.cctv.com/tvguide/program/27/%weeknum%.html',
'黑龙江','http://www.cctv.com/tvguide/program/28/%weeknum%.html',
'湖北','http://www.cctv.com/tvguide/program/29/%weeknum%.html',
'湖南','http://www.cctv.com/tvguide/program/30/%weeknum%.html',
'江苏','http://www.cctv.com/tvguide/program/31/%weeknum%.html',
'江西','http://www.cctv.com/tvguide/program/32/%weeknum%.html',
'辽宁','http://www.cctv.com/tvguide/program/33/%weeknum%.html',
'山东','http://www.cctv.com/tvguide/program/34/%weeknum%.html',
'山西','http://www.cctv.com/tvguide/program/35/%weeknum%.html',
'陕西','http://www.cctv.com/tvguide/program/36/%weeknum%.html',
'上海','http://www.cctv.com/tvguide/program/37/%weeknum%.html',
'四川','http://www.cctv.com/tvguide/program/38/%weeknum%.html',
'天津','http://www.cctv.com/tvguide/program/39/%weeknum%.html',
'云南','http://www.cctv.com/tvguide/program/40/%weeknum%.html',
'浙江','http://www.cctv.com/tvguide/program/41/%weeknum%.html',
'安徽','http://www.cctv.com/tvguide/program/42/%weeknum%.html'
)
var setv = new Array (
'上海教育电视台','http://www.setv.sh.cn/manual/frame.htm'
)
//以下程序码摘自《INSTANT JAVASCRIPT》一书,有改动
function replace(string,text,by) {
var strLength = string.length;
var txtLength = text.length;
if ((strLength == 0) || (txtLength == 0))
return string;
var i = string.indexOf(text);
if (i == -1)
return string;
var newstr = string.substring(0,i) + by;
newstr +=
replace(string.substring(i+txtLength,strLength),text,by);
return newstr;
}
function addOption(fRef, sName, sText, sValue) {
var def = true;
var sel = true;
var optionName = new Option(sText, sValue, def, sel);
var length = fRef[sName].length;
fRef[sName].options[length] = optionName;
fRef[sName].options[length].selected = false;
}
function deleteOptions(fRef, sName, force) {
var length = fRef[sName].options.length;
for (var i=0; i<fRef[sName].options.length; i++) {
if (fRef[sName].options[i].selected || force) {
fRef[sName].options[i] = null;
length--;
i--;
}
}
}
function getAnOptionValue(what) {
return what.options[what.options.selectedIndex].value;
}
function updateColors(fRef, sName1, sName2) {
deleteOptions(fRef,sName2,true);
var color = getAnOptionValue(fRef[sName1]);
var colorObject = eval(color);
for (var i=0; i<colorObject.length;i+=2) {
addOption(fRef, sName2, colorObject[i], colorObject[i+1]);
}
fRef[sName2].options.selectedIndex = 0;
}
//摘录部分结束
var weekdayeng = new Array ('sun','mon','tue','wed','thu','fri','sat')
var weekdaynum = new Array ('0','1','2','3','4','5','6')
function WeekAlias(weeknum,aliastype) {
var aliasArray = eval(aliastype);
return aliasArray[weeknum];
}
function getTVguide() {
var myURL=getAnOptionValue(document.tv.channel);
var myWeeknum=eval(getAnOptionValue(document.tv.weekd));
myURL=replace(myURL,"%weeknum%",WeekAlias(myWeeknum,weekdaynum));
myURL=replace(myURL,"%weekeng%",WeekAlias(myWeeknum,weekdayeng));
var temp=window.open(myURL);
}
//--></script>
</HEAD><BODY>
<H1 align="center"><FONT color="#ccccff">电视节目表</FONT></H1>
<form name="tv">
<TABLE align="center">
<TR>
<TD width="150">
<select name="group" size="16"
onChange="updateColors(this.form, 'group', 'channel')">
<option value="cctv">中央电视台
<option value="stv">上海电视台
<option value="otv">东方电视台
<option value="b">各地卫视
<option value="setv">上海教育电视台
</select>
<TD width="150">
<select name="channel" size="16">
<option>
</option>
</select>
<TD width="150">
<select name="weekd" size="16">
<option value="0">星期日
<option value="1">星期一
<option value="2">星期二
<option value="3">星期三
<option value="4">星期四
<option value="5">星期五
<option value="6">星期六
</select>
<SCRIPT language="JScript">
var today=new Date()
var todayWeek=today.getDay()
document.tv.weekd.selectedIndex=todayWeek
</SCRIPT>
<TR><TD COLSPAN=3 ALIGN=CENTER><INPUT type="button" name="get" value=" 获 取 节 目 表 " onClick="getTVguide()">
</TABLE>
</form>
</BODY></HTML>
-------------------------------------------------------------------------------------------
Fred Smith
fredsmith87@163.com