在插入记录页面中设置注册成功后产生变量，以CS3为例，原代码如下：

Dim MM_editRedirectUrl
    MM_editRedirectUrl = "zccg.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If

修改代码如下：

Dim MM_editRedirectUrl
    MM_editRedirectUrl = "zccg.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
Session("MM_username")=Request.Form("u")  'Request.Form("u") 是注册表单用户名文本框名称
    Response.Redirect(MM_editRedirectUrl)
  End If
End If