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

[zodrao]

本人用的是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%>

[zodrao]

人呢?

[lzp4881]

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

这行改成

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

[ChinaXtHuLang]

[Quote=引用 2 楼 lzp4881 的回复:]

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

这行改成

show……
[/Quote]
同意。下面已经输出。那里还弄一个输出做什么.