----------------在vs.net里分离代码的问题?----------------------
1.下面這個是用dreamweaver寫在一個檔案里,运行通过ok.
<html>
<head>
<script language="VB" runat="server">
Dim t as DateTime=Now()
Sub Page_load(sender as Object, e as EventArgs)
Page.DataBind()
End Sub
Function GetWriteDate() as String
Dim k as DateTime=Convert.ToDateTime("2002/02/05 00:00:00")
Dim a as Integer=DateDiff("h",k,t)\24
return a & "天" & DateDiff("h",k,t) Mod 24 & "小時"
End Function
</script>
</head>
<form id="nform" runat="server">
目前日期及時間：<asp:Label id="NowTime" runat="server" Text=<%# t %>/><p>
與作者撰寫此書相差：<asp:Label id="NowTime1" runat="server" Text=<%# GetWriteDate() %>/>
<p>
</form>
</body>
</html>
********以上运行ok**********
********各位看看下面出錯的**********
2.如果我在vs.net2003里编写,把它分离成如下兩個档案(expro1.aspx和expro1.aspx.vb):系統提示錯誤，说 t 变量是為private(私有变量）
***expro1.aspx***
<html>
<head>
</head>
<form id="nform" runat="server">
目前日期及時間：<asp:Label id="NowTime" runat="server" Text=<%# t %>/><p>
與作者撰寫此書相差：<asp:Label id="NowTime1" runat="server" Text=<%# GetWriteDate() %>/>
<p>
</form>
</body>
</html>
***expro1.aspx.vb***
Public Class bind
Inherits System.Web.UI.Page
Dim t As Date '***定义变量t***
#Region " Web Form 設計工具產生的程式碼 "
Protected WithEvents StrNow As System.Web.UI.WebControls.Label
Protected WithEvents DatediffNow As System.Web.UI.WebControls.Label
Private designerPlaceholderDeclaration As System.Object
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在這裡放置使用者程式碼以初始化網頁
page.databind() '绑定变量
End Sub
Function GetWriteDate() As String '計算時間
Dim k As Date = Convert.ToDateTime("2005/08/02 08:00:00")
Dim a As Integer = DateDiff("h", k, t) \ 24
GetWriteDate = a & "天" & DateDiff("h", k, t) Mod 24 & "小時"
End Function
End Class
問題总结：
其实我上面的问题就是有关变量的数据绑定.不知道為什麼我在那里定義变量就出错?（提示t变量為private)
因为这个变量要定义在网页阶层变量，所以以后肯定會用到很多．
還請各位指點我這個小虾！謝謝！
问题点数：30、回复次数：5Top
1 楼drk928（一起看斜阳）回复于 2005-08-03 09:00:41 得分 15
用public呗 ,或者改成属性调用.Top
2 楼jackie615（）回复于 2005-08-03 09:08:47 得分 5
Dim t As Date '***定义变量t***
// 用publicTop
3 楼qsoo（求 索）回复于 2005-08-03 09:19:31 得分 5
public 表示公有变量Top
4 楼dandanyiwang（tuifei）回复于 2005-08-03 09:27:13 得分 0
to:drk928(一起看斜阳) and jackie615(東大傳說)
经过你們的指点,我用public現已运行通过.
to:drk928(一起看斜阳):
另外,你上面提到说还有一种是属性调用.那是不是在vs属性浮動窗的最下面有个資料:
(databinding)里設置呢?可是我點進去看了,在text属性里要怎麼寫呢?
還要打擾一下你宝贵的时间.謝謝!Top
5 楼feihu_02（飞狐http://foxstudio.51vip.cn）回复于 2005-08-03 10:06:38 得分 5
既然你已经分离了代码,那你为什么要在aspx页面绑定值给Label呢?
直接在后台代码赋值就可以了.
如:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在這裡放置使用者程式碼以初始化網頁
NowTime.Text=GetWriteDate()
End Sub
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
