%
If Member.CheckLogin=0 Then
Response.Write("<" & "script>location='" & WebPath & "UserCenter/Login.aspx';" & "script>")
Exit Sub
End If
If Request.QueryString("act")="save" Then
Try
If Member.Edit() AndAlso Val(WebCache.Sys.Read("WebSet")(20)) > 0 Then
Response.Write("<" & "script>alert('恭喜您修改成功,您已获得我们赠送的" & Val(WebCache.Sys.Read("WebSet")(20)) & WebSet.BonusUnits & WebSet.BonusName & "。');location='" & WebPath & "UserCenter/UserEdit.aspx';" & "script>")
Else
Response.Write("<" & "script>alert('修改成功。');location='" & WebPath & "UserCenter/UserEdit.aspx';" & "script>")
End If
Catch ex As TourExException
Response.Write("