vb做的asp小程序
我自己的一个小程序有点问题大家帮忙看一下！<%@Language=VBScript%><%'定义用于给定文件读去票数FunctionReadCount(CFile)Dim...
我自己的一个小程序有点问题 大家帮忙看一下！
<% @ Language=VBScript %>
<%
'定义用于给定文件读去票数
Function ReadCount(CFile)
Dim objFSO,objTS
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTs=objFSO.OpenTextFile(Server.MapPath(CFile),1,True)
If Not objTS.AtEndOfStream Then
Readcount=Clng(objTS.ReadLine)
Else
ReadCont=0
End If
objTS.Close
Set objFSO=Nothing
End Function
'定义用于将累计票数写入指定文件的Sub过程：
Sub WriteCount(CFile,Count)
Dim objFSO,objTS
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(Server.MapPath(CFile),2,True)
objTS.WriteLine(Count)
objTS.Close
Set objFSO=Nothing
End Sub
%>
<%
Dim Vote,London1,Paris1,Sanfran1
'锁定Application变量
Application.Lock
'获取浏览者所投票的城市
Vote=Request("Vote")
'从相应的文件分别度曲个城市已获得的票数：
London1=ReadCount("London.txt")
Paris1=Readcount("Paris.txt")
Sanfran1=Readcount("Sanfran.txt")
if vote="London" then
London1=London1+1
writecount"london.txt",london1
elseif vote="paris" then
Paris1=Paris1+1
writecount"Paris.txt",Paris1
elseif vote="Sanfran" then
Sanfran1=Sanfran1+1
writecount"sanfran.txt",Paris1
end if
Application.Unlock
%>
<html>
<head>
<meta http-equiv="content-language" content="zh-cn">
<meta http-equiv="content-type" content="text/html;charset=gb2321">
<meta name="GENERATOR" content="Microsoft Frontpage 4.0">
<meta name="progld" content="frontpage.editor.document">
<title>魅力城市网上投票</title>
</head>
<body bgcolor="#3366ff">
<p align="center">
<img border="0" src="poll.jpg" width="413" height="80"></p>
<div align="center">
<table border="0" width="440" height="138">
<tr>
<td width="33%" height="96"><a href="poll.asp?Vote=london">
<img border="0" src="london.gif" width="101" height="87">
</a></td>
<td width="33%" height="96"><a href="poll.asp?Vote=paris">
<img border="0" src="paris.gif" width="100" height="87">
</a></td>
<td width="34%" height="96"><a href="poll.asp?Vote=sanfran">
<img border="0" src="sanfran.gif" width="101" height="88">
</a></td>
</tr>
<tr>
<td width="33%" height="33" ><font color="#ffffff" size="4">
伦敦得票数:<% =london1 %></font></td>
<td width="33%" height="33"><font color="#ffffff" size="4">
巴黎得票数:<% =paris1 %></font></td>
<td width="33%" height=33><font color="#ffffff" size="4">
旧金山得票数:<% =sanfran1 %></font></td>
</tr>
</table>
</div>
<p align="center"><font face="楷体_GB2312" size="4">
请用鼠标点击一下您所喜欢的城市图片,</font></p>
<p align="center"><font face="楷体_gb2312" size="4">
该市就可以获的您宝贵的一票</font></p>
</body>
</html>
运行时需要4张图片paris.gif，sanfran.gif，london.gif，poll.jpg
你们可以自己随便搞四张图片这样命名就OK了！我运行时只有paris.gif它能显示正常结果sanfran.gif，london.gif不能象中写入数据london.txt，sanfran.txt 展开
<% @ Language=VBScript %>
<%
'定义用于给定文件读去票数
Function ReadCount(CFile)
Dim objFSO,objTS
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTs=objFSO.OpenTextFile(Server.MapPath(CFile),1,True)
If Not objTS.AtEndOfStream Then
Readcount=Clng(objTS.ReadLine)
Else
ReadCont=0
End If
objTS.Close
Set objFSO=Nothing
End Function
'定义用于将累计票数写入指定文件的Sub过程：
Sub WriteCount(CFile,Count)
Dim objFSO,objTS
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(Server.MapPath(CFile),2,True)
objTS.WriteLine(Count)
objTS.Close
Set objFSO=Nothing
End Sub
%>
<%
Dim Vote,London1,Paris1,Sanfran1
'锁定Application变量
Application.Lock
'获取浏览者所投票的城市
Vote=Request("Vote")
'从相应的文件分别度曲个城市已获得的票数：
London1=ReadCount("London.txt")
Paris1=Readcount("Paris.txt")
Sanfran1=Readcount("Sanfran.txt")
if vote="London" then
London1=London1+1
writecount"london.txt",london1
elseif vote="paris" then
Paris1=Paris1+1
writecount"Paris.txt",Paris1
elseif vote="Sanfran" then
Sanfran1=Sanfran1+1
writecount"sanfran.txt",Paris1
end if
Application.Unlock
%>
<html>
<head>
<meta http-equiv="content-language" content="zh-cn">
<meta http-equiv="content-type" content="text/html;charset=gb2321">
<meta name="GENERATOR" content="Microsoft Frontpage 4.0">
<meta name="progld" content="frontpage.editor.document">
<title>魅力城市网上投票</title>
</head>
<body bgcolor="#3366ff">
<p align="center">
<img border="0" src="poll.jpg" width="413" height="80"></p>
<div align="center">
<table border="0" width="440" height="138">
<tr>
<td width="33%" height="96"><a href="poll.asp?Vote=london">
<img border="0" src="london.gif" width="101" height="87">
</a></td>
<td width="33%" height="96"><a href="poll.asp?Vote=paris">
<img border="0" src="paris.gif" width="100" height="87">
</a></td>
<td width="34%" height="96"><a href="poll.asp?Vote=sanfran">
<img border="0" src="sanfran.gif" width="101" height="88">
</a></td>
</tr>
<tr>
<td width="33%" height="33" ><font color="#ffffff" size="4">
伦敦得票数:<% =london1 %></font></td>
<td width="33%" height="33"><font color="#ffffff" size="4">
巴黎得票数:<% =paris1 %></font></td>
<td width="33%" height=33><font color="#ffffff" size="4">
旧金山得票数:<% =sanfran1 %></font></td>
</tr>
</table>
</div>
<p align="center"><font face="楷体_GB2312" size="4">
请用鼠标点击一下您所喜欢的城市图片,</font></p>
<p align="center"><font face="楷体_gb2312" size="4">
该市就可以获的您宝贵的一票</font></p>
</body>
</html>
运行时需要4张图片paris.gif，sanfran.gif，london.gif，poll.jpg
你们可以自己随便搞四张图片这样命名就OK了！我运行时只有paris.gif它能显示正常结果sanfran.gif，london.gif不能象中写入数据london.txt，sanfran.txt 展开
3个回答
展开全部
运行时到底出现了什么问题？系统提示了什么？你要详细说出来，才能帮你解决问题啊。因为我们这边没有你的全部文件，无法正常运行你提供的代码。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
这个问题很简单我已经知道那里出了错误了！你家我QQ我帮你解决着个问题 呵呵后！QQ是我名字
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
说问题呀？？！还有这个东西叫做vbscript，不是vb！？晕！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
