28,408
社区成员
发帖
与我相关
我的任务
分享请问个极简单的问题？
我想做个计数器，假定为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>"
%>
可是总说网页上有错误,我该如何做
我是这样:
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>"
%>
可是总说网页上有错误,我该如何做
...全文
请发表友善的回复…
发表回复
johnky 2001-02-26
- 打赏
- 举报
在count.asp文件里：
<%
Response.Write "document.write(""......"");"
%>
在list.htm文件里：
<script src="count.asp"></script>
<%
Response.Write "document.write(""......"");"
%>
在list.htm文件里：
<script src="count.asp"></script>
zhaiyj 2001-02-26
- 打赏
- 举报
谢谢tripofdream了:
我看懂代码了。可最后调用的还是一个 asp文件不是？我想问如何把这个asp文件产生的结果
即<%=Application("counter")%> 传给htm文件， 比如显示在default.htm里
在default.htm里加什么语句?
烦劳再指点一句!
我看懂代码了。可最后调用的还是一个 asp文件不是？我想问如何把这个asp文件产生的结果
即<%=Application("counter")%> 传给htm文件， 比如显示在default.htm里
在default.htm里加什么语句?
烦劳再指点一句!
tripofdream 2001-02-26
- 打赏
- 举报
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"))%>
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"))%>
zhaiyj 2001-02-25
- 打赏
- 举报
有人能发给我个例子吗？
zhaiyj 2001-02-25
- 打赏
- 举报
那用不用 Response对象了呢？
我写成Document.write ("<img src=1.htm></img>")
还是没反应。
谁能给我一个显示计数器的完整的例子。
我写成Document.write ("<img src=1.htm></img>")
还是没反应。
谁能给我一个显示计数器的完整的例子。
smalle 2001-02-25
- 打赏
- 举报
1.asp中的文件这样写：
document.write("<img src=<% =imgpath %>")
其中imgpath是ASP中的变量名。
document.write("<img src=<% =imgpath %>")
其中imgpath是ASP中的变量名。
zhaiyj 2001-02-25
- 打赏
- 举报
iProgram谢谢你的回答，可我没太看懂。是不是把response.write 改为document.write?
iProgram 2001-02-25
- 打赏
- 举报
在ASP中用Response.write 输出Document.write，在htm中用<script引用asp文件
