高手帮帮忙,关于HTML中调用ASP的问题

本人用的是MSSQL,想在HTML中调用ASP,在用ASP调用时的没问题,显示

document.write ("本日：9 本周：11 本月：12 总数：61 ");

但是在HTM中调用

<script language="javascript" src="hits.asp?id=14013"></script>

却是显示空白.我猜可能是用FUNCTION或CLASS的问题,小弟不才.哪位大侠能帮我改下能在HTML下正常显示啊

HITS.ASP代码如下

<!-- #include file="conn.asp" -->

<!-- #include file="cls_main.asp" -->



 <% 

 

 dim obj

set obj = New hits

	obj.AspInit()





class hits



	Private ID, i, Mesky

	Private Sub Class_Initialize()

		Set Mesky = New Cls_Main

	End Sub

	Private Sub Class_Terminate()

		Set Mesky = Nothing

	End Sub

	Public Sub AspInit()

	

		If Request.QueryString("ID") = "" Then

			Response.Write "非法操作！指定的参数不正确。"

			Response.End

		ElseIf IsNumeric(Request.QueryString("ID")) = False Then

			Response.Write "非法操作！指定的参数不正确。"

			Response.End

		Else

			ID = CLng(Request.QueryString("ID"))

		End If

	   

		call Mesky.LoadSetting()

		If Mesky.Setting(80) = 1 Then

			Response.Write showDownload(ID, Mesky.Setting(81), 1)

		Else

			Response.Write showDownload(ID, Mesky.Setting(81), 0)

		End If

	

End Sub

	

	'点击数

	Private Function showDownload(ID, brNum, show)

		Dim sR, aRs, s1, i

		Set sR = Mesky.Execute("select * from Mesky_Down_Resource where ID=" & ID & " ")



    AllHits = sR("HitsTotal")

	DayHits = sR("HitsToday")

	WeekHits = sR("HitsWeek")

	MonthHits = sR("HitsMonth")





	Response.Write "document.write ("& Chr(34) &"本日："& DayHits &" 本周："& WeekHits &" 本月："& MonthHits &" 总数："& AllHits &" "& Chr(34) &");"

  



  End Function

   End class%>