改不了服务器上的文件,高分请教! ( 积分: 200 )

WEB应用程序发到服务器后,我在我电脑上改一个后台文件*.ASPX.VB里的简单代码.
label.text="100"====>改成:label.text="130"
在我的电脑上,页面正常显示"130",FTP传到服务器,网站页面仍然显示原来的"100".
(同时也改了aspx文件里的几个字,那几个字在网站上正常显示改了以后的字.)
打开服务器上文件看了,*.VB文件已经改成新的文件了.牙根就没有"100"这个字.
重启服务器还是那样.怎么改都改不了,我把整个目录文件都换了还是100.
奇怪了,在线等呀!

客户端多刷新几次看看
这种情况你要看看你上传的文件名是否正确，位置是否正确，必须保证你访问的页面确实用到了你上传的新文件，注意一下文件名大小写等因素

服务器上没别的应用程序目录了.
ASP.NET程序就三个文见:
abc.aspx abc.aspx.vb abc.aspx.resx
同时上传到服务器,abc.aspx上几个字都改过来了,也显示正常;abc.aspx.vb我在服务器上看了文件代码也改新的了,但是,label控件还是显示原来没改时的"100....".我用搜索整个项目在我电脑上搜索都搜不到那几个字.

也刷新过无数次

删除Internet临时文件，或者重新启动电脑

nicai_wgl
你是说服务器还是我的电脑?我的电脑和服务器重起了几次,还是那样.
Internet临时文件与那个无关吧

aspx、VB中的要同时改

在我的电脑上运行正常,上了服务器怎么搞都是原来的,而服务器上的网站文件也是新的代码了.不知道从那里来的那几个字.是不是服务上编译的问题?

把代码发来看看

把主目录换了一个,重新拷贝文件,还是那样!!!

Private Sub btaddpic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btaddpic1.Click
If Request.IsAuthen
ticated then
If Request.QueryString.HasKeys then
If upimg3.Value.ToString <> &quot;&quot;
And upimg3.PostedFile.ContentLength > 0 then
'判断图片不能大于130k

If upimg3.PostedFile.ContentLength <= 132000 then
''-------改的是这里----------
Dim file_name, file_time As String
file_name = upimg3.PostedFile.FileName.ToString()
file_time = DateTime.Now.Year.ToString + DateTime.Now.Month.ToString + DateTime.Now.Day.ToString + DateTime.Now.Hour.ToString + DateTime.Now.Minute.ToString + DateTime.Now.Second.ToString + DateTime.Now.Millisecond.ToString()
'显示上一次上传的文件名
Dim lastfilename As String = file_name
'构建出上传的以时间表示的文件名
'判断文件后缀分大小写
If file_name.Substring(file_name.IndexOf(&quot;.&quot + 1) = &quot;jpg&quot;
Or file_name.Substring(file_name.IndexOf(&quot;.&quot + 1) = &quot;gif&quot;
Or file_name.Substring(file_name.IndexOf(&quot;.&quot + 1) = &quot;JPEG&quot;
Or file_name.Substring(file_name.IndexOf(&quot;.&quot + 1) = &quot;JPG&quot;
Or file_name.Substring(file_name.IndexOf(&quot;.&quot + 1) = &quot;GIF&quot;
Or file_name.Substring(file_name.IndexOf(&quot;.&quot + 1) = &quot;jpeg&quot;
then

file_name = &quot;/&quot;
+ file_time + CStr(getrandomint()) + file_name.Substring(file_name.IndexOf(&quot;.&quot, file_name.Length - file_name.IndexOf(&quot;.&quot)
'不能有同名的图片
If File.Exists(Server.MapPath(Request.ApplicationPath) + &quot;/community/community_images&quot;
+ file_name) = False then

Try
'存储图片路径(Server.MapPath(Request.ApplicationPath) + &quot;/upimages&quot;
+ file_name)
upimg3.PostedFile().SaveAs(Server.MapPath(Request.ApplicationPath) + &quot;/community/community_images&quot;
+ file_name)
'相对路径写进数据库
Dim strurl As String
strurl = &quot;community_images&quot;
+ file_name
If Not insert_img_url(strurl) then

lblmsg2.Visible() = True
lblmsg2.BackColor() = Color.FromName(&quot;#FFF3EF&quot
lblmsg2.BorderColor() = Color.FromName(&quot;#FF6500&quot
lblmsg2.Text() = &quot;<font color=red>·</font>图片写入数据库失败,请稍后再试!&quot;
Exit Sub
End If
Catch ex As Exception

lblmsg2.Visible() = True
lblmsg2.BackColor() = Color.FromName(&quot;#FFF3EF&quot
lblmsg2.BorderColor() = Color.FromName(&quot;#FF6500&quot
lblmsg2.Text() = &quot;<font color=red>·</font>图片写入失败,请稍后再试!&quot;
Finally
Response.Redirect(&quot;success_uppic.aspx?lastpic=&quot;
+ Server.UrlEncode(lastfilename) + &quot;&amp;id=&quot;
+ Request.QueryString(&quot;id&quot.ToString + &quot;&amp;sort=&quot;
+ Request.QueryString(&quot;sort&quot.ToString + &quot;&amp;cid=&quot;
+ Request.QueryString(&quot;cid&quot.ToString + &quot;&amp;flg=&quot;
+ Request.QueryString(&quot;flg&quot.ToString + &quot;&amp;page=&quot;
+ Request.QueryString(&quot;page&quot.ToString)
End Try
End If
End If
else
lblmsg2.Visible() = True
lblmsg2.BackColor() = Color.FromName(&quot;#FFF3EF&quot
lblmsg2.BorderColor() = Color.FromName(&quot;#FF6500&quot
''-------改的是这里----------
lblmsg2.Text = &quot;<font color=red>·</font>请上传图片大小在130k以内.&quot;
End If
End If
End If
End If
End Sub

www.jiln.cn 论坛上传图片,现在图片大于100K就上传不了,而服务器上的代码就上面那一段,提交按钮的事件处理.已经是限定在132K了.网页还是提示大于100K上传不了.代码里根本就没提示的那几个字

我试了其它的文件,凡是改的xx.aspx.vb文件,上传到服务器上,都一样-----改了的代码不会起作用,服务器还是运行原来的代码...怪了!!!!!

over