高手求救 关于如何在一个页面中实现几个功能？
我在开发中我想把各个相关的功能放在一起
结果发现要想实现这种功能，必须提供不同的参数用来识别显现不同功能的统一页面
问题是我怎么设置参数
以及怎么得到这些参数
我该在什么事件中得到他们
我用了panel控件，默认设置其不可见性
还有用linkbutton设置panel可见性
提供思路
谢谢
问题点数：20、回复次数：14Top
1 楼buaawjh（猪猪爱咬咬）回复于 2004-09-02 09:06:36 得分 20
1--用Viewstate["funid"]来保存跟踪你的功能代号
2--linkbutton.Attributes["onclick"]="javascript:..";
页面上写一段js代码，控制id号等于你的panel ID的Div的显示，我觉得还是直接用Div吧，让他runat=serverTop
2 楼xiaomaolover（小M）回复于 2004-09-02 09:07:04 得分 0
要是
我就用不同的页面了。。。
要不然会很麻烦的
Top
3 楼gzsxy8013（more）回复于 2004-09-02 09:30:10 得分 0
大侠们说的详细点
不要说的让小弟糊里糊涂Top
4 楼danferw（11:00PM开始）回复于 2004-09-02 10:04:10 得分 0
说个简单点的，看你用的上不。通过在地址后面传递参数，然后再在功能页中通过 switch 来对传过来的参数进行判断处理。比如
xxxx.aspx?cmd=add
switch(add)
{
case"add"
...
...
...
break;
case "mod"
...
...
...
break;
...
}Top
5 楼gzsxy8013（more）回复于 2004-09-02 10:08:32 得分 0
这个我知道思路
关键有点专不过来了
我把代码贴出
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Panel1.Visible = True
End Sub
Private Sub Submit1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim m As New shenxiaoyaun.ClsGetConnection
Dim myConn As OleDbConnection
Dim myComm As OleDbCommand
Dim strSQL As String
Dim typeName As String
'***********************************************
'
'
'typeName = Request.Params.Item("txtname")
'
'
'***********************************************
typeName = txtname.Text
Try
myConn = m.GetOleConnectionObject
myComm = New OleDbCommand
strSQL = "INSERT INTO tblEditNews (typeName) VALUES ('" + typeName + "')"
With myComm
.CommandText = strSQL
.Connection = myConn
.CommandType = CommandType.Text
.CommandTimeout = 15
.ExecuteNonQuery()
End With
Catch ex As Exception
Throw ex
Finally
myConn.Close()
myConn = Nothing
' m = Nothing
End Try
End Sub
Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
Panel1.Visible = False
Panel2.Visible = True
RptNewEdit.DataSource = GetDataValue()
RptNewEdit.DataBind()
End Sub
Public Function GetDataValue() As DataSet
Dim myDs As New DataSet
Dim myDa As New OleDbDataAdapter
Dim strSQL As String
Dim m As shenxiaoyaun.ClsGetConnection
Dim myConn As New OleDbConnection
Dim myComm As OleDbCommand
Dim n As Integer = 0
strSQL = " SELECT typeID, typeName FROM tblEditNews "
Try
myConn = m.GetOleConnectionObject
myComm = New OleDbCommand
With myComm
.Connection = myConn
.CommandType = CommandType.Text
.CommandTimeout = 15
.CommandText = strSQL
End With
myDa.SelectCommand = myComm
n = myDa.Fill(myDs, "EditNews")
Catch ex As Exception
Throw ex
Finally
myConn.Close()
myConn = Nothing
' m = Nothing
End Try
Return myDs
End FunctionTop
6 楼vzxq（灵感人）回复于 2004-09-02 10:31:45 得分 0
upTop
7 楼gzsxy8013（more）回复于 2004-09-02 10:47:17 得分 0
谁能详细解释一下 buaawjh(猪猪爱咬咬) 的方法
不胜感激Top
8 楼joffre（落霞与孤雁齐飞）回复于 2004-09-02 11:07:14 得分 0
很简单，首先，可以通过url传递参数的方法如fsdfdsaf.aspx?Edit=1的时候表示编辑状态
在Page_Load()里if(!IsPostBack){switch判断Edit参数的值，执行不同的初始化操作}
然后每个功能函数里加上Edit参数的判断就可以了Top
9 楼gzsxy8013（more）回复于 2004-09-02 11:08:55 得分 0
再问如何转换数据类型
函数如下
Public Function GetDataValue() As DataView
Dim myDs As New DataSet
Dim myDa As New OleDbDataAdapter
Dim strSQL As String
Dim m As New shenxiaoyaun.ClsGetConnection
Dim myConn As New OleDbConnection
Dim myComm As OleDbCommand
Dim n As Integer = 0
strSQL = " SELECT typeID, typeName FROM tblEditNews "
Try
myConn = m.GetOleConnectionObject
myComm = New OleDbCommand
With myComm
.Connection = myConn
.CommandType = CommandType.Text
.CommandTimeout = 15
.CommandText = strSQL
End With
myDa.SelectCommand = myComm
n = myDa.Fill(myDs, "EditNews")
Catch ex As Exception
Throw ex
Finally
myComm.Dispose()
myComm = Nothing
myDa.Dispose()
myDa = Nothing
myConn.Close()
myConn = Nothing
m = Nothing
End Try
Return myDs.Tables(0).DefaultView
End Function
函数返回dataview 类型的值
我该怎么转换数据库中的integer 到 varchar 呢？？？
我这样定义
dim m a dataview
m=getdataview()
response.write m.item("typeID").tostring
response.write m.item("typeName").tostring
怎么出错拉
帮我看看Top
10 楼gzsxy8013（more）回复于 2004-09-02 11:20:35 得分 0
repeater的数据源可以是我的getdatavalue 类型的嘛？？
Top
11 楼cmoremore（为啥我的问题都是绝帖？？？）回复于 2004-09-02 13:14:12 得分 0
回复人： danferw(11:00PM开始) ( ) 信誉：100
用他的方法可以完美实现
函数写在这里面<script runat="server"></script>Top
12 楼gzsxy8013（more）回复于 2004-09-08 09:04:35 得分 0
gzTop
13 楼gzsxy8013（more）回复于 2004-09-08 20:55:26 得分 0
多说点
又不会；；；；
：））Top
14 楼gzsxy8013（more）回复于 2004-09-29 13:55:57 得分 0
up gzTop
