请问个极简单的问题？
我想做个计数器，假定为1.asp 主页为1.htm 如何把1.asp 的运行结果传给1.htm
我是这样:
1.htm如下:
<html>
<body>
<h1 align="center">hi asp</h1>
<script src="1.asp"></script>
</body>
</html>
1.asp如下:
<%
'Response.Redirect"1.htm"
Response.write "<img src=1.bmp></img>"
%>
可是总说网页上有错误,我该如何做
问题点数：20、回复次数：8Top
1 楼iProgram（na）回复于 2001-02-25 13:03:00 得分 4
在ASP中用Response.write 输出Document.write，在htm中用<script引用asp文件Top
2 楼zhaiyj（）回复于 2001-02-25 13:20:00 得分 0
iProgram谢谢你的回答，可我没太看懂。是不是把response.write 改为document.write?Top
3 楼smalle（锋）回复于 2001-02-25 14:42:00 得分 4
1.asp中的文件这样写：
document.write("<img src=<% =imgpath %>")
其中imgpath是ASP中的变量名。Top
4 楼zhaiyj（）回复于 2001-02-25 15:27:00 得分 0
那用不用 Response对象了呢？
我写成Document.write ("<img src=1.htm></img>")
还是没反应。
谁能给我一个显示计数器的完整的例子。Top
5 楼zhaiyj（）回复于 2001-02-25 23:19:00 得分 0
有人能发给我个例子吗？Top
6 楼tripofdream（梦之旅）回复于 2001-02-26 13:14:00 得分 7
global.asa
Sub Application_OnStart
Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("/counter.txt")
Set txt = fs.OpenTextFile( counter_file )
Application("counter") = txt.ReadLine
txt.Close
Application("Visit_Count") = 0
End Sub
SUb Session_OnStart
Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("/counter.txt")
Set txt = fs.CreateTextFile( counter_file, True )
Application.Lock()
intVisits = Application("Visit_Count") + 1
Application("Visit_Count") = intVisits
Application.UnLock()
txt.WriteLine(Application("counter"))
txt.Close
End Sub
Sub Session_OnEnd
Application.Lock()
if Application("Visit_Count")>1 then
intVisits = Application("Visit_Count") - 1
else
intVisits = Application("Visit_Count")
end if
Application("Visit_Count") = intVisits
Application.UnLock()
End Sub
Sub Application_OnEnd
End Sub
</script>
文本調用:
訪問次數:<%=Application("counter")%>
圖形調用:
先做10個小圖片0,1,2,3.....9,然后
<%Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=images/counter/" & Mid(S, i, 1) & ".gif>"
Next
GCounter = G
End Function
%>
訪問次數:<%=GCounter(Application("counter"))%>Top
7 楼zhaiyj（）回复于 2001-02-26 13:49:00 得分 0
谢谢tripofdream了:
我看懂代码了。可最后调用的还是一个 asp文件不是？我想问如何把这个asp文件产生的结果
即<%=Application("counter")%> 传给htm文件， 比如显示在default.htm里
在default.htm里加什么语句?
烦劳再指点一句!Top
8 楼johnky（Johnky）回复于 2001-02-26 15:39:00 得分 5
在count.asp文件里：
<%
Response.Write "document.write(""......"");"
%>
在list.htm文件里：
<script src="count.asp"></script>Top
