asp变量传递问题。
来源:百度知道 编辑:UC知道 时间:2024/05/16 10:43:29
<%
dim rid,id
rid=CInt(ABS(Request("rid")))
session("id")=rid
Response.Write(rId)----这里变量值正确
Dim action
action = Trim(Request("action"))
Select Case action
Case "saveEdit"
Call saveEditData()
End Select
Sub saveEditData()
Dim rs,rid
dim rserver,rserver1,serverman,servertime
rserver = Trim(Request("rserver"))
rserver1 = Trim(Request("rserver1"))
serverman = Session("CRM_name")
servertime = "2009-10-1"
rid=session("id")
Response.Write(rId)---这里就变0了,
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 1 * From zbb_recordsPlan Where rId = " & cstr(rid),conn,3,2
rs("rserver") = rserver
rs.Update
rs.Close
Set rs = Nothing
Response.Write "<script language
dim rid,id
rid=CInt(ABS(Request("rid")))
session("id")=rid
Response.Write(rId)----这里变量值正确
Dim action
action = Trim(Request("action"))
Select Case action
Case "saveEdit"
Call saveEditData()
End Select
Sub saveEditData()
Dim rs,rid
dim rserver,rserver1,serverman,servertime
rserver = Trim(Request("rserver"))
rserver1 = Trim(Request("rserver1"))
serverman = Session("CRM_name")
servertime = "2009-10-1"
rid=session("id")
Response.Write(rId)---这里就变0了,
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 1 * From zbb_recordsPlan Where rId = " & cstr(rid),conn,3,2
rs("rserver") = rserver
rs.Update
rs.Close
Set rs = Nothing
Response.Write "<script language
程序没有问题 你写了一个SUB 请使用Call saveEditData()调用
认真看了下,你的rid是使用Session传递的,
你看一下你本机上以下程序是否能正常工作
<%
Session("id") = 111
Response.Write Session("id")
Call xx()
Sub xx
Response.Write Session("id")
End Sub
%>
输出结果应该是 11111
-----------------------------------------
PS:或者你以上的程序可以考虑这样实现
<%
dim rid,id
rid=CInt(ABS(Request("rid")))
session("id")=rid '如果session不是必需的,可以去掉
Response.Write(rId)----这里变量值正确
Dim action
action = Trim(Request("action"))
Select Case action
Case "saveEdit"
Call saveEditData(rid)
End Select
Sub saveEditData(rid)
Dim rs
dim rserver,rserver1,serverman,servertime
rserver = Trim(Request("rserver"))
rserver1 = Trim(Request("rserver1"))
serverman = Session("CRM_name&qu