求将asp代码修改为js调用方式

<%
function datepartf(datetime)
dim trs,ds,re ,trs1,dt1
trs= year(datetime)
dt1=trs&"-09-01"
ds = datediff("d",dt1,date())/7
if datediff("d",dt1,date()) mod 7=0 then
ds=ds
else
ds=int(ds)+1
end if
response.Write ds
end function
%>
<%=datepartf(now())%>

文件名为a.asp
修改一下代码 可以通过<script language="javascript" src="s.asp"></script>来调用
不要 iframe 哦！！greratshi 的测试结果不行

<%
function datepartf(datetime)
dim trs,ds,re ,trs1,dt1
trs= year(datetime)
dt1=trs&"-09-01"
ds = datediff("d",dt1,date())/7
if datediff("d",dt1,date()) mod 7=0 then
ds=ds
else
ds=int(ds)+1
end if
response.Write ds
end function
%>
var datee=<%=datepartf(now())%>
document.write(datee);

其实原理很简单,你写好一个
<script language="javascript">XXX</script>
调试通过之后,把xxx保存为s.asp
然后就可以
<script language="javascript" src="s.asp"></script>来调用

<%
function datepartf(datetime)
dim trs,ds,re ,trs1,dt1
trs= year(datetime)
dt1=trs&"-09-01"
ds = datediff("d",dt1,date())/7
if datediff("d",dt1,date()) mod 7=0 then
ds=ds
else
ds=int(ds)+1
end if
response.Write ds
end function
%>