注册 登录
编程论坛 ASP.NET技术论坛

asp.net中投票的代码中为什么不能显示图片(我已经把图片和window放在同一文件中)

w566341966 发布于 2011-05-24 12:14, 379 次点击
<%@ Import Namespace="system" %>
<%@ Import Namespace=" %>
<script language="vbscript" runat="server" >
    Function readcountfile(ByVal countfile As String) As String
        If Not File.Exists(Server.MapPath(countfile)) Then
            Dim objwrite As StreamWriter = File.CreateText(Server.MapPath(countfile))
            objwrite.WriteLine("0")
            objwrite.Close()
        End If
        Dim objreader As New StreamReader(Server.MapPath(countfile))
        readcountfile = objreader.ReadLine()
        objreader.Close()
    End Function
    Sub writecountfile(ByVal countfile As String, ByVal cnt As Integer)
        Dim objwriter As New StreamWriter(Server.MapPath(countfile))
        objwriter.WriteLine(CStr(cnt))
        objwriter.Close()
    End Sub
    Sub page_load(ByVal sender As Object, ByVal e As EventArgs)
        Dim count1 As Integer = CInt(readcountfile("vote1.txt"))
        Dim count2 As Integer = CInt(readcountfile("vote2.txt"))
        dim count3 as integer = Cint(readcountfile("vote3.txt"))
        dim count4 as integer = Cint(readcountfile("vote4.txt"))
        If Session("visible") = "" Then
            Select Case Request("vote")
                Case "s1"
                    count1 += 1
                    writecountfile("vote1.txt", count1)
                Case "s2"
                    count2 += 1
                    writecountfile("vote2.txt", count2)
                case "s3"
                    count3+=1
                    writecountfile("vote3.txt",count3)
                case "s4"
                    count4+=1
                    writecountfile("vote4.txt", count4)
            End Select
            Session("visible") = "yes"
        End If
        selec1.Text = "图一得票:" & CStr(count1)
        selec2.Text = "图二得票:" & CStr(count2)
        selec3.Text = "图三得票: " & CStr(count3)
        selec4.Text = "图四得票: " & CStr(count4)
        
    End Sub
</script>
<html>
<body>
<center>
<table border=1 cellpadding=2 cellspacing=1>
   <tr><td><img scr="国产喷气式歼.jpg" width=80 height=80 /></td>
       <td><img scr="领袖们的珍贵瞬间.jpg" width=80 height=80 /></td>
       <td><img scr="土地革命.jip" width=80 height=80 /></td>
       <td><img scr="周恩来的出席.jpg" width=80 height=80 /></td>
   </tr>
   <tr><td><a href="window.aspx?vote=s1">给图一投票</a></td>
       <td><a href="window.aspx?vote=s2">给图二投票</a></td>
       <td><a href="window.aspx?vote=s3">给图三投票</a></td>
       <td><a href="window.aspx?vote=s4">给图四投票</a></td>
   </tr>
</table><br /><br /><p></p>
<asp:Label runat="server" ID="selec1"></asp:Label>
<asp:Label runat="server" ID="selec2"></asp:Label>
<asp:Label runat="server" id="selec3"></asp:Label>
<asp:Label runat="server" id="selec4"></asp:Label>
<asp:Label runat="server" ID="selec5"></asp:Label>
</center>
</body>
</html>

(链接无法找到!)
0 回复
1