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

程序没有问题 你写了一个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