asp中的js代码要如何转换到wap中！急
我想在wap中动态地显示系统时间，应该如何写呢？
或者帮我转换一下如下代码
下面是一个asp中的显示系统时间代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language=javascript>
function showClock()
{
if (!document.layers&&!document.all)
return
var Digital=new Date()
var hours=Digital.getHours()
var minutes=Digital.getMinutes()
var seconds=Digital.getSeconds()
var year=Digital.getYear()
var month=Digital.getMonth()
var day=Digital.getDate()
var weekday=Digital.getDay()
if (year < 1000)
year += 1900
if (hours<10)
hours="0"+hours
if (minutes<10)
minutes="0"+minutes
if (seconds<10)
seconds="0"+seconds
month=month+1
if (1==weekday)
weekday="一"
else if (2==weekday)
weekday="二"
else if (3==weekday)
weekday="三"
else if (4==weekday)
weekday="四"
else if (5==weekday)
weekday="五 "
else if (6==weekday)
weekday="六"
else
weekday="日"
myclock=" <FONT SIZE='2' FACE='宋体' COLOR='#6699ff'>"+year+"年"+month+"月"+day+"日 星期"+weekday+" "+hours+":"+minutes+":" +seconds+"</FONT> "
if (document.layers)
{
document.layers.liveclockNC.document.write(myclock)
document.layers.liveclockNC.document.close()
}
else if (document.all)
liveclock.innerHTML=myclock
setTimeout("showClock()",1000)
return
}
</script>
</head>
<body onload="showClock();">
<div id=liveclock style="position: absolute; left: 445; top: 80; width: 287; height: 18; z-index: 1"></div></body>
</html>
问题点数：30、回复次数：6Top
1 楼niedewang（程序爱好）回复于 2006-02-28 13:08:25 得分 10
不知道，只能顶拉Top
2 楼caobin518（linlin）回复于 2006-02-28 13:18:55 得分 0
等高人到来！~~~~~~~~~~~~~~~~~`急中等Top
3 楼caobin518（linlin）回复于 2006-02-28 13:26:28 得分 0
哪怕是顶一下也行呀。。。这问题要如何搞Top
4 楼gu1dai（异域苍穹.百年飞行）回复于 2006-02-28 13:29:46 得分 5
不可能转过去。wap浏览器不支持js.vbs.
你可以死了这条心了Top
5 楼eglic（圪圪) (理由永远是谎言，信仰永远是自慰）回复于 2006-02-28 13:35:14 得分 5
不支持～Top
6 楼wtogether（wtogether）回复于 2006-02-28 13:37:39 得分 10
<%
Public Function IIf(e, t, f)
If e Then
IIf = t
Else
IIf = f
End If
End Function
Public Function Renew(s, c, rl, x)
Dim sl: sl = Len(s)
Dim tp: tp = s
If rl>sl Then
Dim i: i = sl
Do While i<rl
If x=False Then
tp = tp & c
Else
tp = c & tp
End If
i = i + 1
Loop
End If
Renew = tp
End Function
'sdt 时间对象，Now()，Date()，Time()等
'fmt 格式控制符常量，YYYY表示四位的年，YY表示二位的年，MM表示月，DD表示日，HH24表示24时的小时，HH表示12时的小时，MI表示分，SS表示秒，GMT或UTC单独使用，表示全球标准时间或格林威治标准时间
Public Function fmtime(sdt, fmt)
Dim y,n,d,h,m,s,w
Dim dt: dt = sdt
If UCase(fmt)="GMT" Or UCase(fmt)="UTC" Then
'GMT和UTC时间起始于1970-01-01 00:00:00
'系统时间起始于1970-01-01 08:00:00
'相差8个小时，因此要减8个小时
dt = DateAdd("h", -8, dt)
End If
y = Renew(Year(dt), "0", 4, true)
n = Renew(Month(dt), "0", 2, true)
d = Renew(Day(dt), "0", 2, true)
h = Renew(Hour(dt), "0", 2, true)
m = Renew(Minute(dt), "0", 2, true)
s = Renew(Second(dt), "0", 2, true)
w = Weekday(dt)
Dim pWeek: pWeek = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")
Dim pMonth: pMonth = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
If UCase(fmt)="GMT" Or UCase(fmt)="UTC" Then
fmtime = pWeek(w-1) & ", " & d & "-" & pMonth(n-1) & "-" & y & " " & h & ":" & m & ":" & s & " " & UCase(ft)
Else
Dim cWeek: cWeek = Array("日", "一", "二", "三", "四", "五", "六")
Dim tp: tp = Replace(UCase(fmt), "YYYY", y)
tp = Replace(tp, "YY", Right(y,2))
tp = Replace(tp, "MM", n)
tp = Replace(tp, "DD", d)
tp = Replace(tp, "HH24", h)
tp = Replace(tp, "HH", IIf(h>12, h-12, h))
tp = Replace(tp, "MI", m)
tp = Replace(tp, "SS", s)
tp = Replace(tp, "WW", cWeek(w))
fmtime = tp
End If
End Function
%>
<%=fmtime(Now(), "YYYY年MM月DD日 星期WW HH24:MI:SS")%>Top
