作者Webber520 (计画=变化)
看板Visual_Basic
标题[.NET] 回圈的逻辑问题
时间Sun Jan 13 19:18:15 2008
请输入专案类型(网站专案或者应用程式专案)：
小弟目前打算设计一个动态的网页 藉由不同的按纽传出不同的值
让另一个网页跑不同的Functioin，不过不知道是自己的逻辑那里
错了，值看起来有送出去，可是逻辑确都不跑不到另一段，不过
另外写了另一页用来测试送出去值到底有没有收到，确都没问题
所以想拜托高手帮我看一下，我的程式哪边出问题了，值有送出
可是逻辑确都RUN不到另一段，还是我有那边的设定错了。谢谢
第一页 送出值
Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Dim sline As String
sline = "WT"
Page.RegisterStartupScript("redir",
"<script>window.open('default.aspx?sline=WT');</script>")
End Sub
Private Sub ImageButton2_Click(ByVal sender As System.Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles ImageButton2.Click
Dim sline As String = "WP"
Page.RegisterStartupScript("redir",
"<script>window.open('default.aspx?sline=WP');</script>")
End Sub
判断逻辑页
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim line As String
SqlConnection1.Open()
SqlConnection2.Open()
Dim sline As String
sline = Request("sline")
If sline = "WP" Then
setStepList()
setOPDLink()
show_key_machine()
show_data12b()
show_move_in_issue()
Else
setStepList()
show_wtdata()
End If
SqlConnection1.Close()
SqlConnection2.Close()
EDN
另外写的测试页
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim sline As String
sline = Request("sline")
If sline = "WT" Then
wttest()
Else
wptest()
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.131.165.147
1F：推 horngsh:为何不用SESSION传呢? 01/14 09:18
2F：→ Webber520:用 session真的解决了 谢谢大大 ~ 01/14 23:10